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

Katılım
19 Ocak 2005
Mesajlar
940
Excel Vers. ve Dili
İŞ : Microsoft Office Excel 2003
EV : Microsoft Office Excel 2003
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.
 
Katılım
19 Ocak 2005
Mesajlar
940
Excel Vers. ve Dili
İŞ : Microsoft Office Excel 2003
EV : Microsoft Office Excel 2003
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

Super Moderator
Yönetici
Katılım
8 Mart 2005
Mesajlar
3,288
Excel Vers. ve Dili
OFFICE 2003 TÜRKÇE
OFFICE 2010 TÜRKÇE
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
 
Katılım
19 Ocak 2005
Mesajlar
940
Excel Vers. ve Dili
İŞ : Microsoft Office Excel 2003
EV : Microsoft Office Excel 2003
Sn: zafer

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