Ardışık Olmayan Textboxların kaydı

[ocamsul]

Arkadaşlar uzun bir aradan sonra forum üyesi tüm arkadaşlara merhabalar. Yeni yılın sağlık, başarı ve mutluluk getirmesi temennisiyle.
Benim sormak istediğim; ekli DENEME8-1de de görülebileceği üzre, ardışık olmayan örneğin Textbox1,11,21,31,41,51,61,71,81,91,101 numaralı Textboxların kısa bir kod ile çalışma kitabındaki 150 sayfasına a9 dan itibaren a10,a11,a12,a13,a14,a15,a16,a17,a18,a19 hücrelerine kaydını kısa bir kod ile nasıl yapabiliriz?

 

[Zeki Gürsoy]

Deneyin.

For i = 1 To 101 Step 10
    j = j + 1
    Sheets("150").Range("a" & j + 8) = Controls("textbox" & i)
Next

 

[ocamsul]

For i = 1 To 101 Step 10
    j = j + 1
    Sheets("150").Range("a" & j + 8) = Controls("textbox" & i)
Next

Sn: anemos ilginize ve yardımınıza çok teşekkür ederim. bu örneği B.C.D.E.F. gibi sütunlara uygulamak istediğimde kodda ne gibi değişiklikler yapmam lazım?

 

[Zeki Gürsoy]

For i = 1 To 101 Step 10
    j = j + 1
    Sheets("150").Range("[B][COLOR=red]b[/COLOR][/B]" & j + 8) = Controls("textbox" & i)
Next

Kırmızı olan yeri "b","c","d" ... şeklinde istediğiniz gibi değiştirebilirsiniz.​

 

[ocamsul]

Sn: anemos birde sayı biçimlerini aktarırken metin olarak algılıyor. Bu sorunu nasıl düzeltiriz.

 

[Zeki Gürsoy]

[LEFT]For i = 1 To 101 Step 10
    j = j + 1
    Sheets("150").Range("a" & j + 8) = Clng(Controls("textbox" & i))
Next

olarak deneyin.[/LEFT]

 

[ocamsul]

Üsdat tamamdır. Çok teşekkürler.