veri aktarmıyor ??

[aligunes]

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

 

[aligunes]

arkadaşlar kilitlendim kaldım soruma cevap veren yok mu?

 

[excelvba]

Kodlarınızda sorun oluşturacak bir satır göremedim. Bu kodu "Tahakkuk Teslim" isimli sayfa üzerinde çalıştırın. Eğer "İcmal" sayfasında çalıştırıyor olabilirsiniz.

 

[aligunes]

dosya ekte

icmal bölümüne aktarmıyor son aktardığı satır nosunu da yanlış yazıyor

 

[aligunes]

dosyayı ekledim düzeltebilecek arkadaş varsa sevinirim tşk.

 

[excelvba]

icmal sayfasına veri aktaran satırlardaki a+3 değerini a+4 olarak değiştirin.


Sheets("İCMAL").Range("B" & a + 4) = [u6]