Karşılaştırma

[muhkem_]

Merhaba,
Aşağıda iki sütun arasındaki bilgileri karşılaştırıp (B de olup A da olmayan) aradaki farkları C sütununa yazdırtabilirmiyiz.

A SÜTUNU - B SÜTUNU
12 12
13 14
14 16
15 18
16 17
17 19

(Sonuç : 18,19)

 

[Explorer]

Aşağıdaki kodlar sanırım işinizi görür
[vb:1:8cc03b6595]Sub Fark_Bul()
Dim Hucre As Range, i

For Each Hucre In Range("B1", Range("B65536").End(xlUp))
If WorksheetFunction.CountIf(Range("A1", Range("A65536").End(xlUp)), Hucre) = 0 Then
i = i + 1
Range("C" & i) = Hucre
End If
Next
End Sub[/vb:1:8cc03b6595]

 

[kaburkan]

Çok özür dileyerek ben yeniyim, bir şey öğrenmek istiyorum
Aynı satırdaki sütunları nasıl karşılaştırabilirim mesela

A SÜTUNU DSÜTUNU J SÜTUNU
aspirin 1023 1023
vermidon 554 556
cataflam 300 300

Benim istediğim d sütunu ile j sütununu karşılaştırıp farklı ise başka bir sütuna "FARKLI" , aynı ise "AYNI" diyecek bir makro çalıştırmak, yardımcı olursanız sevinirim.
Þimdiden çok teşekkür ederim

 

[kaburkan]

Ã?zür diliyorum çözümü buldum, teşekkür ederim

 

[TRABLUS]

Ã?zür diliyorum çözümü buldum, teşekkür ederim

Sayın kaburkan,
Buldum dediğiniz çözümü burada paylaşırsanız, bilmeyen ve öğremeye çalışan diğer üyelere faydası olur kanaatindeyim.