Excel 3 sütunu eşleştirme

[websitesi84]

MERHABALAR;

A SÜTUNUNDA İSİMLERİN OLDUGU VE B SÜTUNUNDA İSİM C SÜTUNUNDA NUMARALAR VAR

B VE C SÜTUNU İSİM VE NUMARASI YANYANA

YAPMAK İSTEDİĞİM;
C SÜTUNUNDAKİ NUMARALARI A SÜTUNUNDA HANGİ İSMİN YANINA GELİYORSA ORAYA EŞLEŞTİRME YAPMASI, YOK İSE BOŞ BIRAKMASI

NOT: B VE C SÜTUNU GRUP BİLGİSİ

 

[websitesi84]

A SÜTUNU B SÜTUNU C SÜTUNU
ALİ AYŞE 5955555555
AYŞE ALİ 333333333


AYŞENİN NUMARASI 595555555 BEN BU NUMARAYI A SÜTUNUNDA AYŞE İSMİNİN YANINA YAZDIRMAK İSTİYORUM

 

[Necdet]

Merhaba,

Paylaşım sitelerinden birine (dosya.tc, dosya.co gibi) örnek dosyanızı eklerseniz yardım almanız hızlanır.

 

[bmutlu966]

Yanlış anlamadıysam aşağıdaki kod işinizi çözer. İstediğiniz bilgiyi D kolonunda listeler.

Sub Birlestir()

For t = 1 To [A65536].End(3).Row
    For s = 1 To [B65536].End(3).Row
        If Cells(t, "A") = Cells(s, "B") Then
        Cells(t, "D") = Cells(t, "A") & " " & Cells(s, "C")
        End If
    Next
   
Next

End Sub

 

[websitesi84]

Yanlış anlamadıysam aşağıdaki kod işinizi çözer. İstediğiniz bilgiyi D kolonunda listeler.

Sub Birlestir()

For t = 1 To [A65536].End(3).Row
    For s = 1 To [B65536].End(3).Row
        If Cells(t, "A") = Cells(s, "B") Then
        Cells(t, "D") = Cells(t, "A") & " " & Cells(s, "C")
        End If
    Next
  
Next

End Sub

TEŞEKKÜRLER KOD ÇALIŞTI FAKAT D SÜTÜNUNDA İSİM VE NUMARAYI BİRLEŞTİREREK YAZDI. BENİM İSTEDİĞİM D SÜTUNUNA İSMİ, E SÜTUNUNA NUMARAYI YAZMASIYDI. İLGİNİZE TEŞEKKÜR EDERİZ.

 

[bmutlu966]

Sub Birlestir()

For t = 1 To [A65536].End(3).Row
    For s = 1 To [B65536].End(3).Row
        If Cells(t, "A") = Cells(s, "b") Then
        Cells(t, "D") = Cells(t, "A")
        Cells(t, "E") = Cells(t, "C")
        End If
    Next
    
Next

End Sub

 

[websitesi84]

Sub Birlestir()

For t = 1 To [A65536].End(3).Row
    For s = 1 To [B65536].End(3).Row
        If Cells(t, "A") = Cells(s, "b") Then
        Cells(t, "D") = Cells(t, "A")
        Cells(t, "E") = Cells(t, "C")
        End If
    Next
    
Next

End Sub

TEşekkürler