Despúes de mandar datos de excel a un formulario de PDF, ¿Cómo puedo hacer que me habra el explorador para guardar 1 copia PDF?
Encontre una macro que dejo "Dante Amor" para poder enviar datos de una hoja de excel a un formulario de PDF, y funciona de maravilla, la pregunta ahora es, ¿Se puede que en lugar de que gusrde los datos en el formulario original, me habra una ventana del explorador para poder guardar una copia y deje el original intacto para poder usarlo con nuevos datos?, en caso de que se pueda, ¿qué macro necesito usar?
1 respuesta
Respuesta de Dante Amor
1
H o l a:
Supongo que tienes esta macro, al final le agregué unas instrucciones para que te abra el explorardor y puedas guardar el archivo en otra carpeta y con otro nombre.
Sub PasarDatosaPdf()
'Por.Dante Amor
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Set h2 = Sheets("Hoja2") 'contador
'
celdas = Array("A2", "B2", "C2", "D2", "E2", "F2", "G2")
'
ruta = "C:\Documents and Settings\DAMOR\Mis documentos\Formatos\"
nomb = "carta"
ActiveWorkbook.FollowHyperlink ruta & nomb & ".pdf"
'
Application.Wait Now + TimeValue("00:00:03")
For i = LBound(celdas) To UBound(celdas)
DoEvents
SendKeys "{TAB}", True
DoEvents
h2.Range(celdas(i)).Copy
DoEvents
SendKeys "^v", True
DoEvents
Next
'
SendKeys "%aop", True
DoEvents
Application.Wait Now + TimeValue("00:00:03")
Application.ScreenUpdating = True
End Sub
