Listboxtaki bilgileri Textboxlara getirmek.

[tufan03]

Ekli dosyada bulunan kodları bu forumdan aldım,bir arkadaşın açıklamalı çalışması. Kendime uyarlamaya çalıştım.
Sorun;Listboxta bulunan kişiye ait bilgileri üzerine tıklayarak yanda bulunan textboxlara getiriyor,yalnız listede bulunan son kişiye ait bilgiler nedense textboxa tam ve doğru olarak gelmiyor,acaba nedeni nedir? ayrıca yandaki textboxlara atanan tarihlerde de biçim sorunu var. Yardımcı olan arkadaşlara teşekkür ederim.

 

[Orion1]

Ekli dosyayı inceleyiniz.
Aşağıdaki kırmızı ile işaretlenmiş kodlar ilave edilip düzenlenmiştir.

Private Sub ListBox1_Click()
'listboxtaki seçili değeri textboxa aldırıyoruz
TextBox1 = ListBox1.Value
'b sütunundaki en son dolu hücreyi saydırıyoruz
For Each bul In Range("b2:b" & WorksheetFunction.CountA(Range("b2:b60")) [COLOR="Red"]+ 1[/COLOR])
'bul değişkenine atanan değer ve textbox değeri eşitse birbirine
If StrConv(bul, vbUpperCase) = StrConv(TextBox1, vbUpperCase) Then
'bul değişkeni seçilir
bul.Select
'aktif hücre değerini textbox1 'ye atıyoruz
TextBox1.Value = ActiveCell.Offset(0, 0).Value
'aktif hücrenin bir sağındaki değeri textbox2 'ye atıyoruz
TextBox2.Value = ActiveCell.Offset(0, 1).Value
TextBox3.Value = ActiveCell.Offset(0, 2).Value
[COLOR="red"]TextBox4.Value = Format(ActiveCell.Offset(0, 3).Value, "dd.mm.yyyy")
TextBox5.Value = Format(ActiveCell.Offset(0, 4).Value, "dd.mm.yyyy")[/COLOR]
TextBox6.Value = ActiveCell.Offset(0, 5).Value
TextBox7.Value = ActiveCell.Offset(0, 6).Value
TextBox8.Value = ActiveCell.Offset(0, 7).Value
ComboBox2 = ActiveCell.Offset(0, -1).Value
'eğer son
End If
'ileri
Next
End Sub

 

[mrttrn]

For Each bul In Range("b2:b" & [COLOR="Magenta"]Cells(65536, "B").End(3).Row[/COLOR]) 'B deki sonunucunun satırı

'bul değişkenine atanan değer ve textbox değeri eşitse birbirine
If StrConv(bul, vbUpperCase) = StrConv(TextBox1, vbUpperCase) Then
'bul değişkeni seçilir

Kırmızı renkli ifadede son elemanın satırı eklenir.

 

[tufan03]

Çok Teşekkür ederim.Orion2 sorun çözüldü.

 

[Orion1]

Çok Teşekkür ederim.Orion2 sorun çözüldü.

Rica ederim.
İyi çalışmalar.