Error 1004 (Error definido por la aplicacion)
Publicado por Saul (1 intervención) el 22/09/2019 23:51:01
Buen día, Espero alguien me pueda ayudar pero no he podido solucionar este error,(Error 1004 (Error definido por la aplicación)) adjunto la macro que tengo y que solo me funciona hasta donde requiero que me filtre la fecha.
De antemano agradezco su ayuda
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
(ActiveSheet.PivotTables("Tabladinámica3").PivotFields( _
"FechProd").PivotFilters.Add Type:=xlCaptionEquals, _
Value1:=Range("AI3"))
Sub Filtrar()
Application.CutCopyMode = False
ActiveSheet.PivotTables("Tabladinámica3").PivotCache.Refresh
ActiveSheet.PivotTables("Tabladinámica3").PivotFields( _
"FechProd").ClearAllFilters
ActiveSheet.PivotTables("Tabladinámica3").PivotFields( _
"FechProd").PivotFilters.Add Type:=xlCaptionEquals, _
Value1:=Range("AI3")
ActiveSheet.PivotTables("Tabladinámica3").PivotFields( _
"Turno").ClearAllFilters
ActiveSheet.PivotTables("Tabladinámica3").PivotFields( _
"Turno").PivotFilters.Add Type:=xlCaptionEquals, Value1 _
:=Range("AI4")
Application.CutCopyMode = False
End Sub
De antemano agradezco su ayuda
Valora esta pregunta
0