Sayfalar Arası ARA-BUL-KOPYALA formulde hata var yardım lütfen

[smile80]

Merhaba Arkadaşlar... Ekte sunmuş olduğum dosyada AKTAR butonunda bulunan Makroda hata var ben bir türlü düzeltemedim. Dosyada bir tek ordaki eksiklikten dolayı çalıştıramıyorum. Hocalarımdan ricam bir bakıp düzeltebilirler mi acaba.. Halit3 hocam yardımcı oldu sağolsun ama bir türlü çözüme kavuşmadı dosya.. Şimdiden teşekkür ederim..

 

[smile80]

yok mu yardım edecek bir arkadas..

 

[Husgvarna]

Şöyle denermisiniz?

  Sub AKTAR()
For a = 2 To Worksheets("E-OKUL DEVAMSIZLIK").Cells(65000, 1).End(xlUp).Row
Set b = Sheets("GENEL LİSTE").[b2:b65000].Find(Worksheets("E-OKUL DEVAMSIZLIK").Cells(a, 2).Value)
If Not b Is Nothing Then
Sheets("GENEL LİSTE").Cells(b.Row, 5) = Worksheets("E-OKUL DEVAMSIZLIK").Cells(a, 7)
       'veya devamsızlık eklencekse:
       'Sheets("GENEL LİSTE").Cells(b.Row, 5) = Sheets("GENEL LİSTE").Cells(b.Row, 5) + Worksheets("E-OKUL DEVAMSIZLIK").Cells(a, 7)
Sheets("GENEL LİSTE").Cells(b.Row, 4) = CDbl(Worksheets("E-OKUL DEVAMSIZLIK").Cells(a, 1))
       'En son devamsızlık Tarihi
Sheets("GENEL LİSTE").Cells(b.Row, 6) = CDate(Worksheets("E-OKUL DEVAMSIZLIK").Cells(a, 6))
Sheets("GENEL LİSTE").Cells(b.Row, 6) = Format(Sheets("GENEL LİSTE").Cells(b.Row, 6), "dd.mm.yyyy")
End If
Set b = Nothing
Next
End Sub