ERROR MACRO SE HA PRODUCIDO ERROR 5 EN TIEMPO DE EJECUCION ARGUMENTO O LLAMADA PROCEDIMIENTO
Publicado por LUZ RODRIGUEZ (1 intervención) el 28/07/2022 14:56:25
Hola, requiero de su apoyo para entender el error de la siguiente MACRO, que filtra tabla dinamica con formatos condicionales y genera PDF, pero al ejecutarla sale el siguiente error
SE HA PRODUCIDO ERROR 5 EN TIEMPO DE EJECUCION ARGUMENTO O LLAMADA PROCEDIMIENTO
Sub IMPRIMIR_TRIQUI_PDF()
Application.ScreenUpdating = False
'LIMPIAR
Sheets("Control").Select
NR = Worksheets("Control").Range("C5").Value
For FILA1 = 6 To NR
Sheets("Control").Select
RUTA = Worksheets("Control").Range("C" & FILA1 & "").Value
Worksheets("ENVIAR").Range("C4").Value = RUTA
'Range("C4").Value = RUTA
'* TABLAS
Sheets("ENVIAR").Select
ActiveSheet.PivotTables("TablaDinámica4").PivotFields("JEFATURA").ClearAllFilters
ActiveSheet.PivotTables("TablaDinámica4").PivotFields("RUTA").CurrentPage = RUTA
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=RUTA, OpenAfterPublish:=False
Next
SE HA PRODUCIDO ERROR 5 EN TIEMPO DE EJECUCION ARGUMENTO O LLAMADA PROCEDIMIENTO
Sub IMPRIMIR_TRIQUI_PDF()
Application.ScreenUpdating = False
'LIMPIAR
Sheets("Control").Select
NR = Worksheets("Control").Range("C5").Value
For FILA1 = 6 To NR
Sheets("Control").Select
RUTA = Worksheets("Control").Range("C" & FILA1 & "").Value
Worksheets("ENVIAR").Range("C4").Value = RUTA
'Range("C4").Value = RUTA
'* TABLAS
Sheets("ENVIAR").Select
ActiveSheet.PivotTables("TablaDinámica4").PivotFields("JEFATURA").ClearAllFilters
ActiveSheet.PivotTables("TablaDinámica4").PivotFields("RUTA").CurrentPage = RUTA
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=RUTA, OpenAfterPublish:=False
Next
Valora esta pregunta


0