Buenos Noches para todos los compañeros estuve realizando una macro para actualizar 8 tablas dinámicas y al momento de ejecutar la macro me genera un error " Se ha Producido el Error 1004 en tiempo de ejecucion" y me sale error definido por la aplica
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Buenos Noches para todos los compañeros estuve realizando una macro para actualizar 8 tablas dinámicas y al momento de ejecutar la macro me genera un error " Se ha Producido el Error 1004 en tiempo de ejecucion" y me sale error definido por la aplica
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address <> "$b$5" Then Exit Sub
Application.ScreenUpdating = False
'Actualiza las tablas
ActiveSheet.PivotTables("TD1").PivotCache.Refresh
'Actualiza el año de todas las tablas
dia = Hoja3.Range("B5")
ActiveSheet.PivotTables("TD1").PivotFields("Dia").CurrentPage = _
dia
ActiveSheet.PivotTables("TD2").PivotFields("Dia").CurrentPage = _
dia
ActiveSheet.PivotTables("TD3").PivotFields("Dia").CurrentPage = _
dia
Application.ScreenUpdating = True
End Subcion o el objeto
necesito saber por que me genera un error y colaborarme con el archivo que tengo ya que es mi importante y de igual forma fortalecer mis conocimientos
muchas gracias y espero de todos mis compañeros del foro una exitosa respuesta por parte de ustdes
cualquier cosa comparto mi archivo pero pega un tris muchas gracias
mi [email protected]