hücre den textbox a ?

Katılım
16 Nisan 2006
Mesajlar
28
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

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Aşağıdaki gibi kullanın.

Kod:
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

Kod:
for i=1 to 8
controls("textbox" & i)=cells(i,1)
next i
 
Son düzenleme:

Seyit Tiken

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
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
 
Katılım
16 Nisan 2006
Mesajlar
28
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

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Merhaba.
Sayın Hocam,Leventm'nin kodunu aşağıdaki şekilde yazarak kullanın.:cool:
Kod:
for i=1 to 8
controls("TextBox" & i)=cells(i,1)
next i
 
Katılım
16 Nisan 2006
Mesajlar
28
evet şimdi tam süper oldu teşekkürler...
 
Üst