Çoklu Bulma ve Karşısındaki Değeri Listeleme isimli içerikte, ilgili işlemin VBA kodları ile nasıl yapacağınızı öğreten bir Hazır Makro Kodu yer almaktadır.
Faydalanılması temennisiyle
Hazır Kod
VBA:
Dim alan()
Sub Coklu_Bulma()
Sayda1.Select
verisonsatir = Cells(Rows.Count, "A").End(3).Row
secim = "A2:D" & verisonsatir
alan = Range(secim)
Sayfa2.Select
sonucsonsatir = Cells(Rows.Count, "A").End(3).Row
secim = "C2:F" & sonucsonsatir
Range(secim).Select
Application.CutCopyMode = False
Selection.ClearContents
Range("C2").Select
satir = 1
For i = 2 To sonucsonsatir
aranan = Cells(i, 1).Value
buldu = False
For j = 1 To verisonsatir - 1
bakilan = alan(j, 1)
If aranan = bakilan Then
satir = satir + 1
Cells(satir, "C").Value = alan(j, 1)
Cells(satir, "D").Value = alan(j, 2)
Cells(satir, "E").Value = alan(j, 3)
Cells(satir, "F").Value = alan(j, 4)
buldu = True
End If
Next
If buldu Then Cells(i, 2).Value = "Bulundu" Else Cells(i, 2).Value = "Bulunamadı"
Next i
End SubAçıklama
Kodu çalıştırmak için 2 ayrı Excel sayfası ve A-F arası benzer verilere sahip olmanız gerekir.Faydalanılması temennisiyle