hücre den textbox a ?

[sert]

sayfa da a1:a8 e kadar olan isim listesini textbox lara atmak istiyorum,

for i=1 to 8
textbox1.text=cells(i,1)
textbox2.text=cells(i,1)
textbox3.text=cells(i,1)
textbox4.text=cells(i,1)
textbox5.text=cells(i,1)
textbox6.text=cells(i,1)
textbox7.text=cells(i,1)
textbox8.text=cells(i,1)
next i

ama tüm textboxlara en son cells deki ismi atıyor hata yı bulamadım...

 

[Levent Menteşoğlu]

Aşağıdaki gibi kullanın.

textbox1.text=cells(1,1)
textbox2.text=cells(2,1)
textbox3.text=cells(3,1)
textbox4.text=cells(4,1)
textbox5.text=cells(5,1)
textbox6.text=cells(6,1)
textbox7.text=cells(7,1)
textbox8.text=cells(8,1)

yada

for i=1 to 8
controls("textbox" & i)=cells(i,1)
next i

 

[Seyit Tiken]

Aşağıdaki örnek kodu kendinize uyarlayınız.

Private Sub CommandButton1_Click()
For a = 1 To 4
Controls("TextBox" & a) = Cells(a, 1)
Next
End Sub

 

[sert]

Controls("textbox" & a) = Cells(i, 1)

eşitliğin sağ tarafı tamamda sol tarafını anlamadım a neyi ifade ediyor ikinci bir döngü ile textboxlarımı ?
bu tarz uygulamaları çok kullanıyorum döngü ile temiz kod ile halletmek istiyorum..Teşekkürler...

seyit benden önce davrandın..!

 

[Orion1]

Merhaba.
Sayın Hocam,Leventm'nin kodunu aşağıdaki şekilde yazarak kullanın.

for i=1 to 8
controls("TextBox" & i)=cells(i,1)
next i

 

[sert]

evet şimdi tam süper oldu teşekkürler...