Excel - Macro para guardar factura automáticamente. AYUDA.

 
Vista:
sin imagen de perfil
Val: 5
Ha aumentado su posición en 4 puestos en Excel (en relación al último mes)
Gráfica de Excel

Macro para guardar factura automáticamente. AYUDA.

Publicado por MONICA (3 intervenciones) el 08/04/2019 10:38:30
Hola a todos, he intentado hacer una macro para guardar automáticamente las facturas a través de un botón. El problema es que en la macro pongo que guarde las facturas con el nombre FACTURA, pero necesito que las guarde con el nombre FACTURA + Número de factura, porque así lo único que consigo es que siempre se sobrescriba y guarde sólo la factura nueva.

La celda en la que aparece este número de factura es la D14, pero no consigo que este número aparezca en el nombre del archivo al guardar la factura:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub GUARDARFACTURA()
'
' GUARDARFACTURA Macro
'
 
'
    ActiveWindow.SmallScroll Down:=-21
    Range("A1:D33").Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\USUARIO\Desktop\FACTURAS TICKETS\FACTURA.pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
    Range("D14").Select
End Sub


Factura
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Andres Leonardo
Val: 3.136
Plata
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

Macro para guardar factura automáticamente. AYUDA.

Publicado por Andres Leonardo (1541 intervenciones) el 08/04/2019 19:07:13
1
2
3
4
5
6
7
8
9
10
11
12
'Prueba asi:
'Uno necesitas concatenar  el valor .. 
'dos no recomiendo usar rutas fijas si no logicas... pero en todo caso .. espero te ayude
 
ActiveWindow.SmallScroll Down:=-21
Range("A1:D33").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\USUARIO\Desktop\FACTURAS TICKETS\FACTURA" & Range("D14").value & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Range("D14").Select
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar