Listeleme sorunu...

[oguzka]

Merhaba. Personel kaydını tuttuğum sayfada isimleri arayüzdeki listboxda listeliyorum. Listeden seçilen kişinin tc kimlik nosunu textbox da görüntülemek istediğimde aynı isme sahip farklı kişiler için görüntülenen tc kimlik nolar aynı oluyor. Çünkü kod ilk gördüğü ismin tc nosunu görüntülüyor. Dolayısıyla yanlış bilgi ekrana geliyor. Bu sorunu nasıl düzeltebilirim? Yardımcı olurmusunuz? ( Örnek dosya ektedir.)

 

[Orion1]

Dosyanız ekte.

Private Sub ListBox1_Click()
TextBox1.Text = Sheets("Sayfa1").Cells(CLng(ListBox1.Column(1)), "B").Value
End Sub
Private Sub UserForm_Initialize()
For i = 2 To 20
ListBox1.AddItem
ListBox1.Column(0, i - 2) = (Sheets("Sayfa1").Cells(i, 1).Value)
ListBox1.Column(1, i - 2) = i
Next i
End Sub

 

[oguzka]

Çok teşekkür ederim. Evren Abi ellerine sağlık...

 

[Orion1]

Çok teşekkür ederim. Evren Abi ellerine sağlık...

Rica ederim.Afiyet olsun.
Buyur benden bir nescafe iç.