[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]
İ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.
İ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
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.