Saltar al contenido

Ingreso de datos por formulario

publicado

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

Featured Replies

publicado 
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

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

Ir al listado de temas