listbox ta hata

[damra2005]

izin bilgileri butonuna bastıktan sonra izin userformu geliyor. Ama Personel isimleri arasında gezinti yaparken Controls("textbox" & x - 26) = Cells(sira, x) satırında hata veriyor lütfen yardımcı olun üstadlar. dosya ekte

 

[Levent Menteşoğlu]

Listbox3 için yazdığınız kod hatalı,hatayı ilgili textboxı bulamadığı için veriyor. kodu aşağıdaki gibi değiştirin. Tablonuzdaki veriler yeterli olmadığından tam düzenleme yapamadım,siz gerekli düzeltmeleri yaparsınız.

[vb:1:40f2316ec1]Private Sub ListBox3_Change()
sira = ListBox3.ListIndex + 1
For x = 6 To 14
Controls("textbox" & x) = Cells(sira, x - 4)
Next
End Sub
[/vb:1:40f2316ec1]

 

[damra2005]

leventm üstad for x =6 to 14 for x = 58 to 92 şeklinde değiştiriyorum ama yinede aynı hata mesajını veriyor.

 

[Levent Menteşoğlu]

Tablonuzu doldurulmuş olarak tekrar ekleyin onun üzerinden gidilmesi doğru olacaktır.