Soru İNDİS hk.

[balanar]

=İNDİS(Sayfa2!C:C;KAÇINCI(Sayfa1!A2;Sayfa2!B:B;0))

Merhaba,

Şimdi bu kod ile Sayfa1'deki A:A daki veri ile Sayfa2'deki B:B verileri eşleşirse Sayfa2'deki C:C sutunundaki veriyi çektirip H2'ye yazdırıyorum.

Benim istediğim Sayfa2'den çektirdiğim C:C nin yanındaki D E:E F:F G:G gibi sütünlarıda çektirip H2'nin yanındaki I2 J2 K2 gibi sırayla yazdırmak.. Bu mümkün mü?

 

[Greenblacksea53]

Örnek dosyanız var mı ? Daha çabuk cevap alırsınız

 

[balanar]

buyrun hocam örnek

 

[Greenblacksea53]

Dosyan ekte

Sub Eşleştir()

Dim sayfa1 As Worksheet
Dim sayfa2 As Worksheet
Dim sonSatir1 As Long
Dim sonSatir2 As Long
Dim i As Long
Dim j As Long

Set sayfa1 = ThisWorkbook.Sheets("Sayfa1")
Set sayfa2 = ThisWorkbook.Sheets("Sayfa2")

sonSatir1 = sayfa1.Cells(Rows.Count, 1).End(xlUp).Row
sonSatir2 = sayfa2.Cells(Rows.Count, 2).End(xlUp).Row

For i = 2 To sonSatir1
    For j = 2 To sonSatir2
        If sayfa1.Cells(i, 1) = sayfa2.Cells(j, 2) Then
            sayfa1.Cells(i, 8) = sayfa2.Cells(j, 3)
            sayfa1.Cells(i, 9) = sayfa2.Cells(j, 4)
            sayfa1.Cells(i, 10) = sayfa2.Cells(j, 5)
            sayfa1.Cells(i, 11) = sayfa2.Cells(j, 6)
            sayfa1.Cells(i, 12) = sayfa2.Cells(j, 7)
        End If
    Next j
Next i

End Sub

Kodları mödüle eklersen, aynı sonucu verecektir. Umarım doğru anladım sizi hangisini kullanmak istiyorsanız onu kullanın

 

[Korhan Ayhan]

Alternatif;

H2 hücresine uygulayıp yana ve alta doğru sürükleyiniz.

=EĞERHATA(İNDİS(Sayfa2!$B:$F;KAÇINCI($A2;Sayfa2!$B:$B;0);SÜTUN(B$1));"")

 

[balanar]

Çok teşekkür ederim..