** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Otros de Microsoft: Windows y Office > Excel
  Mensajes nuevos Mensajes nuevos RSS - Refrescar Pivot Table
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoRefrescar Pivot Table

 Responder Responder
Autor
Mensaje
Erick Gamer Ver desplegable
Habitual
Habitual
Avatar

Unido: 08/Mayo/2016
Localización: Mexico
Estado: Sin conexión
Puntos: 169
Enlace directo a este mensaje Tema: Refrescar Pivot Table
    Enviado: 20/Octubre/2016 a las 17:43
Que tal a todos saludos.

Tengo un Libro Excel con varias Macros y un Pivot Table en una hoja en especifico del mismo Libro, lo que quiero es refrescar el Pivot Table mediante la Macro pero me esta arrojando un error que no he podido solucionar por ello recurro a ustedes a ver si pueden ayudarme con ello.

Este es el error que me da:

Se ha producido el error '1004' en tiempo ejecución:
No se puede obtener la propiedad Pivot Tables de la clase Worksheet
EDITO:

Y para refrescar el Pivot Table lo estoy intentando así:

Set pt = ActiveSheet.PivotTables("Pv4")
'>>>>>> aqui es donde se traba la Macro     pt.RefreshTable


Serian tan amables de ayudarme por favor.

Gracias.

Erick Gamer

Editado por Erick Gamer - 20/Octubre/2016 a las 18:37
Aprendiz de todos, maestro de nadie.
Arriba
lbauluz Ver desplegable
Administrador
Administrador
Avatar

Unido: 29/Marzo/2005
Localización: Cárcel Brieva
Estado: Sin conexión
Puntos: 3350
Enlace directo a este mensaje Enviado: 20/Octubre/2016 a las 22:40
?Estas seguro que la hoja activa en ese momento es la que quieres?

Porque ese error suele producirse por eso, prueba a cambiar ActiveSheet por Me

O asegurate de hacer activa la hoja adecuada antes.

Un saludo.

Luis

PD: Teclado en ingles, perdon por no poner acentos.



Estoy en el módulo psiquiátrico de la prisión de Brieva
Arriba
Erick Gamer Ver desplegable
Habitual
Habitual
Avatar

Unido: 08/Mayo/2016
Localización: Mexico
Estado: Sin conexión
Puntos: 169
Enlace directo a este mensaje Enviado: 25/Octubre/2016 a las 18:16
Gracias por contestar.

Encontre un codigo que me sirvio a solucionar el problema lo encontre aqui:

http://www.todoexpertos.com/categorias/tecnologia-e-internet/software-y-aplicaciones/microsoft-excel/respuestas/funf1f8nogj9g/actualizar-pivottable-automaticamente

Este es el codigo:

Private Sub Worksheet_Change(ByVal Target As Range)


Dim pt As PivotTable

Dim ws As Worksheet

For Each ws In ActiveWorkbook.Worksheets

For Each pt In ws.PivotTables

pt.RefreshTable

Next pt

Next ws

End Sub


Y desactive las lineas con las que yo trataba de actualizar los Pivot Table.

Gracias pueden cerrar el hilo.

Erick Gamer
Aprendiz de todos, maestro de nadie.
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable