EŞİT OLMAYANLARI BULMAK

[ym54]

EÞÝT OLMAYANLARI BULMAK

For a = 1 To WorksheetFunction.CountA([a1:a65536])
b = WorksheetFunction.CountIf([b1:b65536], Cells(a, 1))


Yukarıdaki makroda iki sütunu karşılaştırıp bu sütunların ikisindede bulunan sayıları buluyor. Ancak ben iki sütundada bulunmayanları göstermesini istiyorum. :?

Yardımlarınızı bekliyorum.

Teşekkürler...

 

[ym54]

arkadaşlar bunun cevabı benim için çok önemli yardımlarınızı bekliyorum.

 

[veyselemre]

tam olarak ne yapmak istiyorsun yukardaki fonksiyon sadece A sütunundakilerden b sütununda kaç tane olduğunu veriyor.
Yani A da bulunup B de bulunmayanları ve B de bulunup A da bulunmayanları mı

 

[zafer]

Merhaba

 

[zafer]

Merhaba

Tekrar Bakabilirmisiniz

 

[ym54]

Eşit Olmayanları Karşılaştırıp Bulmak

Sub Listele()
For a = 1 To WorksheetFunction.CountA([a1:a65536])
b = WorksheetFunction.CountIf([b1:b65536], Cells(a, 1))
If b > 0 Then
c = c + 1
Cells(c, 4) = Cells(a, 1)
End If
Next a
End Sub

yukarıdaki bu fonksiyon a ve b sütunundaki aynı olan sayıları d sütununa atıyor. benim istediğim aynı olmayanları atsın.

teşekkürler...

 

[veyselemre]

Sub Listele()

ason = WorksheetFunction.CountA([a1:a65536])
bson = WorksheetFunction.CountA([b1:b65536])

For a = 1 To ason
b = WorksheetFunction.CountIf(Range("b1:b" & bson), Cells(a, 1))
If b <> 1 Then
c = c + 1
Cells(c, 4) = Cells(a, 1)
End If
Next a

' b de olup a da olmayanları da istiyorsan aşağıyı da ekle

For a = 1 To bson
b = WorksheetFunction.CountIf(Range("a1:a" & bson), Cells(a, 2))
If b <> 1 Then
c = c + 1
Cells(c, 4) = Cells(a, 2)
End If
Next a

End Sub

 

[ym54]

veyselemre 'ye teşekkür ediyorum.

Ayrıca zafer'e de teşekkür ediyorum bana yardımcı oldukları için.

 

[met07]

http://www.excel.web.tr/viewtopic.php?t=4914&highlight=
bir alternatif :hey: