2 Sutun arasındaki fark

[deasn]

Merhaba arkadaşlar I sutununda olup A sutununda olmayan müşterileri nasıl bulabiliriz ?
Müşteri isimleri arasında fark olabilir.Olmayan müşteriyi bulmak için müşteri kodları kullansak kafidir.
http://s3.dosya.tc/server23/YOUu5X/Amasyakordinat.xlsx.html

 

[seyirtken]

Çok profesyonelce bir cevap olmayacak belki ama,

Her iki sütunu seçip:

Koşullu Biçimlendirme - Hücre Kurallarını Vurgula - Yinelenen Değerler

Seçip, renksiz kalanları filtreden süzebilirsin.

Umarım faydalı olur.

 

[EXTEBAN]

Öncelikle A sütunundaki data metin iken I sütunundaki data ise sayı. Öncelikle A sütunundakileri değere çevirmek için herhangi boş bir hücreye "1" yazıp kopyalayın ve "A" sütunundaki değerlerin işaretledikten sonra, sırayla "mouse ile sağ tık"-"Özel Yapıştır"-"Değerleri yapıştır"-"Çarparak" seçeneklerini işaretleyerek o sütundaki değerleri 1 ile çarptırmış ve sayıya çevirmiş olacaksınız. Sonra "K2" hücresine "=DÜŞEYARA(I:I;A:A;1;0)" formülünü yazıp aşağı doğru tüm hücrelere yapıştırın. "#YOK" değeri aldığınız müşteriler A sütutnun da olmayan müşterilerdir. Yapmaya çalışın, eğer olmaz ise dosya yükleyerek yardımcı olmaya çalışırım...

 

[excelokyanus500]

Sub test()
Dim rng As Range, c As Range, cfind As Range, rng1 As Range
'Worksheets("Sayfa1").Activate
Set rng = Range(Range("a2"), Range("a1500").End(xlDown))
Set rng1 = Range(Range("ı2"), Range("ı1500").End(xlDown))

For Each c In rng
Set cfind = rng1.Cells.Find(what:=c.Value, lookat:=xlWhole)
If Not cfind Is Nothing Then c.Interior.ColorIndex = 3
Next c
End Sub
dener misiniz
--------------------
2.Makro

Sub mukerrer_ve_olamayan()
Dim sat As Long
sat = Cells(65536, "A").End(xlUp).Row
Sheets("Sayfa1").Select
Application.ScreenUpdating = False
'Range("D2:E65536").ClearContents
Range("M1").Value = "Mükerrer Olmayan"
Range("N1").Value = "Mükerrer Olan"
sat2 = 2
For i = 2 To sat
If WorksheetFunction.CountIf(Range("A1:A" & i), Cells(i, "A").Value) = 1 Then
If WorksheetFunction.CountIf(Range("A1:A" & sat), Cells(i, "A").Value) > 1 Then
Cells(sat2, "I").Value = Cells(i, "A").Value
sat2 = sat2 + 1
End If
End If
Next i
sat = Cells(65536, "I").End(xlUp).Row
sat2 = 2
For i = 2 To sat
If WorksheetFunction.CountIf(Range("I1:I" & i), Cells(i, "I").Value) = 1 Then
If WorksheetFunction.CountIf(Range("A1:A" & sat), Cells(i, "I").Value) = 0 Then
Cells(sat2, "M").Value = Cells(i, "I").Value
sat2 = sat2 + 1

End If
End If

If WorksheetFunction.CountIf(Range("I1:I" & i), Cells(i, "I").Value) = 1 Then
If WorksheetFunction.CountIf(Range("A1:A" & sat), Cells(i, "I").Value) = 1 Then
Cells(sat2, "N").Value = Cells(i, "I").Value
sat2 = sat2 + 1
End If
End If
Next i

Application.ScreenUpdating = True
End Sub