yazdığım "aktar makrosu neden çalışmıyor

[metinavci23]

ekteki dosyada mevcut olan "aktar" makrosunu bir türlü çalıştıramadım.çok küçük bir hatamın olduğunu tahmin ediyorum ancak hatayı bulamıyorum.yardımınızı bekliyorum.saygılarımla

 

[Necdet]

Merhaba,

For i = 21 To s1.[A65536].End(3).Row

A sütununda hiçbirşey yok, sanırım C sütununun son satırını bulmanız gerek

 

[metinavci23]

cevap

For i = 21 To s1.[C65536].End(3).Row

bu şekilde yaptım ama yine çalışmadı

 

[Necdet]

Merhaba,

Kodlarda aşağıdaki şekilde değişiklik yaptım, çalışır hale geldi ama doğru mu çalışıyor onu bilmiyorum, kontrol ediniz.

Sub aktar()
Application.ScreenUpdating = False
Set s1 = Sheets("POLICEGIRIS")
Set s2 = Sheets("VERITABANI")
s1.Unprotect
s2.Unprotect
For i = 21 To s1.[C65536].End(3).Row
If s1.Cells(i, "AE").Value > "" Then
   sat = WorksheetFunction.CountA(s2.Range("A1:A65536")) + 1
   s2.Cells(sat + 1, "B").Value = Format(s1.Cells(i, "S"), "dd.mm.yyyy")
   s2.Range(s2.Cells(sat + 1, "C"), s2.Cells(sat + 1, "J")).Value = s1.Range(s1.Cells(i, "T"), s1.Cells(i, "AA")).Value
   s2.Cells(sat + 1, "K").Value = Format(s1.Cells(i, "AB").Value, "dd.mm.yyyy")
   s2.Range(s2.Cells(sat + 1, "L"), s2.Cells(sat + 1, "M")).Value = s1.Range(s1.Cells(i, "AC"), s1.Cells(i, "AD")).Value
   s2.Range(s2.Cells(sat + 1, "N"), s2.Cells(sat + 1, "N")).Value = s1.Range(s1.Cells(i, "AF"), s1.Cells(i, "AF")).Value
End If
Next i
s1.Range("c11,f11,ı11,l11,c14,f14,ı14,l14,f17,l19,l21,l23,l25,l27,l29").Value = ""
MsgBox "KAYIT İŞLEMİ TAMAMLANDI"
ActiveSheet.Protect
s2.Select
ActiveSheet.Protect
s1.Select
Set s1 = Nothing
Set s2 = Nothing
Application.ScreenUpdating = True
End Sub

 

[metinavci23]

teşekürler Sn.Yesertener