Ingresar la captura de userform en hoja de manera horizontal y posterior vertical

Necesito ingresar la captura de varios TextBox2, TextBox3, TextBox4, TextBox5 y estos sean colocados verticalmente después de ingresar el TextBox1 horizontal al final de cada registro

Private Sub CommandButton1_Click()
'
    fila = 1
    uc = Hoja1.Cells(fila, Columns.Count).End(xlToLeft).Column + 1
    Hoja1.Cells(fila, uc) = UserForm1.TextBox1.Value
End Sub

1

1 Respuesta

88.025 pts. Ingeniero Industrial, docente universitario de...

Private Sub CommandButton1_Click()
fila = 1
uc = Hoja1.Cells(fila, 1).End(xlToRight).Column + 1

Hoja1.Cells(1, uc) = UserForm1.TextBox1.Value

Hoja1.Cells(2, uc) = UserForm1.TextBox2.Value

Hoja1.Cells(3, uc) = UserForm1.TextBox3.Value

Hoja1.Cells(4, uc) = UserForm1.TextBox4.Value

Hoja1.Cells(5, uc) = UserForm1.TextBox5.Value
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas