Opgelost Herhalings hulp

[ExcelTonnie]

Ik wil data uit userform halen en in een tabel plaatsen.
Hoe kan ik dit doen met behulp van een loop.
Gaat van 4 t/m 50

Private Sub Data2Table_Click()
'======================================================================================================
'
  WS1.Cells(4, 4).Value = TextBox4
     WS1.Cells(5, 4).Value = TextBox5
      WS1.Cells(6, 4).Value = TextBox6

  


End Sub

Kolommen blijven hetzelfde alleen regel veranderd.

 

[AHulpje]

    For r = 4 To 50
        WS1.Cells(r, 4) = Controls("TextBox" & r)
    Next

Je zou ook de ControlSource van TextBox4 kunnen instellen op D4, TextBox5 op D5 etc.
Bij het openen van je formulier komen de waarden uit die cellen in je formulier te staan en het omgekeerde gebeurt bij het sluiten van het formulier.