Visual Basic - ERROR MACRO SE HA PRODUCIDO ERROR 5 EN TIEMPO DE EJECUCION ARGUMENTO O LLAMADA PROCEDIMIENTO

Life is soft - evento anual de software empresarial
 
Vista:

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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Antoni Masana
Val: 1.259
Plata
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

ERROR MACRO SE HA PRODUCIDO ERROR 5 EN TIEMPO DE EJECUCION ARGUMENTO O LLAMADA PROCEDIMIENTO

Publicado por Antoni Masana (558 intervenciones) el 29/07/2022 11:09:06
Sin ver el libro es difícil por no decir imposible saber la causa.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
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

Pueden ser muchas cosa, ademas no especificas la línea del error.

- Que NR no sea numérico.
- Que no le guste: Worksheets("Control").Range("C" & FILA1 & "").Value y prefiera Sheets("Control").Range("C" & FILA1).Value

Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar