Textboxlarda ki vrileri sayfaya döngü ile aktarmak

[udentr2002]

Merhaba arkadaşlar;
184 adet texboxum var.
Bu textboxlardaki verileri ;
"Format" adlı sayfaya, D2 hücresinden başlayarak alta doğru yazdırması için nasıl bir kod ve döngü yazılabilir?

Şimdiden ilgilenen tüm arkadaşlara teşekkür ederim.

 

[Mdemir63]

Selam

UserForm üzerindeki textboxlardan sayfadaki D2 hücresinden itibaren yazdıracaksanız
aşağıdaki kodu kullanabilirsiniz

For i = 1 To 184
      Sheets("Format").Range("D" & i + 1).Value = Controls("TextBox" & i).Value
Next i

 

[udentr2002]

Selam

UserForm üzerindeki textboxlardan sayfadaki D2 hücresinden itibaren yazdıracaksanız
aşağıdaki kodu kullanabilirsiniz

For i = 1 To 184
      Sheets("Format").Range("D" & i + 1).Value = Controls("TextBox" & i).Value
Next i

Teşekkürler üstat sağolasın.

 

[ÖmerBey]

Merhaba,
Alternatif:

ReDim dz(1 To 1)
For Each obje In Me.Controls
    If TypeName(obje) = "TextBox" Then
        a = a + 1
        ReDim Preserve dz(1 To a)
        dz(a) = obje.Text
    End If
Next
Sheets("Format").Range("D2").Resize(a).Value = Application.Transpose(dz)

 

[Mdemir63]

Teşekkürler üstat sağolasın.

rica ederim
iyi çalışmalar

 

[udentr2002]

Merhaba,
Alternatif:

ReDim dz(1 To 1)
For Each obje In Me.Controls
    If TypeName(obje) = "TextBox" Then
        a = a + 1
        ReDim Preserve dz(1 To a)
        dz(a) = obje.Text
    End If
Next
Sheets("Format").Range("D2").Resize(a).Value = Application.Transpose(dz)

Teşekkürler Üstat.