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
-
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.
-
Aşağıdaki gibi olabilir.
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
-
Çok teşekkür ederim.