Hola alguien me podría ayudar para realizar una macro la cual 'Guarde como' una selección de celdas pero en formato pdf con el nombre de una celda en especifico, o bien de la opción de guardar con nombre distinto cada vez yo tengo estas lineas pero me marca error:

Sub PDF()

'

' PDF Macro

'

Worksheets("PRUEBA").Range("B3:M54").Select

    Range("M3").Activate

Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

"c:\GILDARDO\Desktop\PRUEBA" + Cells(D16) + ". Pdf", _

Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _

:=False, OpenAfterPublish:=False

Range("B2").Select

End Sub[/CODE]

Sub pdf()

Dim rutaarchivo As String

rutaarchivo = "D:\todofiesta\Contratos\" & [H4] & [C4]

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=rutaarchivo, _

Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _

OpenAfterPublish:=False

End Sub[/CODE]

solo cambia la direccion donde vas a guardar tu pdf y tambien cambia la o las celdas de donde va a tomar el nombre el pdf. espero y te sirva. aqui me apoyaron con esta macro a mi me funciona muy bien. saludos a todos los del foro desde Veracruz, Mexico

Perfecto muchas gracias me sirvio mucho funciona a la perfeccion

saludos

Necesito esta macro pero no me sale

Sub ImpPDF_Wakonda()

Dim rutaarchivo As String

rutaarchivo = "G:\Factura\Pedidos\Wakonda\" & [b333] & [b333]

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=rutaarchivo, _

Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _

OpenAfterPublish:=False

End Sub

Lo amarillo no me lo acepta

Hola 5luis crea un nuevo tema este es del año pasado y no te contestaran, la macro si funciona, tienes instalado el programa PDFCreator, sin el la macro no funcionara.

PD: Casi me quedo ciego con esas letras amarillas.

Salu2

Hola Riddle, si lo tengo instalado

Hola Riddle, es el Nitro PDF Creator, el que tengo instalado

perdona por el color, como me sale en amarillo