Actividad pública reciente
Ha valorado "Excelente" la respuesta
Crear carpeta en el escritorio y guardar archivos dentro
H o l a: Cambia la macro por el siguiente código: Sub GuardarPdf() 'Por.Dante Amor Set h1 = Sheets("PROPUESTA") ruta = escritorio If ruta = "" Then MsgBox "No se encotró la carpeta Escritorio", vbCritical, "ERROR" Exit Sub End If ' carpeta = ruta &...
Ha valorado "Excelente" la respuesta
Crear carpeta y guardar hoja en pdf
H o l a: Te anexo la macro, cambia "Hoja1" por el nombre de la hoja que quieras guardar como pdf: Sub GuardarPdf() 'Por.Dante Amor Set h1 = Sheets("Hoja1") carpeta = h1.[A1] aPdf = h1.[A2] aMacro = h1.[A3] If Dir(carpeta, vbDirectory) = "" Then MkDir...