excel tablosunda veri eşleştirme

[ebruesim]

ekte gönderdiğim tablo1 ve 2 yi birleştirip tablo 3 yapmanın formulu bana gösterbilirseniz ya da hangi video da bu işlem anlatılmaktadır. yardımcı olursanız çok sevinirim.
kolay gelsin.

 

[muygun]

Merhaba;
Eki deneyin.
İyi çalışmalar.

 

[ebruesim]

Merhaba;
Eki deneyin.
İyi çalışmalar.

cevabınız için çok teşekkür ederim.
diğer tablolarımda bu işlemi uygulanıbilir hale getirebilir miyim yoksa bu beni biraz aşar mı? bu konuda yardımcı olursanız çok sevinirim. kolay gelsin.

 

[muygun]

Merhaba;
Biraz makro bilgisi ile gereken dönümü yapabilirsiniz. sayfada iken Alt+F11 tuşlarına basarak vba kısmına geçebilir ve makroyu görebilirsiniz.

Basit bir makro kullandım. Bu makroyu satır satır açarsak

Application.ScreenUpdating = False
(yapılan işlemi ekranda gösterme yani hafızada yap)

On Error Resume Next
(hatadan sonra devam et)

Sheets("Temp4").Range("H3:j65536").ClearContents
(Temp4 sayfası H3:J65536 aralığı temizleniyor)

sat = 3
(sat değişkenine 3 sayısı atanıyor. Bu başlangıç satır no’su olacak döngü içerisinde bunu artırarak yazılacak satır nosu belirlenecek)

Set s1 = ThisWorkbook.Worksheets("Temp4")
(s1 değişkenine sayfa adı atanıyor. Artık s1 Temp4 sayfası demektir)

For i = 3 To s1.Range("A65536").End(xlUp).Row
(i değişkeni s1 yani Temp4 sayfası 3 den A sütunundaki son dolu satıra kadar döndürülüyor)

s1.Cells(i, "h") = s1.Cells(i, 1)
(döngü başlangıcında i değişkenin değeri 3 Dolayısıyla s1 sayfası 3. satır 1. sütun değeri yine s1 sayfası 3.satır “h” sütununa yazdırılıyor)

s1.Cells(i, "ı") = s1.Cells(i, 2)
(döngü başlangıcında i değişkenin değeri 3 Dolayısıyla s1 sayfası 3. satır 2. sütun değeri yine s1 sayfası 3.satır “I” sütununa yazdırılıyor)

For k = 3 To s1.Range("d65536").End(xlUp).Row
(k değişkeni s1 yani Temp4 sayfası 3 den D sütunundaki son dolu satıra kadar döndürülüyor)

If s1.Cells(i, 1) = s1.Cells(k, "d") Then s1.Cells(i, "j") = s1.Cells(k, "e")
(eğer s1 sayfası 3.satır 1.sütun değeri yine s1 sayfası k değişken satır nosu ,”D” sütun değerine eşitse s1 sayfası i değişken satırına ve “J” sütununa s1 sayfası k değişken satırı ve “E” sütun verisini yaz)
Next k
(k döngüsünü bitir)( ÖNEMLİ iç içe FOR döngüleri son açılandan başlayarak bitirilir)

Next i
(i döngüsünü bitir)

Application.ScreenUpdating = True
(ekran işlemini normale dönüştür)

MsgBox "İşlem TAMAM.", vbInformation
(mesaj ile işlemin bittiğini bildir)

Bu kadar...
İyi çalışmalar.