Seçili Hücreye göre arama yapmak

[cagan73]

Merhabalar
A sayfası "A1" hücresine manuel bir isim giriyorum Örneğin "AHMET DEMİR"
bu verinin B sayfasındaki veri katarı içinde bulmak istiyorum
makroda yazmam gereken ifadeyi bir türlü bulamadım
Veri sürekli değişeceği için direk "AHMET DEMİR" aratamam

Şimdiden teşekkürler

Sheets("B").Select
Cells.Find(What: "BURAYA NE YAZMAM LAZIM?", After:=ActiveCell, LookIn _
:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate

 

[Erdem Akdemir]

Merhaba,

sheets("A").Range("A1") yazabilirsiniz.

Örnek dosya eklerseniz daha fazla yardım alabilirsiniz.

 

[cagan73]

Çok teşekkür ederim

Değerli Hocam
aynen çalıştı çok teşekkür ederim
Dosya ekleyebilmek için gün içinde mutlaka ücretli üyeliğe geçeceğim

Farklı bir dosyaya geçip arama yapmak için geliştirebilirmiyiz ?

Windows("B_Dosyası.xls").Activate

Cells.Find(What:=Windows("A_Dosyası.xls").Sheets("A").Range("A1"), After:=ActiveCell, LookIn _
:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate

Şu ifadeyi tutturamadım sanıyorum: Windows("A_Dosyası.xls")
A Dosyası A sayfası A1 hücre değeri= B Dosyasında aranacak

 

[Korhan Ayhan]

Aşağıdaki gibi deneyiniz.

Sub Test()
Aranan = Windows("A_Dosyası.xls").Sheets("A").Range("A1")

Windows("B_Dosyası.xls").Activate

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

 

[cagan73]

Farklı Dosya referans sıkıntılı sanırım

ekli dosyalarda malesef olmadı

 

[Erdem Akdemir]

merhaba,

Tam olarak yapmak istediğiniz nedir. Diğer sayfada buldurduğunuz veri ne işinize yarayacak.

Açıklamanıza göre başka yöntemlerde denenebilir.