Hola, soy nuevo en el foro espero me podáis ayudar.
La cuestión es que he creado una macro para que me exporte una hoja de calculo en formato pdf a una carpeta concreta y por mas que he visto, leído y probado no consigo que sirva.
No estoy muy puesto en excel, soy principiante, la macro la cree con el grabador.
Esta es la macro, la intención es que el archivo lleve el nombre de la celda c7 de la hoja2.
Sub PADRON_INDIVIDUAL()
'
Application.ScreenUpdating = False
' PADRON_INDIVIDUAL Macro
'
'
Sheets("PADRON INDIVIDUAL").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\Roberto\Desktop\datos\SOLICITUD PADRONES\DATOS1.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
Sheets("REGISTRO-BUSCAR").Select
Range("H6").Select
ActiveCell.FormulaR1C1 = ""
Range("H8").Select
ActiveCell.FormulaR1C1 = ""
Range("H6").Select
Application.ScreenUpdating = True
End Sub
Hola Robe_Bnb:
Prueba con esta modificación y nos comentas si te ha funcionado.
Sub PADRON_INDIVIDUAL()
Dim NombreArchivo As String 'NOMBRE DEL ARCHIVO PDF QUE LE VAMOS A PONER
Dim RutaArchivo As String 'RUTA DONDE VAMOS A GUARDAR LOS ARCHIVOS QUE VAYAMOS CREANDO
RutaArchivo = CreateObject("wscript.shell").specialfolders("desktop") & "\datos\SOLICITUD PADRONES\"
NombreArchivo = Hoja2.Range("C7") & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=RutaArchivo & NombreArchivo, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub
Espero te sirva
Un Saludo
Fernando