Jump to content

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


Predi

Recommended Posts

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

 

Link to comment
Share on other sites

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

Link to comment
Share on other sites

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

Link to comment
Share on other sites

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

Link to comment
Share on other sites

  • Crear macros Excel

  • Posts

    • Buenas tardes, expertos solicito una ayuda para concatenar dos columnas una de ellas es en cuanto a la fechas, lo que pasa es que la macro que tengo concatena muy bien, solo tengo un inconveniente con las fechas dicha columna (I) estas formateadas por ejemplo asi: Feb-20 pero al concatenar el resultado asi: O-2AA6220/09/2021, pero asi no quiero, me gustaria concatenar que salga asi: A-234RV44032 los 5 ultimos digitos son de la fecha, bueno asi me gustaria que quede, la macro que estoy usando es: Sub Concatenar() uFila = Range("H" & Cells.Rows.Count).End(xlUp).Row pFila = 1 For fila = pFila + 1 To uFila     Range("O" & fila) = Range("H" & fila) & Range("I" & fila) Next fila End Sub Por favor si me podria dar una ayuda estare muy agradecido. Adjunto el archivo Consolidado.xlsm
    • Con la grabadora Pero son demasiadas filas. Sub Macro1() Range("C3:I7").Select Selection.Copy Range("C12").Select ActiveSheet.Paste Application.CutCopyMode = False Selection.Copy Range("C21").Select ActiveSheet.Paste Application.CutCopyMode = False End Sub Hace tiempo que no entro en el foro y no veo la opcion de subir libro. Un Saludo.
    • Desconozco si por falta de aportación de datos, no me pueden ayudar  o es que no se puede desarrollar esta macro. Gracias.
    • Antoni muchas gracias, eso lo que esperaba. Consegui también estas lineas codigo. Sub Rellenar() Dim uf, fila As Integer uf = Sheets("Consolidar").Range("A" & Rows.Count).End(xlUp).Row fila = 2 While fila <= uf If Sheets("Consolidar").Cells(fila, 2) = Empty Then    Sheets("Consolidar").Cells(fila, 2) = "DIGITAL" End If fila = fila + 1 Wend End Sub
    • Range("B2:B" & ActiveSheet.UsedRange.Rows.Count) = "DIGITAL"  
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy