Makro sorun

[yildirimm]

arkadaşlar şimdi ben bi makrolu çalışma yaptım ve anasayfa diye bir yer var burda 6 tane sayfanın toplam verilerini gösterior aktar dedim mi ama sıkıntım şu elle girilirse tarih yazıldığı vakit aktar butonuna basilinca gösterior userformlada yaptim ama userformdan yapıldıgında kayıt yani aktar kısmına tarhi yazıp aktar diyince gelmior bunu nasıl çözerim şimdiden tşkler


kodlarda aşağıdadır

Sub aktar()

On Error Resume Next


Sheets("Anasayfa").Range("g9") = 0
Sheets("Anasayfa").Range("g10") = 0
Sheets("Anasayfa").Range("g11") = 0
gun = Sheets("anasayfa").Range("g8").Value


For a = 1 To Sheets.Count
If Sheets(a).Name = "Anasayfa" Then GoTo 10
sons = Sheets(a).Cells(65536, 2).End(xlUp).Row
Set bul = Sheets(a).Range("a5:a" & sons).Find(gun)
If bul = gun Then
adres = bul.Address

Sheets("Anasayfa").Range("g9") = Sheets("Anasayfa").Range("g9") + Sheets(a).Range(adres).Offset(0, 9)
Sheets("Anasayfa").Range("g10") = Sheets("Anasayfa").Range("g10") + Sheets(a).Range(adres).Offset(0, 10)
Sheets("Anasayfa").Range("g11") = Sheets("Anasayfa").Range("g11") + Sheets(a).Range(adres).Offset(0, 11)

End If

10 Next


End Sub

 

[Levent Menteşoğlu]

Sayfaya tarihi aşağıdaki gibi bir kod ile aktarmanız gerekir.

range("a1")=clng(cdate(textbox1))