Listview de tekrarlı kayıt iptali

[Bosnalı Yasemin]

Merhaba;
Sayfa1'de A1'den (A kolonu sicil, B kolonu ad-soyad....) G1000'e kadar olan ve içerisinde tekrar eden ad-soyad bulunan verileri listviewde tekrarsız olarak gösterebilir miyiz ?

Bir örnek koyma gereği duymadım ama gerekirse koyabilirim.
(Listview kullanmak istememin sebebi listbox ta sıralı olarak tüm kolonları kullanmak gerekirken listviewde sadece istediğim bazı kolonları kulanabilme imkanı olması nedeniyledir.)

Birçok formda aradım ama maalesef bulamadım.

 

[Necdet]

Merhaba,

Başka yöntemlerle de yapılabilir.

Private Sub UserForm_Initialize()
    Dim i As Long
    Dim j As Long
    With ListView1
        .View = lvwReport
        .Gridlines = True
        With .ColumnHeaders
            .Add , , "Sicil", 50
            .Add , , "Adı Soyadı", 60, lvwColumnCenter
        End With
        .FullRowSelect = True
        .ListItems.Clear
    End With
    For i = 2 To Cells(Rows.Count, "A").End(3).Row
        If Application.WorksheetFunction.CountIf(Range("A2:A" & i), Cells(i, "A")) = 1 Then
            j = j + 1
            ListView1.ListItems.Add , , Cells(i, "A")
            ListView1.ListItems(j).SubItems(1) = Cells(i, "B")
        End If
    Next i
End Sub

 

[Bosnalı Yasemin]

Çok teşekkür ederim. Bende bu çözüm gelmeden önce excelde manuel olarak süzdürerek ve bunu makro kaydet tuşundan faydalanarak makro haline getirerek biraz becerdim ama yönteminiz daha kolay ve kullanışlı.