Çözüldü Döngü ile textboxları satıra yazdırma

[Cengizhantr06]

Merhaba iyi aksamlar
10 tane textbox 1 den 10a kadar
Bunları döngü ile
Sayfa1 deki B sütunu 22.hücreden 32. Hücreye kadar son dolu satıra nasıl yazdırabilirim 1.textbox b22 ye 2.textbox b23 e
Bu sekilde ?

 

[AdemCan]

Merhaba, örnek kod.
22. satır ile 32. satır arasına döngü ile yazdırır.

Private Sub CommandButton1_Click()
Dim s1 As Worksheet, i As Long
Set s1 = Sayfa1
    For i = 22 To 31
        s1.Cells(i, "B") = Controls("Textbox" & i - 21)
    Next i
End Sub

 

[Cengizhantr06]

Merhaba, örnek kod.
22. satır ile 32. satır arasına döngü ile yazdırır.

Private Sub CommandButton1_Click()
Dim s1 As Worksheet, i As Long
Set s1 = Sayfa1
    For i = 22 To 31
        s1.Cells(i, "B") = Controls("Textbox" & i - 21)
    Next i
End Sub

çok teşekkür ederim