ListView benzersiz veri alma

[unalh]

Merhaba arkadaşlar,


bir adet Listview mevcut buraya veri aldırıyorum fakat aynı olan kayıtların birkere gelmesi mümkünmü

Örneğin nokia iki kayıt var fakat ben listede bir defa görünsün istiyorum.


Şimdiden teşekkür ederim.

 

[unalh]

Yardım edebilecek arkadaş yokmu ???

Tşk.

 

[Ömer]

Merhaba,

Private Sub UserForm_Initialize()
On Error Resume Next
Sheets("Ödeme").Select
 
Application.DisplayAlerts = False
ListView1.ColumnHeaders.Clear
 
With ListView1.ColumnHeaders
    .Add , , "", 0, 0
    .Add , , "BULUNDUĞU YER", 150, 0
End With
 
ListView1.ListItems.Clear
 
For i = 2 To [d65536].End(xlUp).Row
  If WorksheetFunction.CountIf(Range("D2:D" & i), Cells(i, "D").Value) = 1 Then
    Set Liste = ListView1.ListItems.Add(, , Cells(i, 1).Value)
    Liste.SubItems(1) = Cells(i, 4).Value
  End If
 
Next i
Application.DisplayAlerts = True
End Sub

Bu şekilde denermisiniz..

.

 

[unalh]

Hocam teşekkürler çok güzel çalışıyor.

Bir ricam daha olacak arama bölümünede uygulayabilirmisiniz
Arama yapınca kayıtlı tüm veriler ortaya çıkıyor.


Cevabınız için şimdiden teşekkür ederim.

 

[Ömer]

Bu şekilde denermisiniz..

Private Sub Ara_Change()
ListView1.ListItems.Clear
On Error Resume Next
HU = UCase(Replace(Replace(Ara, "ı", "I"), "i", "İ"))
For i = 2 To [d65536].End(xlUp).Row
    If WorksheetFunction.CountIf(Range("D2:D" & i), Cells(i, "D").Value) = 1 Then
     If UCase(Replace(Replace(Sheets("Ödeme").Cells(i, 4).Value, "ı", "I"), "i", "İ")) _
       Like "*" & HU & "*" Then
       Set Liste = ListView1.ListItems.Add(, , Cells(i, 1).Value)
       Liste.SubItems(1) = Cells(i, 4).Value
     End If
    End If
Next i
End Sub

.

 

[unalh]

Ömer bey ilginize teşekkür ederim istediğim şekilde oldu.


Hayırlı Çalışmalar.