iki sutunu karşılaştırıp olamayanları c ye yazma

[lapistas]

A stununda bazı değerlerim var b sutunu da a da olan değerlerden bazısı var bazısı yok. Ben olmayan değerleri c ye yazdırmak istiyorum.

yardımcı olabilecek arkadaşaların desteğini bekliyorum.

şimdiden allah razı olsun.

 

[N.Ziya Hiçdurmaz]

yanıt

Sub benzersizler()
Dim sat As Integer, s As Integer
Range("c1:c" & Rows.Count).ClearContents
s = 1
    For sat = 1 To Cells(Rows.Count, "a").End(xlUp).Row
        If WorksheetFunction.CountIf(Range("b1:b" & sat), Cells(sat, "a")) = 0 Then
            Cells(s, "c") = Cells(sat, "a").Value
            s = s + 1
        End If
    Next
End Sub

 

[lapistas]

teşekkür ederim

teşekkür ederim

 

[septali]

Sub benzersizler()
Dim sat As Integer, s As Integer
Range("c1:c" & Rows.Count).ClearContents
s = 1
    For sat = 1 To Cells(Rows.Count, "a").End(xlUp).Row
        If WorksheetFunction.CountIf(Range("b1:b" & sat), Cells(sat, "a")) = 0 Then
            Cells(s, "c") = Cells(sat, "a").Value
            s = s + 1
        End If
    Next
End Sub

kardeşim S.a

bu kodu nasıl kullanacagız acıklayabilirmisin?

bide arkadasın sorusunu anlayamadım ben. a ve b yi karşılaştırıp olmayanları c ye mi yazacak örnek

A B C
1 1
2 1 2
3 3


Mesela B de 2 yok 2 yi C ye mi yazacak

 

[Mustafa MUTLU]

A sütununda olan aynı zamnda B sütununda da varsa
O veriyi almaz.
Yani C Sütununa sıralama:
A - B - C
1 - 1 - 2
2 - 3 - 4
3
4
Bu şekilde olur..
B sütununda bulunan 1 ve 3 verilerini C Sütununa almaz.