Hola

Quisiera cambiar la forma de numerar las facturas en lugar de 1,2,3,etc poner el año y numero pero que el año se pueda cambiar

Espero me puedan ayudar

GraciasFactura1.xlsm

Hola Predi.

Prueba el adjunto.

Saludos.

 

Factura1.xlsm

Hace 4 horas, torquemada dijo:

 

 

Hace 5 horas, torquemada dijo:

Hola Predi.

Prueba el adjunto.

Saludos.

 

Factura1.xlsm 66.35 kB · 1 descarga

Gracias Torquemada por tu tiempo

Efectivamente es eso lo que busco, el problema que cuando quiero guardar la factura me da error

Saludos

Hola Predi.

Tienes que cambiar :

Dim NumFactura As Integer

por: Dim NumFactura As String

en la macro: GuardarFactura

Saludos.

 

De nuevo gracias Torquemada

cambiando lo que tu me apuntas sigue dando error aquí

With Application.FileDialog(msoFileDialogFolderPicker)
            .InitialFileName = Application.DefaultFilePath & " \ "
            .Title = "EJEMPLO - Seleccionar carpeta"
            .Show
            If .SelectedItems.Count = 0 Then
            Else
                Ruta = .SelectedItems(1) 'Ruta = A la ruta donde se guardara la factura'
               
                    MsgBox "Guardando en PDF Factura '" & NumFactura & "'. Presione Aceptar para continuar...", _
                    vbInformation, "EJEMPLO"
                    
                    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
                    Ruta & "\" & "Factura nº " & NumFactura & ".pdf", Quality:=xlQualityStandard, _
                    IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
             End If
        End With

Saludos

 

Hola Predi.

El problema es la barra inclinada. Prueba el nuevo adjunto.

Saludos.

Factura1.xlsm

Hola Torquemada

Perfecto

Muchas gracias

Consulta solucionada

Hola de nuevo Torquemada

Puede ser posible que al cambiar de año no cambie el resto de numeración?

gracias

Hola Predi.

Vamos con la versión 2.

Saludos.

Factura1_tor2.xlsm

Hola Torquemada

Cuando llegas a el numero 10 da 0202010 en lugar de dar 2020010

Una pregunta mas, me podrías decirme cual es el problema de porque la tabla dinámica TD-Consulta-Factura no captura todos los datos de la tabla Detalle de facturas, tengo mirado por internet y no saco el problema.

Perdona y muchas gracias por tu tiempo

Envió de nuevo el fichero puedas verlo gracias

Saludos

 

Factura_1_tor2.xlsm

Hola Predi.

Hace 2 horas, Predi dijo:

Hola Torquemada

Cuando llegas a el numero 10 da 0202010 en lugar de dar 2020010

Error mío. corregido.

Hace 2 horas, Predi dijo:

Hola Torquemada

 podrías decirme cual es el problema de porque la tabla dinámica TD-Consulta-Factura no captura todos los datos de la tabla Detalle de facturas

 

¿Porque no estaban seleccionados todos los datos?

MIra ahora.

Saludos.

Factura_1_tor2.1.xlsm

Con la numeración perfecto

Cuando genero una factura dejando líneas en blanco la tabla Detalle de facturas no me guarda bien los datos y la tabla dinámica TD-Consulta-Factura tampoco lo guarda bien, ahora en la tabla dinámica guarda infinidad de datos

Muchas Gracias