Her sütun tek bir kayıt olsun.

[By_AbbA]

Merhaba arkadaşlar,
Bana bi makro lazım. bu makroyu çalıştırdıgımızda

yukarıdaki listedeki her bir kaydı tarayıp aynı kayıtları sildikten sonra alfabetik olarak sıralasın.
Sonuç olarak

bu görünüm elde edilsin.

Bu tarz makroyu kodlayabilecek arkadaşlar lütfen benimle msnden irtibata geçsinler.
By_AbbA@hotmail.com

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub TEKRAR_EDENLERİ_SİL_SIRALA()
    Application.ScreenUpdating = False
    SÜTUN = Application.InputBox("LÜTFEN SÜTUN BİLGİSİ GİRİNİZ !" & Chr(10) & Chr(10) & "(Örnek : A-B-C gibi)", "SÜTUN SEÇİMİ")
    If SÜTUN = False Or SÜTUN = "" Then Exit Sub
    For X = Cells(65536, SÜTUN).End(3).Row To 1 Step -1
    If WorksheetFunction.CountIf(Range(Cells(X, SÜTUN), Cells(1, SÜTUN)), Cells(X, SÜTUN)) > 1 Then Rows(X).Delete
    Next
    Columns(SÜTUN).Sort Key1:=Range(SÜTUN & 1), Order1:=xlAscending
    Application.ScreenUpdating = True
    MsgBox "İŞLEMİNİZ TAMAMLANMIŞTIR.", vbInformation
End Sub

 

[By_AbbA]

Çok teşekkür ederim.