Sayfalar arası veri arama

[osmanli2]

Ekli dosyada sayfa 1 veri sayfasında sayfa 2 deki istenen verilerin listelenmesi ile ilgili yardımlarınızı rica ederim. teşekkürler.

 

[leumruk]

Merhaba,

Sub Bul_Getir()
Set s1 = Sheets("Sayfa1"): Set s2 = Sheets("Sayfa2")
For x = 2 To s2.[ı65536].End(3).Row
Set Bul = s1.Range("a2:a" & s1.[a65536].End(3).Row).Find(s2.Cells(x, "ı"), LookIn:=xlValues, LookAt:=xlWhole)
If Not Bul Is Nothing Then
s2.Cells(x, "p") = s1.Cells(Bul.Row, "b")
s2.Cells(x, "q") = s1.Cells(Bul.Row, "c")
s2.Cells(x, "r") = s1.Cells(Bul.Row, "d")
s2.Cells(x, "s") = s1.Cells(Bul.Row, "e")
End If: Next
End Sub

 

[osmanli2]

çok teşekkür ederim üstadım ...

 

[leumruk]

çok teşekkür ederim üstadım ...

Rica ederim.

 

[parametre]

Peki boyle bir soruyu soyle sorarsak nasıl bir şekilde cozum alabiliriz? ornek olarak arkadasımızın verdigi ama o bilgilerin oldugu çok sayıda dosya var (bir dizinin içinde ) dosya adı belirtmeden nasıl aranabilir yardımcı olursanız sevinirim yardımlarınız için sevinirim şimdiden .