eşleşenleri bulup veri alma yardım ?

[subutayı]

merhaba arkadaşlar,
excel çalışma kitabında sayfa1 H1000 e kadar olan sayı formatında verilerim var. sayfa2 de H10000 e kadar olan verilerle eşleşenlerin sayfa2 deki P10000 ve Q10000 e kadar olan verileri almak istiyorum. veriyi "bul" isimli sayfada listelensin. yada kod o sayfaya yazılsın. ilginiz için teşekkür ederim.

 

[Mustafa MUTLU]

Sub Veriler()
Application.ScreenUpdating = False
Sheets("bul").Range("B2:D65536").ClearContents
MM = 2
For MSTF = 2 To Sheets("Sayfa1").Cells(65536,"H").End(xlUp).Row
For MSTF1 = 2 To Sheets("Sayfa2").Cells(65536,"H").End(xlUp).Row
If Sheets("Sayfa1").Cells(MSTF,"H") = Sheets("Sayfa2").Cells(MSTF1,"H") Then
Sheets("bul").Cells(MM,"B") = Sheets("Sayfa2").Cells(MSTF1,"H")
Sheets("bul").Cells(MM,"C") = Sheets("Sayfa2").Cells(MSTF1,"P")
Sheets("bul").Cells(MM,"D") = Sheets("Sayfa2").Cells(MSTF1,"Q")
MM = MM + 1
End If
Next
Next
Application.ScreenUpdating = True
MsgBox  " İŞLEMİNİZ TAMAMLANDI", vbInformation, "Bitiş"
End Sub

 

[subutayı]

üstadım, kodu modüle yapıştırdım hata verdi. kontrol edebilir misiniz.

 

[Mustafa MUTLU]

Ne hatası aldınız.
Sayfa isimleri doğrumu,
Sayfa1-Sayfa2-bul

 

[subutayı]

mustafa bey, süpersiniz. bul sayfasının kod bölümüne yapıştırınca çalıştı. teşekkürler.
düşeyara ile yapılışını da yazabilir misiniz? ilginiz için teşekkürler.

 

[Mustafa MUTLU]

Bul sayfasına
B2 ye =DÜŞEYARA(Sayfa1!H2;Sayfa2!$H$2:$Q$10000;1;0)
C2 ye =DÜŞEYARA(Sayfa1!H2;Sayfa2!$H$2:$Q$10000;15;0)
D2 ye =DÜŞEYARA(Sayfa1!H2;Sayfa2!$H$2:$Q$10000;16;0)

Sonra 1000 satır aşağıya doğru kopyalayın.
Bu formülde : Tekrarlayan verilerde sorun yaşarsınız.