Aynı kodları Yanyana Getirsin Kod olmadığında Boş satır yapsın?

[yer06]

Sevgili uzman arkadaşlarım A Sutununda Kodlar var B sutununda İsimleri C sutununda A sutununda bulunan kodlardan var değişik kodlarda var tabiki D sutunundada B sutununda bulunan isimler ve değişik isimlerde var kısacası öyle birşey yapmalıyızki A,B stununda bulunan verilerle C,D sutununda bulunan verilerin aynıları yan yana gelsin yanyana gelmeyenlerde satır bıraksın bunu nasıl yapabiliriz şimdiden çok tşk ederim örneği ekledim arkadaşlar bakarsanız ne dediğimi anlayacaksınız sevgiler saygılar

 

[Recep İpek]

Şimdilik formüllerle yapılmış çözüm ektedir.

 

[yer06]

çok tşk ederim ellerinize sağlık inşallah makrosunuda yazan olur

 

[Recep İpek]

Aynı formülün makro kodları aşağıdadır.

Sub BulYaz()
On Error Resume Next
Range("c1:d100").ClearContents
For i = 1 To [a65536].End(3).Row
Cells(i, "c").Value = WorksheetFunction.VLookup(Cells(i, "a"), Range("f1:g100"), 1, False)
Cells(i, "d").Value = WorksheetFunction.VLookup(Cells(i, "a"), Range("f1:g100"), 2, False)
Next i
End Sub