istediğim hücreyi seçip enter a basınca diğer sayfaya aktar lütfen yardım edermisiniz

[mustafayılmaz]

Private Sub yılmaz()
Selection.AutoFilter Field:=2
Selection.AutoFilter Field:=4

Set s1 = Sheets("1")
sat = Selection.Cells.Row - 1
say = WorksheetFunction.CountA(s1.[C1:C65536]) - 1
For A = 1 To 25
s1.Cells(say, A) = Cells(sat, A).Value


Sheets("1").Activate
Next
Sheets("1").Range("A:A,B:B,D").Select
Selection.NumberFormat = "@"
Sheets("1").Range("J:w").Select
Selection.NumberFormat = "#,##0.00"
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ReadingOrder = xlContext
.MergeCells = False
End With
Sheets("1").Range("I:I").Select
Selection.NumberFormat = "0"
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ReadingOrder = xlContext
.MergeCells = False
End With
s1.Cells(say, 9).Select
Application.OnKey ("{RETURN}"), "ENTER"

End Sub

Private Sub Worksheet_selectionChange(ByVal Target As Range)
If Intersect(Target, [a2:a65000,b2:b65000,d2:d65000]) Is Nothing Then Exit Sub
If Target.Column = 1 Or Target.Column = 2 Or Target.Column = 4 Then yılmaz
If Intersect(Target, [c1:c15000]) Is Nothing Then Exit Sub
Takvim.Show

End Sub

 

[mustafayılmaz]

sayın hocalarım lütfen yardım edermisiniz

1.sayfadan arama yaptırıp veri sayfasında bulduklarımı
çift tıklama ile aktarıyordum
benim istediğim
1.sayfada girilen değeri arattığımda veri sayfasında
örnek 10 tane satırda arattığım değer çıkıyor
bu arattığım değerlerin üzerinde aradığım değerin üzerine ok
tuşlarıyla gelip entere basınca 1.sayfaya aktarmasını istiyorum
lütfen yardım edermisiniz