aynı olanları bulma hk

[mosmos2009]

merhabalar,
ek'li dosyada "a" kolonunda olanları makro yardımı ile aynı olanları Sarı renkle isaretlemektedir, benim istediğim isaretle butonuna basınca List box gibi Hangi kolonu işaretlemesini soracak "A-Z" sutun arası listeden hangi sutun secilirse o sutunda aynı olanları bulması icin yardımlarınız rica olunur,

 

[mosmos2009]

anlasılmayan biryer varsa birazdaha açıklayabilirim. tsk

 

[mosmos2009]

yapılabilirmi ?

 

[Necdet]

Merhaba,

Kodlarınızda değişiklik yaptım, deneyiniz.

Sub BenzerIsaretle()
    
    Dim i   As Long, _
        Son As Long, _
        Kol As Range
        
    On Error Resume Next
    Application.ScreenUpdating = False
    
    Set Kol = Application.InputBox("Arama Yapmak İstediğiniz Sütundan Bir Hücre Seçiniz", "Sütun Seçimi", Type:=8)
    
    If Kol Is Nothing Then Exit Sub
    Son = Cells(Rows.Count, Kol.Column).End(3).Row
    
    For i = 1 To Son
        If Not Cells(i, Kol.Column) = "" Then _
            If WorksheetFunction.CountIf(Range(Cells(1, Kol.Column), Cells(Son, Kol.Column)), Cells(i, Kol.Column)) > 1 Then _
            Cells(i, Kol.Column).Interior.ColorIndex = 6
    Next i
    Application.ScreenUpdating = True
    
End Sub

 

[mosmos2009]

Süpersin hocam eline sağlık