Cómo realizar un bucle para llenar varias celdas con varios datos en un formulario VBA

Cree una serie de cuadros de texto en el código del botón de envío (o en la inicialización del formulario) y luego podrá recorrerlos en bucle:

Private Sub CommandButton1_Click()

Dim a, i, j

p>

Conmigo

a = Array(.TextBox1, .TextBox2, .TextBox3, .TextBox4, .TextBox5, _

.TextBox6, .TextBox7 , .TextBox8, .TextBox9, .TextBox10, _

.TextBox11, .TextBox12, .TextBox13, .TextBox14, .TextBox15)

Termina con

Con Hojas de trabajo("hoja1 ")

Para i = LBound(a) a UBound(a )

Si i Mod 10 = 0 Entonces j = j + 1

.Cells( (i Mod 10) + 1, j).Valor = a(i).Text

Siguiente

Finalizar con

End Sub