Numerar automáticamente facturas con este formato año/numero

[Predi]

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

[torquemada]

Hola Predi.

Prueba el adjunto.

Saludos.

 

Factura1.xlsm

[Predi]

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

[torquemada]

Hola Predi.

Tienes que cambiar :

Dim NumFactura As Integer

por: Dim NumFactura As String

en la macro: GuardarFactura

Saludos.

 

[Predi]

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

 

[torquemada]

Hola Predi.

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

Saludos.

Factura1.xlsm

[Predi]

Hola Torquemada

Perfecto

Muchas gracias

Consulta solucionada

[Predi]

Hola de nuevo Torquemada

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

gracias

[torquemada]

Hola Predi.

Vamos con la versión 2.

Saludos.

Factura1_tor2.xlsm

[Predi]

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

[torquemada]

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

[Predi]

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