Ingreso de datos por formulario

[MarianoCruz]

Hola a todos:

Recurro a ustedes por lo siguiente:

Tengo una hoja tipo base en la que por medio de un user form, ingreso información en la siguiente fila vacía. en la columna A llevo un consecutivo unicamente informativo que va de 1,2,3,4 etc segun se va llenado cada fila vacia.

y asi en cada la fila vacia siguiente.

Me funciona bien!

Ahora necesito que el ingreso lo realice a partir de la fila 2 y la información que esta escrita previa se recorra hacia abajo.
Así poder tener la ultima información arriba. con esto mi consecutivo seria 4,3,2,1.

Adjunto la estructura del user form.

Muchas gracias

 

Ingreso por userform.txt

[JSDJSD]

Sube tu archivo con el formulario

[MarianoCruz]

Hola JSDJSD:

Agradezco tu atención,

subo mi archivo base.

Saludos Cordiales

Mariano

Ingreso Por user Form.xlsm

[Antoni]

Revisa el adjunto.

 

Ingreso Por user Form.xlsm

[JSDJSD]

Te dejo otra opción

[JSDJSD]

Private Sub CommandButton1_Click(): Application.ScreenUpdating = False
    Dim NewRow As Long

    If MsgBox("Dar de alta los datos?", vbYesNo + vbExclamation, RegistroMPG) = vbYes Then
        
        With ThisWorkbook.Worksheets("Hoja1")
            NewRow = .Range("A" & Rows.Count).End(xlUp).Row + 1
            .Cells(NewRow, 1).Value = Val(Me.txtCons)
            .Cells(NewRow, 2).Value = Me.TextCliente
            .Cells(NewRow, 3).Value = Me.txtDocs
            .Cells(NewRow, 4).Value = Me.txtTipoDocs
            .Cells(NewRow, 5).Value = Me.txtNoDocs
            .Cells(NewRow, 6).Value = Me.TextFechaEmision
            .Cells(NewRow, 7).Value = Me.TextVigencia
            .Cells(NewRow, 8).Value = Me.TextCopCert
            .Cells(NewRow, 9).Value = Me.TextFechaCert
            .Cells(NewRow, 10).Value = Me.TextFabric
            .Cells(NewRow, 11).Value = Me.TextProductos
            .Cells(NewRow, 12).Value = Me.TextFechaReg
            .Cells(NewRow, 13).Value = Me.TextReferencia
            .Cells(NewRow, 14).Value = Me.TextObserv
            .UsedRange.Sort Key1:=.Columns("A"), Order1:=xlDescending, Header:=xlNo
        End With
        MsgBox "Alta exitosa.", vbInformation, RegistroMPG
        Unload Me
    End If
End Sub

 

Ingreso Por user Form.xlsm