textbox döngüsü hk.

[chakistes]

İyi akşamlar arkadaşlar
textbox sayısı 100 den fazla ve karışık olduğundan
kullanmak istediğim textboxları text1, text2,text3 olarak değiştirdim

benim istediğim malzeme formundaki verilerin exceldeki sayfa1 içine
text1 deki a9
text2deki b9
text3 dek c9
text4 deki a10
text5 deki b10
text6 daki c10 olarak devam edecek bunu döngü olarak nasıl yapabilirim.

 

[Ömer BARAN]

Merhaba.

Yanlış düşünmüyorsam 99 adet Textbox var ve bunların değerleri 9'uncu satırdan başlayarak ve sırasıyla A, B ve C sütunlarına yazdırılmak isteniyor.
TextBoxların isimlerini aşağıda belirttiğim şekelde düzenlerseniz,
aşağıdaki gibi bir döngü ile işlem gerçekleştirilebilir.
Bunun için, TextBox'un adı ile bu TextBox'un değerinin yazılacağı hücre adresi arasında bir bağlantı kurulması yerinde olur.

Bu nedenle Textboxların isimlerini ilk 2 hanesi satır numarası, 3'üncü hanesi sütun numarası olacak şekilde aşağıdaki gibi değiştirmelisiniz.
text1 => text091
text2 => text092
text3 => text093
text4 => text101
text5 => text102
text6 => text103
.......
.......
text99 => text413
.

[B]Sub txtTOcell()[/B]
For sat = 9 To 41
    If sat < 10 Then ek = "0"
    If sat >= 10 Then ek = ""
    For sut = 1 To 3
        Cells(sat, sut) = Controls("txt" & ek & sat & sut).Value:Next:Next
[B]End Sub[/B]

 

[chakistes]

Textbox döngüsü hk

Merhaba örnek dosya ektedir

verdiğiniz kodları denedim olmadı

malzeme girişi butonundan
3 tane örnek koydum sadece
malzeme adı
adedi
ölçü birimi döngü ile yazıldıktan sonra lüzum müzekkeresinden çıktı alacağım.