100 TextBox için 100 satır kod yazmak yerine

[orrhankaya]

Form üzerinde 100'den fazla TextBox var. TextBox'taki değerleri hücrelere aktarıyorum. Aşağıdaki örnekteki gibi 100'den fazla satır kullanarak kod yazıyorum. Döngü kullanarak veya başka bir şekilde kodu kısaltmanın yolu nasıldır? İlgileneceklere şimdiden teşekkürler.

[C22] = NakilFormu.t1 ' t1 TextBox'ın ismidir.
[D22] = NakilFormu.m1 ' m1 TextBox'ın ismidir.
[E22] = NakilFormu.h1
[F22] = NakilFormu.f1
[G22] = NakilFormu.s1
[H22] = NakilFormu.v1
[I22] = NakilFormu.i1
[J22] = NakilFormu.in1
[K22] = NakilFormu.d1
[L22] = NakilFormu.g1
[M22] = NakilFormu.mu1
[N22] = NakilFormu.b1
[O22] = NakilFormu.te1
[P22] = NakilFormu.tr1
[Q22] = NakilFormu.se1
[R22] = NakilFormu.sec1

 

[Korhan Ayhan]

Selamlar,

Eğer hücrelere aktardığınız TextBox ların indexleri sıralı ise (yani TextBox1, TextBox2 şeklinde devam ediyorsa) kodu kolaylıkla kısaltabiliriz. Değilse maalesef tek tek yazmak durumundasınız.

 

[excellium]

for x = 1 to 100
    cells(22, x + 2) = controls("t" & x)
next x

kolay gelsin

 

[excellium]

tek tek isim vernenize gerek yok, siz ekledikçe otomatik olarak sıra numarasıalıyor zaten.
controls("textbox" & x) yontemini kullanablirsiniz

 

[dost]

Merhaba,

For i = 1 to 16
    cells(22, i + 2) = controls("NakilFormu.t" & i)
    cells(24, i + 2) = controls("NakilFormu.m" & i)
Next i

 

[orrhankaya]

Teşekkür ederim, excellium, dost ve Korhan bey
Döngüyü kurabiliyordum ama yapmadığım kısım controls deyimi idi. Öğretenlerden Allah razı olsun

 

[orrhankaya]

Sayın, Korrhan Bey
TextBoxlar çok olduğundan, karışmaması için özelleştirmiştim.
TextBox isimlerini aşağıdaki şekilde sıralı hale getirsem olur mu?
[C22] = NakilFormu.t1
[D22] = NakilFormu.t2
[E22] = NakilFormu.t3
[F22] = NakilFormu.t4
[G22] = NakilFormu.t5
[H22] = NakilFormu.t6
[I22] = NakilFormu.t7
[J22] = NakilFormu.t8
[K22] = NakilFormu.t9
[L22] = NakilFormu.t10
[M22] = NakilFormu.t11
[N22] = NakilFormu.t12
[O22] = NakilFormu.t13
[P22] = NakilFormu.t14
[Q22] = NakilFormu.t15
[R22] = NakilFormu.t16

[C24] = NakilFormu.m1
[D24] = NakilFormu.m2
[E24] = NakilFormu.m3
[F24] = NakilFormu.m4
[G24] = NakilFormu.m5
[H24] = NakilFormu.m6
[I24] = NakilFormu.m7
[J24] = NakilFormu.m8
[K24] = NakilFormu.m9
[L24] = NakilFormu.m10
[M24] = NakilFormu.m11
[N24] = NakilFormu.m12
[O24] = NakilFormu.m13
[P24] = NakilFormu.m14
[Q24] = NakilFormu.m15
[R24] = NakilFormu.m16