Fark bulma

[voleybolcu]

Merhaba.

Bir excel dosyasının B sütununda olup, A sütünunda olmayan İngilizce kelimeleri alfabetik sıralamayla C sütununa yazan bir makro programını sizlerden rica ediyorum.

İyi günler.

NOT: Makro programının çalışmasını gösteren örnek dosya ekte yer almaktadır.

[Rami]

Aşağıdaki gibi olabilir.

Kod: [Seç]

Sub Makro1()
[c:c] = Empty
For i = 1 To Cells(65536, "b").End(xlUp).Row
    If WorksheetFunction.CountIf(Range("a1:a65000"), Cells(i, 2).Value) = 0 Then
    x = Cells(65000, 3).End(xlUp).Row
    Cells(x + 1, 3).Value = Cells(i, 2).Value
    End If
    Next
    Columns("C:C").Sort Key1:=Range("C1")
End Sub


[voleybolcu]

Çok teşekkür ederim.