Yandaki Sayfadan Bul Getir

[tetrax]

verilerin bulunduğu sayfadan anahtar sütuna göre eşleşen hücre bilgilerini almak istiyorum.

daha ayrıntılı bir açıklamanın da yeraldığı örnek dosya ektedir.
yardımcı olacak tüm arkadaşlara şimdiden teşekkür ederim...

 

[Ferhat Pazarçevirdi]

Merhabalar

Eğer bütün listeyi girdikten sonra, verilerin tümünü getirmek istiyorsanız, aşağıdakini standart bir modül sayfasına kopyalayınız, bir düğmeye atayınız.

Sub Veri_Getir()
Dim sh1 As Worksheet, sh2 As Worksheet
Dim bul As Range
Dim i%
Set sh1 = Sheets("Sayfa1")
Set sh2 = Sheets("Sayfa2")
For i = 2 To sh1.Cells(65536, 5).End(xlUp).Row
    Set bul = sh2.Columns(5).Find(sh1.Cells(i, 5), lookat:=xlWhole)
    If Not bul Is Nothing Then
       sh1.Cells(i, 8) = bul.Offset(0, 1)
       sh1.Cells(i, 9) = bul.Offset(0, 2)
       sh1.Cells(i, 10) = bul.Offset(0, 3)
    End If
Next i
Set bul = Nothing
Set sh1 = Nothing
Set sh2 = Nothing
End Sub

Eğer, hücreye K.NO girdiğiniz anda, yandaki bilgilerin gelmesini istiyorsanız, Sayfa1 adlı sheet'in kod sayfasına aşağıdakileri kopyalayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sh1 As Worksheet, sh2 As Worksheet
Dim bul As Range
Dim i%
If Intersect(Target, Range("E:E")) Is Nothing Then: Exit Sub
Set sh1 = Sheets("Sayfa1")
Set sh2 = Sheets("Sayfa2")
Set bul = sh2.Columns(5).Find(Target, lookat:=xlWhole)
If Not bul Is Nothing Then
   sh1.Cells(Target.Row, 8) = bul.Offset(0, 1)
   sh1.Cells(Target.Row, 9) = bul.Offset(0, 2)
   sh1.Cells(Target.Row, 10) = bul.Offset(0, 3)
End If
Set bul = Nothing
Set sh1 = Nothing
Set sh2 = Nothing
End Sub

 

[tetrax]

Sayın fpc;
hocam çok teşekkür ederim.
gayet güzel çalışıyor.
ellerine sağlık.....