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

1 Respuesta

4.383.025 pts. Sancho, si los perros ladran ...

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

.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas