Texboxları döngü ile sayfaya yazdırma

[ASMET67]

Selamlar.
Söyle bir sorum olacaktı.

Formun üzerinde 50 adet textbox var 47 adet label var.
Bunlara şu şekilde nasıl bir döngü kurabilirim.


1- Textbox3 ile 50 arasını sayfayanın c sutununa alt alta yazacak
2- Label 1 ile 47 arasını aynı safanın d sutununa yazacak.
3- textbox1 A sutununa yazacak.
4- Textbox2 B sutununa yazacak.
Bu şekilde denedim ama sadece i ve anın değerini yazdı.

a=1
For i = 3 To 50
s2.Range("a65536").End(xlUp).Offset(1, 0).Value = TextBox1
s2.Range("a65536").End(xlUp).Offset(0, 1).Value = TextBox2
s2.Range("a65536").End(xlUp).Offset(0, 2).Value = TextBox & i
s2.Range("a65536").End(xlUp).Offset(0, 3).Value = Label & a
a = a + 1
Next i

 

[Ferhat Pazarçevirdi]

3 ila 50 index'ine sahip textboxlar için şunu yapabilirsiniz.

For i = 3 To 50
    If Controls("Textbox" & i) Then
       Cells(Cells(65536, 3).End(xlUp).Row + 1, 3) = Controls("textbox" & i).Text
    End If
Next

1-47 arasınaki Label'lar için ise şunu:

For i = 1 To 47
    If Controls("Label" & i) Then
       Cells(Cells(65536, 4).End(xlUp).Row + 1, 4) = Controls("Label" & i).Caption
    End If
Next

 

[ASMET67]

Teşekkürler ilgi ve alakanız için.

 

[ziya]

Selamlar,
Makroya yeni başlıyorum ve yardım rica ediyorum.

A1 hücresine 1 yaz , print et (yazdırma alanı önceden tanıml&#305
A1 hücresine 3 yaz , print et
A1 hücresine 5 yaz , print et
Yani +2 artarak gidiyor.
Son olarak 49 yaz, print et.
ve end.
Not: A1 hücresine bağlı yapılan hesaplamarın çıktısını almak istiyorum.

Şimdiden teşekkürler.