mükerre kayıtlar listboxa

[sekand]

selamlar
b2:b1000 aralığımda belirli zamanlarda girdiğim veriler var
bunların bazıları aynı isimleri taşıyor
istediğim : ben formu açtığımda butona tıkladığımda b2:b1000 aralığında ki verileri listboxta sıralayacak ancak o isimden 10 larca olsa bile sadece birini görüntüleyecek
saygılarımla

 

[zafer]

Merhaba

Private Sub CommandButton1_Click()

For b = 2 To Cells(65536, 2).End(xlUp).Row
If WorksheetFunction.CountIf(Range("b2:b" & b), Cells(b, 1)) = 1 Then
ListBox1.AddItem Cells(b, 1).Value

end if
next
End Sub

 

[sekand]

zafer bey yardımlarınız için teşekkürler ancak
kod hiç çalışmadı sorun nedir acaba
saaygılar

 

[zafer]

Merhaba

Aktif olan sayfanız da bulunmadığınızdan dolayı olabilir.

Sheets("a") da "a" ları kendi sayfa adınıza göre değiştirin

Private Sub CommandButton2_Click()

For b = 2 To Sheets("a").Cells(65536, 2).End(xlUp).Row
If WorksheetFunction.CountIf(Sheets("a").Range("b2:b" & b), Sheets("a").Cells(b, 2)) = 1 Then
ComboBox1.AddItem Sheets("a").Cells(b, 2).Value


End If
Next

End Sub

 

[sekand]

özür dilerim ama vallahi olmuyor
sayfa isminide değiştirdim ama butona tıkladığımda listbox hala boş duruyor

 

[zafer]

Merhaba

Ben yanlış anlamışım combobox'a göre yapmışım ,düzenlemede de hatalarım var.afedersiniz aaşağıdaki kodları kullanın

Private Sub CommandButton1_Click()

For b = 2 To Sheets("sayfa1").Cells(65536, 2).End(xlUp).Row
If WorksheetFunction.CountIf(Sheets("sayfa1").Range("b2:b" & b), Sheets("sayfa1").Cells(b, 2)) = 1 Then
ListBox1.AddItem Sheets("sayfa1").Cells(b, 2).Value


End If
Next

End Sub

 

[sekand]

çok teşekkürler elinize sağlık