makro formülde hata

[aligunes]

Sub aktar1()
a = WorksheetFunction.CountA(Sheets("TAHAKKUK TESLİM").Range("F5:F65536"))
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]

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("G" & a + 3) = [r42]
Sheets("İCMAL").Range("H" & a + 3) = [m38]

End Sub

fomül bu : Aktar butonuna tıkladığımda "Tahakkuk Teslim" ve "İcmal" Listesine Aktarma yapıyor ,Fakat Tahakkuk Teslimde aktarılan bilgileri sildiğim de yine 3.satırdan başlarken İcmalde bunu yapmıyor İcmalde en son aktardığı satıra yazmaya devam ediyor önceki satırları silsemde yine devam ediyor yardımlarınız için şimdiden tüm form üyelerine teşekkürler.

 

[danersin]

İkiside kopyalamayı yaptığına göre Kodlarda bir hata yok, mantıkta hata var muhtemelen. Her iki sayfa içinde a(yazdırılacak satır) F sütununa bakarak belirlemişsiniz, muhtemelen TT sayfasında F sütununu silerken İcmal Sayfasında silmiyorsunuz (çünki kodlarda F sütununa birşey yazdırmamışsınız). bunun için alttaki
a 'nın tespiti için başka bir sütun deneyin. mesela

a = WorksheetFunction.CountA(Sheets("İCMAL").Range("A3:A65536"))