Listbox içerisine istenilen 2. sütunu eklemek

[canercan02]

merhaba arkadaşlar...
ekteki örnekte form içindeki lstpersonel içerisine veritabani sayfasındaki personel isimlerinin yanına 2. sütun (veritabani E Sütunu) olarak tc kimlik numaralarını da eklemek istiyorum bu konuda yardımcı olursanız sevinirim. saygılarımla....

 

[Levent Menteşoğlu]

Userforma aşağıdaki kodu yazın.

Private Sub UserForm_initialize()
lstpersonel.ColumnCount = 2
End Sub

Textboxada aşağıdaki kodu yazın.

Private Sub TextBox1_Change()
lstpersonel.Clear
Set s1 = Sheets("veritabani")
For a = 2 To s1.[A65536].End(3).Row
If Left(UCase(s1.Cells(a, "B")), Len(TextBox1)) = UCase(TextBox1) Then
c = c + 1
lstpersonel.AddItem
lstpersonel.List(c - 1, 0) = s1.Cells(a, "b")
lstpersonel.List(c - 1, 1) = s1.Cells(a, "e")
End If
Next
End Sub

 

[canercan02]

usta teşekkürler.. properties penceresinden columncount özelliğini 2 yapınca istediğim oldu. saygılarımla...