Enviar archivo a pdf pero en carpeta
Mi duda en específico, es una macro para enviar un rango de celdas a Pdf, que guarde el archivo con el nombre de una celda específica y que yo seleccione la carpeta en donde lo quiero guardar.
Espero que se pueda hacer la macro.
Gracias
1 Respuesta
Respuesta de Dante Amor
1
Se puede con la siguiente macro.
En la macro puse unos comentarios para que pongas la hoja, la celda y el rango que quieres enviar a Pdf.
Sub GuardaRangoEnPdf() 'Por.Dante Amor hoja = "Hoja1" 'Cambiar por el nombre de tu hoja nombre = [D9] 'Cambiar por la celda rango = "A1:F40" 'Cambiar por el rango ' With Application.FileDialog(msoFileDialogFolderPicker) .Title = "Selecciona una carpeta" .InitialFileName = ThisWorkbook.Path & "\" If .Show <> -1 Then Exit Sub ruta = .SelectedItems(1) End With ' Sheets(hoja).Range(rango).ExportAsFixedFormat _ Type:=xlTypePDF, Filename:=ruta & "\" & nombre & ".pdf" MsgBox "Rango enviado a PDF" End Sub
Saludos.Dante Amor
Si es lo que necesitas.
