İki Sütun Arasındaki Fark

[aserceylan]

Merhaba arkadaşlar;
Ekteki dosyada iki sütun arasında 507 kişilik bir fark var. Ben ilk sütunda olan ikinci sütunda olmayan isimleri bana karşılaştırabilecek bir fonksiyon arıyorum. DÜŞEYARA fonksiyonunu inceledim sanırım aradığım fonksiyon bu ama yine de çözüme ulaşamadım. Sistemim türkçe yardımcı olabilirseniz çok sevinirim. şimdiden teşekkürler.

 

[tahsinanarat]

Eşleşenlerin karşısında x var

Sub AraBul()
On Error Resume Next
Dim a, b As Variant
Dim alan1, alan2 As Range
Range("A1").Select
Range("B2:B10001").ClearContents
Range("D210001").ClearContents
Set alan1 = Range("A2:" & [A65536].End(xlUp).Address)
Set alan2 = Range("C2:" & [C65536].End(xlUp).Address)
'****************************************
For Each a In alan1
For Each b In alan2
If a.Value = b.Value Then
a.Offset(0, 1).Value = "X"
b.Offset(0, 1).Value = "X"
End If
Next
Next
'****************************************
MsgBox "Bitti", vbInformation + vbDefaultButton1 + vbOKOnly, "UYARI"
Range("A1").Select
End Sub


dosyanız ekte

 

[aserceylan]

çok teşekkür ederim tahsin bey elinize sağlık.