Bul ve git yardımcı olurmusnuz

[Aşkın Şahin]

ta diye bi değişken atayıp A1 hücresini söyledim olmadı yardımcı olurmu sunuz, A1 de aratmak istediğim tarih

Sub de()

ta = Sheets("Ana Sayfa").Range("A1").Value

Cells.Find(What:=ta, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate

End Sub

[Aşkın Şahin]

Çözüldü teşekkür ederim.

Sub Makro1()

Sheets("Ana Sayfa").Select
Range("B5:AA9").Select
Selection.ClearContents
Sheets("Veri").Select

Sheets("Veri").Select
Range("A1").Select
ta = Sheets("Ana Sayfa").Range("A1")
Cells.Find(What:=ta, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate

ActiveCell.Offset(0, 2).Range("A1:Z5").Select
Selection.Copy
Sheets("Ana Sayfa").Select
Range("B5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Application.CutCopyMode = False
End Sub