Listbox'taki aynı addaki kayıtları teke indirme

[Ali Kaplan]

Tarihlerle İlgili Bir Listbox oluşturdum Fakat aynı tarihleri sadece bir defa göstermesini istiyorum.

 

[Levent Menteşoğlu]

Sadece tarih bilgisini alıyor,yani tek sütun,birde listboxa yazdığınız kodu verirmisiniz.

 

[Ali Kaplan]

Evet sadece tarih bilgisi alıyor. Evet tek sütunda.

For i = 1 To 5000
If TextBox1.Text = Sayfa1.Range("a" + CStr(i)) Then
ListBox1.AddItem (Sayfa1.Range("b" + CStr(i)))
End If
Next i

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:5e7c8ea677]For i = 1 To 50000
If WorksheetFunction.CountIf(Range("B1:B" & i), Cells(i, 2).Value) = 1 Then
ListBox1.AddItem (Sayfa1.Range("b" & i).value)
End if
Next
[/vb:1:5e7c8ea677]

Ayrıca şağıdaki linkide inceleyin.

http://www.excel.web.tr/viewtopic.php?t=3814

 

[Ali Kaplan]

İlginize çok teşekürler ama yine olmadı yine aynı tarihi birkaç kez yazıyor. Ã?rneğin b sütununda 15.04.2004 tarihi bir kaç kez kullanılmış ama ben listboxta bu tarihin 1 kez yazılmasını istiyorum böyle bir şansım varmı yani anlıyacağınız listboxta mükerrer verilerin listelenmesini istemiyorum.

 

[Levent Menteşoğlu]

Yukarıda vermiş olduğum kodun kullanıldığı,ekteki örneği inceleyin.

 

[Ali Kaplan]

Evet Haklısnız Oldu

İlginize çok çok teşekkürler ufak bir yardım daha isteyeceğim. bu sefer sizin yapmış olduğunuz örnekte listboxa aynı olmayan değereleri yüklerken C sütununda da karşılaştırma yapsın ve sadece C sutununda 2 olan değerlerin olduğu kısmı alabilirmiyiz.

Sizin gönderdiğiniz bu şekildeydi;
For i = 1 To Cells(65536, 2).End(xlUp).Row
If WorksheetFunction.CountIf(Range("B1:B" & i), Cells(i, 2).Value) = 1 Then
ListBox1.AddItem (Sayfa1.Range("b" & i).Value)
End If
Next

Ben bunu ekledim ama pekde sonuç alamadım.

For i = 1 To Cells(65536, 2).End(xlUp).Row
If TextBox1.Text = Sayfa1.Range("c" + CStr(i)) Then


If WorksheetFunction.CountIf(Range("B1:B" & i), Cells(i, 2).Value) = 1 Then
ListBox1.AddItem (Sayfa1.Range("b" & i).Value)
End If
End If
Next

 

[Levent Menteşoğlu]

Ekteki örneği inceleyin.

 

[Ali Kaplan]

Evet olay budur ellerine sağlık çok çok teşekkürler.