Anónimo
Macro para Imprimir 2 hojas de excel en PDF, creando 2 archivos diferentes y carpetas diferentes que se actualicen cada mes
Tengo un reporte de excel que maneja la información de una planta de producción y requiero imprimir en PDF 2 hojas diferentes y que vayan a 2 Carpetas diferentes que se van archivando de acuerdo al mes y año.
El archivo de excel donde trabajo esta en siguiente ruta :
C: \ Users \ operaciones3 \ Desktop \ TRABUEY \ 2016 \ MARZO \ 1. INFORME
y Deseo guardar 1 archivo en PDF reporte en la siguiente ruta:
C: \ Users \ operaciones3 \ Desktop \ TRABUEY \ 2016 \ MARZO \ 2. REPORTE DIARIO
el segundo archivo en la ruta
C:\ Users \ operaciones3 \ Desktop \ TRABUEY \ 2016 \ MARZO \ 3. SHORE TANK
Los archivos en PDF los estoy creando con macros para generarlos en una misma carpeta , a saber C: \ Users \ operaciones3 \ Desktop \ TRABUEY \ 2016 \ MARZO \ 1. INFORME, usando el comando ThisWorkbook. Path, y luego los arrastro cada uno a su carpeta. Sin embargo quisiera evitarme el reproceso y sobre todo cuando cambia el mes.
En estos casos te recomiendo que escribas una macro que vaya cambiando la ruta respecto al mes
Ejemplo:
Esta macro la puedes adaptar a tu código antes de guardar el PDF
On Error Resume Next MkDir "C:\Users\operaciones3\Desktop\TRABUEY" MkDir "C:\Users\operaciones3\Desktop\TRABUEY\" & Format(Now, "YYYY") MkDir "C:\Users\operaciones3\Desktop\TRABUEY\" & Format(Now, "YYYY") & "\" & Format(Now, "MMMM") Ruta = "C:\Users\operaciones3\Desktop\TRABUEY\" & Format(Now, "YYYY") & "\" & Format(Now, "MMMM")
Ahora solo sustituyes la dirección a la que se va a guardar tu PDF por la variable Ruta y listo
Espero y sea de utilidad!! :)
Suscríbete a mi canal: http://bit.ly/1KgurfF
Sigueme en Twitter https://twitter.com/RaduNordenhulk
Agregame en Facebook: http://on.fb.me/1oFUXVL
Sigue mis publicaciones en mi blog: http://radunordenhulk.blogspot.com