Listboxdan texboxlara veri atma

[fatih34]

iyi çalışmalar arkadaşlar userform üzerinde bulunan listboxdan textboxlara butonla veriyi aktarıyorum levent hocamın aşağıdaki kodları gönderdi sağ olsun b ve c sütündaki verileri aktarıyor.

Private Sub CommandButton1_Click()
Dim inds As Byte, i As Long, say As Long
say = 1
If ListBox1.ListCount < 1 Then Exit Sub
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
Controls("Textbox" & say).Text = ListBox1.List(i, 0)
Controls("Textbox" & say + 1).Text = ListBox1.List(i, 1)
say = say + 2
End If
Next
End Sub

Private Sub UserForm_Initialize()
Dim sat As Long
sat = Sheets("PERSONELBİLGİLERİ").Cells(65536, "C").End(xlUp).Row
ListBox1.ColumnCount = 4
ListBox1.ColumnHeads = True
ListBox1.MultiSelect = fmMultiSelectMulti
ListBox1.ListStyle = fmListStyleOption
If sat < 3 Then Exit Sub
ListBox1.RowSource = "PERSONELBİLGİLERİ!C2 : D " & sat
End Sub

benim sorum c satırının yerine b ile y satırını aktarmasını istiyorum uğraştım ama beceremedim.nereyi değiştirmem gerekiyor

 

[hamitcan]

ListBox1.RowSource = "PERSONELBİLGİLERİ!B2 : D " & sat

öncelikle verileri b sütunundan itibaren aldırmanız gerekiyor.

 

[fatih34]

hocam teşekkür ederim ilginize ama personel sayfasındaki b sütunundaki adı soyadı ve y sütunundaki banka listesinin gözükmesini istiyorum listboxda

 

[hamitcan]

Satırı, PERSONELBİLGİLERİ!B2 --->PERSONELBİLGİLERİ!B1 şeklinde değiştirin

 

[fatih34]

hamit hocam uyguladım ama beceremedim.ekte dosyayı gönderiyorum SAYFA1 deki personel bilgilerindeki adı soyadı ve banka hesap numarası adlı sütunu getirerek texttboxlara böyle kayıt yapmak isityorum

 

[fatih34]

bu konuda bir yardım yokmu arkadaşlar

 

[fatih34]

arkadaşlar ekte gönderdiğim konuda bir yardım yokmu

 

[hamitcan]

Dosyayı inceleyin.