Quiero generar un PDF con macros
Tengo una complicación al generar el PDF en un macro. La idea es según la categoría de plan elegido por el usuario, generar un PDF de la pestaña del documento que corresponda. ¿Me podrían ayudar? https://drive.google.com/file/d/1HJH1fZQGNGSho5WsmJXYHujr2Y_EDWOV/view?usp=share_link
1 respuesta
Visita:
Cursos de Excel y Macros
_______________________________
¿Cuál es el problema que tienes?
Prueba lo siguiente:
Private Sub COTIZAR_Click()
Dim ruta As String
Dim Result As Variant
Dim nombre As String
nombre = Range("C25").Value
If Range("D14").Value <> "" And nombre <> "" Then
Result = Application.GetSaveAsFilename( _
InitialFileName:="Comp Seguros de Salud Int " & Range("D14").Value & " .pdf", _
FileFilter:="PDF files, *.pdf", _
Title:="Guardar PDF como")
If Result = False Then Exit Sub
ruta = CStr(Result)
Sheets(nombre).ExportAsFixedFormat Type:=xlTypePDF, Filename:=ruta, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
Else
MsgBox "Falta ingresar edad de titular y/o categoría de planes.", vbCritical, "Mensaje de error"
End If
End Sub----------------
RECOMENDACIONES.
Cursos de Excel:
https://www.youtube.com/watch?v=w7MYL3wDgH4&t=3s
https://www.youtube.com/watch?v=dy9w9zbkCaw&t=644s
https://www.youtube.com/watch?v=7Xhs04vhrtg&t=188s
---
Cursos de Macros:
https://www.youtube.com/watch?v=PupmVvM16-8&t=1s
https://www.youtube.com/watch?v=f_x8pstpNqc&t=3s
https://www.youtube.com/watch?v=5k0szqErdXg&t=689s
---
Sal u dos Dante Amor
