Soru sayfaya aktar (textbox)

[sirkülasyon]

Private Sub CommandButton1_Click()
Sheets("data").Activate
Sheets("data").Range("B10").Select
    Dim m As Integer
    For m = 0 To 2
ActiveCell.Offset(0, 1 + m).Value = Controls("TextBox" & m + 1).Text
ActiveCell.Offset(1, 1 + m).Value = Controls("TextBox" & m + 4).Text
Next m
End Sub

yukarıda yer alan kod ile 1,2,3,4,5,6 textboxları sayfaya aktarıyorum.
G10 hücresinden itibaren de 7,8,9,10,12. textboxları aynı yöntemle nasıl aktarabilirim?

 

[PLİNT]

Merhaba
Aşağıdaki gibi olabilir
Eğer "textbox11" varsa i = IIf(i = 11, 12, i) satırını silin
Yukarıdaki kodlara göre "G10" değilde "G11" den itibaren eklenecekse; Offset(0, s+1)

Sheets("data").Activate
Dim i As Long, s As Long, c As Long
For i = 7 To 12
   i = IIf(i = 11, 12, i)
Range("G10").Offset(0, s) = Controls("TextBox" & i).Text
s = s + 1
Next

Eklenecekler hep aynı satıra değilde altalta ise kodları değişelim
Kolaylıklar dilerim, hayırlı geceler.

 

[sirkülasyon]

Ustam yan yana değil de Alt alta kayıt edilecek

 

[PLİNT]

"g10:g14" aralığına ise

Sheets("data").Activate
Dim i As Long, s As Long
For i = 7 To 12
   i = IIf(i = 11, 12, i)
Range("G10").Offset(0 + s, 0) = Controls("TextBox" & i).Text
s = s + 1
Next

"g10:k10" aralığı ve daha sonrakiler alt satırlarına ise;

Sheets("data").Activate
Dim i As Long, s As Long, c As Long
c = Cells(Rows.Count, "G").End(3).Row + 1
If c < 10 Then c = 10
For i = 7 To 12
   i = IIf(i = 11, 12, i)
Cells(c, 7 + s) = Controls("TextBox" & i).Text
s = s + 1
Next

 

[sirkülasyon]

Hakkınızı helal edin. Sağ olun