ayrı sütunlardaki hesapların benzersiz olanları

[hayri tekin]

Merhaba,
Ekli dosyamdaki iki ayrı sütundaki hesap isimlerinin benzersiz olanlarını J sütununa yazdırmak istiyorum.

 

[Ziynettin]

Merhaba,

Sub tetintek()
    Dim i, j, son, sat As Integer
    Range("J2:J" & Rows.Count).ClearContents
    son = Range("B" & Rows.Count).End(3).Row
            sat = 2
    For i = 3 To son
        For j = 2 To 3
            If WorksheetFunction.CountIf(Range("B" & i & ":C" & j), Cells(i, j)) = 1 Then
            Cells(sat, "J") = Cells(i, j)
            sat = sat + 1
            End If
        Next j
    Next i
End Sub

 

[hayri tekin]

Merhaba,

Sub tetintek()
    Dim i, j, son, sat As Integer
    Range("J2:J" & Rows.Count).ClearContents
    son = Range("B" & Rows.Count).End(3).Row
            sat = 2
    For i = 3 To son
        For j = 2 To 3
            If WorksheetFunction.CountIf(Range("B" & i & ":C" & j), Cells(i, j)) = 1 Then
            Cells(sat, "J") = Cells(i, j)
            sat = sat + 1
            End If
        Next j
    Next i
End Sub

İlginiz için teşekkürler..Aslında makrosuz çözüm bekliyordum.Gerçi bu da olur da ama bu makronun otomatik çalışması lazım .

 

[sametozyavuz]

İlginiz için teşekkürler..Aslında makrosuz çözüm bekliyordum.Gerçi bu da olur da ama bu makronun otomatik çalışması lazım .

bu da otomatik hali.

 

[muygun]

Merhaba;
Alternatif olsun.
İnceleyin.
İyi çalışmalar.

 

[hayri tekin]

Arkadaşlar değişik çözümleriniz için çok teşekkür ediyorum. Herbiri birbirinden değerli çözümler olmuş.
esen kalın