aligunes
Altın Üye
- Katılım
- 2 Mart 2005
- Mesajlar
- 304
- Excel Vers. ve Dili
- Ofis 2016 TR 32 Bit
- Altın Üyelik Bitiş Tarihi
- 09-06-2025
Aşağıdaki formülde İcmal bölümüne aktaramıyorum yardım lütfen
Sub aktar1()
a = WorksheetFunction.CountA(Sheets("TAHAKKUK TESLİM").Range("G5:G65536"))
Sheets("TAHAKKUK TESLİM").Range("A" & a + 5) = a + 1
Sheets("TAHAKKUK TESLİM").Range("H" & a + 5) = [s6]
Sheets("TAHAKKUK TESLİM").Range("I" & a + 5) = [O14]
Sheets("TAHAKKUK TESLİM").Range("F" & a + 5) = [r41]
Sheets("TAHAKKUK TESLİM").Range("E" & a + 5) = [m37] + [m38] + [m39] + [m40]
Sheets("TAHAKKUK TESLİM").Range("G" & a + 5) = [f14] & "." & [g14] & "." & [h14] & "." & [ı14] & "-" & [j14] & "-" & [k14] & "." & [l14] & "." & [m14] & "." & [n14]
MsgBox "Aktarıldı...!", , "Ertan AKALIN"
If a = 31 Then MsgBox "Tahakkuk Teslim Listeniz Doldu Yazdırıp TEMİZLEYİNİZ!! (Ali GÜNEÃ)"
a = WorksheetFunction.CountA(Sheets("İCMAL").Range("F3:F65536"))
Sheets("İCMAL").Range("A" & a + 3) = a + 1
Sheets("İCMAL").Range("B" & a + 3) = [u6]
Sheets("İCMAL").Range("C" & a + 3) = [r42]
Sheets("İCMAL").Range("D" & a + 3) = [u1]
Sheets("İCMAL").Range("E" & a + 3) = [r41]
Sheets("İCMAL").Range("F" & a + 3) = [O14]
Sheets("İCMAL").Range("G" & a + 3) = [m38]
End Sub
Sub aktar1()
a = WorksheetFunction.CountA(Sheets("TAHAKKUK TESLİM").Range("G5:G65536"))
Sheets("TAHAKKUK TESLİM").Range("A" & a + 5) = a + 1
Sheets("TAHAKKUK TESLİM").Range("H" & a + 5) = [s6]
Sheets("TAHAKKUK TESLİM").Range("I" & a + 5) = [O14]
Sheets("TAHAKKUK TESLİM").Range("F" & a + 5) = [r41]
Sheets("TAHAKKUK TESLİM").Range("E" & a + 5) = [m37] + [m38] + [m39] + [m40]
Sheets("TAHAKKUK TESLİM").Range("G" & a + 5) = [f14] & "." & [g14] & "." & [h14] & "." & [ı14] & "-" & [j14] & "-" & [k14] & "." & [l14] & "." & [m14] & "." & [n14]
MsgBox "Aktarıldı...!", , "Ertan AKALIN"
If a = 31 Then MsgBox "Tahakkuk Teslim Listeniz Doldu Yazdırıp TEMİZLEYİNİZ!! (Ali GÜNEÃ)"
a = WorksheetFunction.CountA(Sheets("İCMAL").Range("F3:F65536"))
Sheets("İCMAL").Range("A" & a + 3) = a + 1
Sheets("İCMAL").Range("B" & a + 3) = [u6]
Sheets("İCMAL").Range("C" & a + 3) = [r42]
Sheets("İCMAL").Range("D" & a + 3) = [u1]
Sheets("İCMAL").Range("E" & a + 3) = [r41]
Sheets("İCMAL").Range("F" & a + 3) = [O14]
Sheets("İCMAL").Range("G" & a + 3) = [m38]
End Sub