gelir-gider sheeti üzerinden modul kullarak veri taşımak.

[latimera]

Günaydın Üsdatlar,

Ekteki dosyada gelir - gider sheet girilen verilerin ekim sheet taşınması için modul yazıldı.
Soru 1

AŞAĞIDAKİ MODUL TARİHİ BULAMADIM HATASI VERİYOR. NEREDE HATA YAPIYORUM ?

Sub Aktar()

Dim Sg As Worksheet, bul As Range

Set Sg = Sheets("günlük gelir-GİDER")

Application.ScreenUpdating = False
Sheets("ekim").Select

Set bul = Rows(2).Find(Sg.Range("B6:AF6"), LookIn:=xlFormulas, LookAt:=xlWhole)
If Not bul Is Nothing Then
Sg.Range("C2:C14").Copy
Cells(2, bul.Column).PasteSpecial xlPasteValues, xlNone
Application.CutCopyMode = False
Range("A2").Select
Else
MsgBox "Tarihi Bulamadım"
End If
Sg.Range("E18").Copy
Sg.Range("C7:C19").ClearContents
Sg.Range("F18").ClearContents

Application.ScreenUpdating = True

End Sub