bul ve yanıbaşındaki hücreye koy

[bedriyalcin]

Arkadaşlar A sütününde bir liste var B sütününde ise aynı isimler yerleri değişik daha doğrusu B sütününü başka bir kitaptan alıp A sütünü ile karşılaştırmak istiyorum ekte sunduğum dosyada 1. sayfada karışık hali 2. sayfada ise yapmak istediğim.
Bu mümkün mü acaba açıkçası ben bu tür verileri karşılaştırmak için özellikle bordro çalışmalarında çok zaman sarf ediyorum.
Yardım edeck olan üstatlarıma şimdiden teşekürlerimi sunuyorum

 

[N.Ziya Hiçdurmaz]

yanıt

Sub karsilastir_aktar()
Dim sat1, sat2 As Long
Sayfa2.[b1:c1000] = Empty
Sayfa2.[a1:A10000] = Sayfa1.[a1:A10000].Value
    For sat1 = 1 To Sayfa2.Cells(65536, "a").End(xlUp).Row
    For sat2 = 1 To Sayfa1.Cells(65536, "b").End(xlUp).Row
        If Sayfa2.Cells(sat1, "a") = (Sayfa1.Cells(sat2, "b")) Then
            Range(Sayfa2.Cells(sat1, "b"), Sayfa2.Cells(sat1, "c")) = Range(Sayfa1.Cells(sat2, "b"), Sayfa1.Cells(sat2, "c")).Value
        End If
    Next: Next
End Sub

 

[use2000]

Düşeyara formülü ile yapabilirsiniz

 

[bedriyalcin]

Ziya hocam ellerinize sağlık
çok iyi bir çalışma olmuş teşekür ediyorum