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 respuesta
Respuesta de Jaime Segura
1
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
