Requiero una macro que guarde la hoja 2 de excel en pdf, luego de copiar cada dato de la hoja 1 en el rango E12:E120.
Ya tengo una macro que guarda el formato de excel en pdf, debo hacer este proceso n veces cuantos registros estén en un rango determinado en otra hoja. Por ahora copio cada registro en una casilla del formato y ejecuto la macro que me guarda el archivo en una carpeta y lo repito hasta terminar el rango. ¿Cómo mejoro la macro inicial para hacer lo que necesito?
2 Respuestas
Lo que solicitas se puede realizar de esta manera:
Esto se coloca en el modulo 1; Y la función que realiza es copiar los datos del Rango E12:E120 los pega en la hoja 2 y los envía a mis documentos en formato pdf, si deseas colocarle el nombre se una celda un consecutivo o una dirección especifica para que se guarde el documento deber realizar otra pregunta.
Sub Copiar_y_enviar_a_pdf()
'
' Copiar_y_enviar_a_pdf Macro
'
Range("E12:E120").Select
Selection.Copy
Sheets("Hoja2").Select
ActiveWindow.SmallScroll Down:=-21
Range("B3").Select
ActiveSheet.Paste
Range("K26").Select
ActiveWindow.SmallScroll Down:=-30
Sheets("Hoja1").Select
ActiveWindow.SmallScroll Down:=-24
Sheets("Hoja2").Select
ActiveWindow.SmallScroll Down:=-18
Call Exportar_a_Pdf
End Sub
Sub Exportar_a_Pdf()
Sheets("Hoja2").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=ThisWorkbook.Path & "\hoja2.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub
Tu valoración es importante no olvides valorar
Estos ejemplos
Este si bien envía mail crea un pdf
Este recorre filas,copia y pega datos