2 sütun'u karsılastırıp farklı olanları bulmak

[ktekin]

öncelikle simdiden tesekkur etmek istiyorum .

elimde bir belge ve belgenin içinde 2 farklı sutunda ( a ve c )sıralanmıs toplam 14bin kusur numara var .

1 sutunda yaklasık 7500 diğerindede 5500 civarı tahminen .

2. sutundaki rakamların hepsi 1. sutunda zaten mevcut . yani bana arada kalan 2000 farklı numarayı bulmak kalıyor . fakat beceremiyorum

buna uygun bir makro yada yöntem soylermisiniz?

 

[S.Yiğit]

öncelikle simdiden tesekkur etmek istiyorum .

elimde bir belge ve belgenin içinde 2 farklı sutunda ( a ve c )sıralanmıs toplam 14bin kusur numara var .

1 sutunda yaklasık 7500 diğerindede 5500 civarı tahminen .

2. sutundaki rakamların hepsi 1. sutunda zaten mevcut . yani bana arada kalan 2000 farklı numarayı bulmak kalıyor . fakat beceremiyorum

buna uygun bir makro yada yöntem soylermisiniz?

Merhaba,


Düşeyara formülü ile yapılabilir. Küçük bir örnek ekler misiniz?

 

[ktekin]

dosyayı ekte belirttim . umarım yardımcı olabilirsiniz

tesekkur ederim

 

[ktekin]

mumkunmu yapılabilmesi ?

 

[ktekin]

Lutfen acilen bir cevap verebilirseniz . hayati bir mesele cunki . cok tesekkurler tekrar

 

[S.Yiğit]

Rarlı klasörleri açamıyorum. Sıkıştırmadan yollar mısın?

 

[ktekin]

buyrun .. tekrar tesekkur edeyim cunki cidden cok onemli bir olay bu .. umarım ne kısa zamanda yardımcı olursunuz .

 

[S.Yiğit]

Ben bişey göremiyorum?

 

[Ali]

2007 formatında xlsx olarak eklediğiniz için bakamadım ama aşağıdaki linki inceleyebilirsiniz.

http://www.excel.web.tr/f14/ayn-isimleri-bulup-listeleme-t60894.html

.

 

[ktekin]

Rar olmadan yollayamıyorum sanırım bende tekrar denedim umarım olur

A ve b sutunlarındaki ortak olanları bulmam gerekiyor

 

[S.Yiğit]

Pardon, 2007 olduğunu görmemişim

 

[tahsinanarat]

A SUTUNUNDA OLUP C SUTUNUNDA OLMAYANLARI E SUTUNUNA YAZDIRIR
Sub ayir()
Dim hcr As Range, j1 As Integer, j2 As Integer
On Error Resume Next
For i = 1 To [A65536].End(xlUp).Row
x = Columns("C:C").Find(Cells(i, "A"), lookat:=xlWhole).Row
If Err.Number <> 0 Then
j1 = j1 + 1
Cells(j1, "E").Value = Cells(i, "A")
Err.Clear
End If
Next
End Sub