Excel sayfasında toplu seçilenleri Textboxlara aktarma

[mrttrn]

Userform1 de TextBox1 den TextBox10 a kadar sıralı textbox lar var.

Set EKD = Worksheets("EK DERS AYAR")
for e=1 to 10
Controls("TextBox" & i ).Value = EKD.Range("A" & i)
next e

EKD.Range("A1:A10") seçimini yukarıdaki for döngüsü
kullanmadan, Bir anda textbox1-10 kopyalamak istiyorum.

Controls("TextBox1:textbox10") = EKD.Range("A1:A10") gibi.
bir kodlama yapılabilir mi?

 

[Korhan Ayhan]

Selamlar,

Belirttiğiniz şekilde textboxlara veri almak mümkün değildir. En güzel yöntem olan döngü yöntemini kullanmışsınız. Döngünüze "e" ismini vermişsiniz fakat kullanırken "i" değişkenini kullanmışsınız. "i" leri "e" olarak değiştirirseniz döngünüz sağlıklı çalışacaktır.

 

[mrttrn]

Pardon e, i olacaktı.

 

[mrttrn]

Userform1 de TextBox1 den TextBox10 a kadar sıralı textbox lar var.

Set EKD = Worksheets("EK DERS AYAR")
for i=1 to 10
Controls("TextBox" & i ).Value = EKD.Range("A" & i)
next i

EKD.Range("A1:A10") seçimini yukarıdaki for döngüsü
kullanmadan, Bir anda textbox1-10 kopyalamak istiyorum.

Controls("TextBox1:textbox10") = EKD.Range("A1:A10") gibi.
bir kodlama yapılabilir mi?

 

[Orion1]

Userform1 de TextBox1 den TextBox10 a kadar sıralı textbox lar var.

Set EKD = Worksheets("EK DERS AYAR")
for i=1 to 10
Controls("TextBox" & i ).Value = EKD.Range("A" & i)
next i

EKD.Range("A1:A10") seçimini yukarıdaki for döngüsü
kullanmadan, Bir anda textbox1-10 kopyalamak istiyorum.

Controls("TextBox1:textbox10") = EKD.Range("A1:A10") gibi.
bir kodlama yapılabilir mi?

Selamlar,

Belirttiğiniz şekilde textboxlara veri almak mümkün değildir. En güzel yöntem olan döngü yöntemini kullanmışsınız.

Sorunuza sayın COST_CONTROL üstadım cevap vermiş.

 

[mrttrn]

Teşekkür ederim