Macro para botón guardar en pdf y en xls a la vez

Tengo una plantilla de Factura para mi padre, el hombre es mayor y no sabe usar muy bien el ordenador, me gustaría poner un botón en el cual ponga guardar y al pulsarle se guarde la factura que haya modificado en una carpeta en pdf y a su vez en otra carpeta en xls, ¿es posible?

1 respuesta

Respuesta

H o l a 

Te paso la macro, cambia la ruta donde se guardarán los archivos

RutaExcel = "C:\Backup\Excel\" 'Cambias la Ruta para guardar el archivo de excel
RutaPDF = "C:\Backup\PDF\" 'Cambias la Ruta para guardar el archivo de PDF

Sub GuardarArchivo()
'Por Aortiz
    Application.ScreenUpdating = False
    RutaExcel = "C:\Backup\Excel\" 'Cambias la Ruta para guardar el archivo de excel
    RutaPDF = "C:\Backup\PDF\" 'Cambias la Ruta para guardar el archivo de PDF
    hoja = "Hoja1"      'Nombre de la hoja a guardar
   '
   '
    nomb = "EXCEL Y PDF" 'Nombre del archivo
    Sheets(hoja).Copy
    ActiveWorkbook.SaveAs _
        Filename:=RutaExcel & nomb, _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    '
    ActiveWorkbook.Close
    Application.ScreenUpdating = True
    '
    Sheets(hoja).ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:=RutaPDF & nomb & ".pdf", _
    quality:=xlQualityStandard, includedocproperties:=True, _
    ignorePrintAreas:=False, openAfterPublish:=False
    Application.ScreenUpdating = True
    MsgBox "Archivo guardado con el nombre: " & nomb
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Recorrer una tabla de Access

Tengo un formulario de access en el que tengo un campo llamado importe y otros importe_1, importe_2, importe_3 y un campo llamado reg que lo que necesito es que si el valor del registro es 21 coloque el importe en importe_, si es 22 lo coloque en...
3 respuestas

Pagos múltiples de cuotas de asociados mediante un importe grande pagado y conforme a un rango de fecha ingresado..Ms access 365

Mediante un botón "Pagar Cuotas" Necesito ir descontando las cuotas de los asociados del importe pagado e ir controlando el saldo del mismo hasta quedar en 0, teniendo en cuenta el mes de vencimiento de las cuotas comparando entre Fecha Inicial,...
2 respuestas

Como pegar solamente valores de una celda a otra hoja

Sub CopiarImprimir() ' ' CopiarImprimir Macro ' Application.ScreenUpdating = False Sheets("Imprimir").Select Worksheets("Imprimir"). Range("A4:C50"). Clear Range("E4:J49"). Clear Sheets("Planillas").Select Sheets("Planillas"). Range("G4").Copy...
2 respuestas

Redondear decimales en números arábigos

Sres. T.E. La consulta es la siguiente, necesito una fórmula en excel para llevar los decimales a .00 y .50, ejemplo en una celda tengo el valor 45.12 levarlo a 45.00 en otra tengo 45.42 levarlo a 45.00.
2 respuestas

Mantener el color de un botón al salir de un módulo

Quisiera por favor me ayuden, estoy haciendo una aplicación en vba para un restaurante y necesito lo siguiente: tengo 20 mesas que al momento de abrir el modulo de venta selecciono la mesa y cambia de color y su estado pasa a ocupada la idea es...
2 respuestas

Cómo habilitar o deshabilitar (25) Grupo de opciones en formulario access

Tengo varias encuestas, cada una contiene de 5 a 30 preguntas y un formulario para llenado con 30 marcos de opciones numerados del 1 al 30. ¿Cómo podría habilitar o deshabilitar estos grupos de opciones de acuerdo al número de preguntas? Ejemplo:...
3 respuestas

Sumar dos filas distintas mayor a 0

Quiero sumar dos filas separadas por ejemplo fila 5 de A4 a J4 y fila 10 de A4 a J4, cada fila tiene resultados positivos o negativos, quiero que me sume en la celda B3 por ejemplo los datos positivos y en la celda C3 los datos negativos. Solo se...
2 respuestas

Filtrar ultima fecha según el criterio de una celda

Tengo una tabla de excel con la siguiente información Columna A el código del equipo. (Código único para cada equipo) Columna B la fecha en que se realizo la ultima revisión. Columna C el nombre del equipo. Columna D El tipo de revisión (preventivo,...
2 respuestas

Ocultar entorno access navegar por formularios e informes

Quiero ocultar el entorno de access pero que todo funcione tanto formulario como informes y que el icono salga en la barra de tareas
1 respuesta

Cómo hacer un filtro múltiple en formulario Excel?

Tengo un formulario en Excel con 5 combos combinado(Tipo, Año, Mes, servicio y Especialidad) y un cuadro de lista. La idea es que al seleccionar un valor en el cuadro combinado Tipo, en el cuadro de lista se me filtren los registros con ese valor,...
2 respuestas