Ingresar captura de UserForm en hoja de manera horizontal
Quiero ingresar captura en un UserForm y esta sea colocada consecutivamente en manera horizontal, tengo lo siguiente que me lo realiza en vertical, como hacer esto mismo pero que el resultado lo coloque horizontal
Private Sub CommandButton1_Click() Dim i As Integer Dim final As Integer For i = 1 To 15 If Hoja1.Cells(i, 1) = "" Then final = i Exit For End If Next Hoja1.Cells(final, 1) = UserForm1.TextBox1 End Sub
1 Respuesta
Respuesta de Dante Amor
2
Te anexo el código. Cambia el 1 en la línea
fila = 1
por el número de fila donde quieres poner el dato
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
.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.
