makro içindeki ctrl+f komutunun değişken yapmak

[engin kablan]

çalışma sayfası ctrl+f komutunu kullanarak arama yaptığım zaman aranıcak değere başka bir çalışma sayfasındaki bir hücredeki değeri yazdırmak istiyorum.

yardımlarınız için şimdiden teşekkür ederim.

Range("A17").Select
Windows("geri bildirim.xls").Activate
Range("D16").Select
Selection.Copy
Application.WindowState = xlMinimized
Windows("Veritabanı DATA.xls").Activate
Cells.Find(What:="38674,4144934", After:=ActiveCell, LookIn:=xlFormulas _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
Windows("geri bildirim.xls").Activate
Rows("1:13").Select
Range("A13").Activate
Selection.EntireRow.Hidden = False
Range("C1:C12").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Veritabanı DATA.xls").Activate
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Range("A2").Select
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWindow.Close
Rows("1:12").Select
Range("A12").Activate
Selection.EntireRow.Hidden = True
Range("B19").Select
ActiveCell.FormulaR1C1 = "kayıt yapıldı."
Range("B21").Select
End Sub

 

[danersin]

Umarım anlamışımdır soruyu.

aranandeger=sheets("sayfaadınız").cells(3,5) 'bu satırı kendinize uyarlayın.

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

 

[engin kablan]

tesekkur ederim.