listboxta hata mesajı

[damra2005]

ekli dosya ile canınızı çok sıktığımın farkındayım ama , halen sorunu çözemedim. çünkü acemiyim. herkesten özür dilerim.
Sayfa30 da bulunan BF ile CI arasındaki sütunları bir türlü izini user formundaki textboxlara taşıyamadım.İzin Userformunun listbox1_change()
olay yordamında Controls("textbox" & x - 26) = Cells(sira, x) hata veriyor üstadlardan tekrar özür diler ve sorunuma çare bulmalarını istiyorum. bir bu satırın açıklamasını yaparsanız memnun olurum

 

[Levent Menteşoğlu]

İzin userformunda bulunan Listboxtaki kodu aşağıdaki ile değiştirin.

[vb:1:f3956fba5c]Private Sub ListBox1_Change()
sira = ListBox1.ListIndex + 1
For x = 1 To 30
Controls("textbox" & x) = Cells(sira, x + 57).Value
Next
End Sub
[/vb:1:f3956fba5c]

 

[damra2005]

üstad çok teşekkür ederim. allah (c.c) razı olsun