Como crear una base da datos y realizar un back up al mismo tiempo

Envíame tu archivo con el formulario de captura.

Explícame esto:

"Y este al poner solo el numero en el formulario este me busque los datos que anteriormente se hayan grabado.. "

¿A cuál número te refieres?

¿El formulario te va a buscar los datos en el archivo de respaldo o en dónde los va a buscar?

Esto es parte de la misma pregunta o es otra funcionalidad del formulario, una cosa es que busque reciba la información y la pase a la hoja; ¿Y otra es buscar los datos y ponerlos en dónde? ¿En el mismo formulario? ¿Tu intención es mostrarlos en el formulario para consulta o para hacer cambios?

Espero tus comentarios

Mi correo [email protected]

En el asunto del correo escribe tu nombre de usuario “jairo retorno” y el título de esta pregunta.

.

Ya envíe el correo

Te anexo la parte para la factura y abrir el formulario, los cambios están a partir de donde dice 'Por. Dante Amor

Sub incrementarnumero()
If Not IsError(Range("Q11")) And Not IsError(Range("O27")) Then
    If Range("Q11") <> "" And Range("O27") <> "" Then
        If Range("O27") = "" Or Range("Q11") = "" Or _
            Not IsNumeric(Range("O27")) Or Not IsNumeric(Range("Q11")) Then
            MsgBox "Ingresaste letras en campos de numeros", vbOKOnly + vbExclamation, "ERROR DE VALIDACIÓN DE DATOS"
            Exit Sub
        End If
        Application.ScreenUpdating = False
        Range("I16").Select
        ActiveWindow.SmallScroll Down:=-24
        Range("F2:Q29").Select
        ActiveSheet.PageSetup.PrintArea = "$F$2:$Q$29"
        'ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
        IgnorePrintAreas:=False
        '
        'Por.Dante Amor
        '
        factura = MsgBox("Quieres la factura", vbYesNo + vbQuestion, "ADVERTENCIA")
        If factura = vbNo Then
            Exit Sub
        Else
            Set h1 = Sheets("NUEVO SERVICIO A DOMICILIO")
            Set h2 = Sheets("FACTURA")
            h2.Select
            With UserForm6
                .nomcli = h2.[G10]
                .Show
            End With
        End If
        '
        'Por.Dante Amor
        '
        Dim respuesta As Variant
        respuesta = MsgBox("la impresion fue correcta?", vbYesNo + vbExclamation, "ADVERTENCIA")
        If respuesta = vbYes Then
            estado = 1
            MsgBox "Se procede a guardar respaldo y se prepara para un NUEVO SERVICIO.", , "ATENCION"
            Call guardaCopia
            ActiveSheet.Unprotect password:="28021990"
            'Rows("11:11").Select
            Range("Q11").Select
            Selection.Locked = True
            Selection.FormulaHidden = False
            'Range("B11").Activate
            'Selection.EntireRow.Hidden = True
            Sheets("NUEVO SERVICIO A DOMICILIO").Protect password:="28021990"
        End If
        If respuesta = vbNo Then
            ActiveSheet.Unprotect password:="28021990"
            Range("Q11").Select
            Selection.Locked = True
            Selection.FormulaHidden = False
            Sheets("NUEVO SERVICIO A DOMICILIO").Select
            ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
                , AllowFormattingCells:=True, AllowFormattingColumns:=True, _
                AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
                :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
                AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True, _
                AllowUsingPivotTables:=True
                ActiveSheet.Protect password:="28021990"
        End If
    Else
        MsgBox "Faltan DATOS por llenar", vbCritical, "ERROR AL IMPRIMIR"
    End If
Else
    '
    MsgBox "La celdas tienen error"
    '
End If
End Sub

Te envíe mis dudas por correo