Makro ile isimleri bir sütundan diğerine yazdırarak;

[abbasonline]

Makro ile isimleri bir sütundan diğerine yazdırarak mükerrer olanlara (*) işareti koymasın sağlayabilirmiyiz dosya ekte,

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub ALFABETİK_SIRALI_BENZERSİZ_LİSTE()
    Dim X As Long, Satır As Long, Son_Satır As Long
    
    Application.ScreenUpdating = False
    
    Range("K2:L65536").ClearContents
    X = 2
    Satır = 2
    Son_Satır = Range("C65536").End(3).Row + 1
    
    Do Until X = Son_Satır
        If Cells(X, "C") <> "" And Cells(X, "C") <> "ADI SOYADI" Then
            If WorksheetFunction.CountIf(Range("K:K"), Cells(X, "C")) = 0 Then
                Cells(Satır, "K") = Cells(X, "C")
                    If WorksheetFunction.CountIf(Range("C:C"), Cells(Satır, "K")) > 1 Then
                        Cells(Satır, "L") = "*"
                    End If
                Satır = Satır + 1
            End If
        End If
        X = X + 1
    Loop
    
    Columns("K:L").Sort Key1:=Range("K2"), Order1:=xlAscending, Header:=xlYes
    Columns("K:K").EntireColumn.AutoFit
    
    Application.ScreenUpdating = True
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[abbasonline]

Korhan bey teşekkürler kolay gelsin.

 

[abbasonline]

Korhan bey c sütunundaki isimlerin arasında satır boş olduğunda ve daha sonraki satırdanda isimler devam ettiğinde boş satıra kadar makro alıyor bunu en son satıra kadar yapmak mümkünmü.

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımdaki kodu güncelledim. İncelermisiniz.

 

[abbasonline]

Korhan bey ismi Ayşe ancak soyadı farklı olan isimleride doğru bir şekilde K sütununa yazıyor ancak karşısına (*) işareti koyuyor mükerrer gibi,

 

[Korhan Ayhan]

Selamlar,

Sıkıntı yaşadığınız dosyayı eklermisiniz. Dosya üzerinden kontrol edelim.

 

[abbasonline]

Dosya ekte,

 

[Korhan Ayhan]

Selamlar,

Sorun "L" sütununu sıralamaya dahil etmediğimiz için oluşuyor. Üstteki mesajımdaki kodu güncelledim. İncelermisiniz.

 

[abbasonline]

Ellerine sağlık güzel olmuş, kolay gelsin. Teşekkürler