4 Ayrı ListBox da Benzer İsme Ait Listeleme...!!!

[ocamsul]

Arkadaşlar merhabalar.

Ekde gönderdiğim örneğin içinde de açıkladığım gibi 4 Ayrı listbox da combo ile seçim sonucunda bu kayıtların listboxlarda raporlanması ile ilgili bir sorunum var. Yardım ederseniz sevinirim.

 

[ocamsul]

Arkadaşlar ismi seçtiğimizde kayıtları veriyo ancak komboda aynı isimli iki kayıt oluyo. Benim istediğim komboda o personelin birden çok kaydı varsa bile tek isminin yer alması.

 

[zafer]

Merhaba

UserForm_Initialize bölümünü silin
aşağıdaki kodları yapıştırın

Private Sub UserForm_Initialize()
ComboBox1.SetFocus
ListBox1.ColumnCount = 7
ListBox2.ColumnCount = 7
ListBox3.ColumnCount = 7
ListBox4.ColumnCount = 7

With Application
Me.Top = .Top
Me.Left = .Left
Me.Height = .Height
Me.Width = .Width

Set s1 = Sheets("veri")
For b = 4 To s1.Cells(65536, 2).End(xlUp).Row
If WorksheetFunction.CountIf(s1.Range("b4:b" & b), s1.Cells(b, 2)) = 1 Then

ComboBox1.AddItem s1.Cells(b, 2).Value
End If
Next
End With
End Sub

 

[ocamsul]

Sn: zafer

Yardımınız için çok teşekkür ederim. Sağolun.