Excel Vba Forum - Excelce.Net

SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Çözülen Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: voleybolcu - 14 Kasım 2011, 23:46:47

Başlık: Fark bulma
Gönderen: voleybolcu - 14 Kasım 2011, 23:46:47
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.
Başlık: Ynt: Fark bulma
Gönderen: Rami - 15 Kasım 2011, 00:31:47
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
Başlık: Ynt: Fark bulma
Gönderen: voleybolcu - 15 Kasım 2011, 20:14:53
Çok teşekkür ederim.