Farklı olanları ayırma

[ukonuk]

Merhaba ÇOK ACİL LÜFEN
telefon kodları olarak iki ayrı liste var fakt sorunum şu birinde olmayanları bulup diger listeyede eklemek

ikisindede tam liste yapa bilmek
kısaca farklı olalnalrı çıkarmma gerek A sutununu baz aldım
msn ve mail
ukonuk@mynet.com
ugur@voiphizmeti.com
Kırmızı farklı bir liste siyah farklı bir liste

ŞİMDİDEN TEŞEKÜR EDERİM

 

[fedeal]

inceleyin istediginiz gibimi?

 

[ukonuk]

Sanırım olmuş denemek için arasına var olan bir satır ekledim ama makro çalıştırınca sonuç alamadım
Yada şöyle desem ben benzer şekilde bir kaç listeyi yapmam gerek aynı listeyi silip yenisi ekledigim de sonuç alamadım ne yapmam gerek
Şimdiden tşk ederim

 

[fedeal]

Sub n()
For i = 1 To 2000
If WorksheetFunction.CountIf(Range("e2:e65000"), Cells(i, 1)) < 1 Then
G = Cells(65536, "I").End(xlUp).Row + 1
Cells(G, "I").Value = Cells(i, 1).Value
Cells(G, "j").Value = Cells(i, 2).Value
Cells(G, "k").Value = Cells(i, 3).Value
End If
Next
End Sub

ben sadece listeyi göndermiştim.makrosunu kullanmak için 1.listeyi a.b.c sütunlarına ikinci listeyi e.f.g sütunlarına kopyaladım. makronun mantığı birinci listede olup ikinci listede olmayanları I.J.K sütunlarına yazıyor.e.f.g sütunlarının altına ı,j,k sütunlarında çıkan sonucu kopyalayınca liste oluşuyor.