UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

wibly


Estimados compañeros,

Luego de un largo período de 'inactividad' en NUESTRO Foro (cuando puedo ingresar está prácticamente todo resuelto) regreso para hacer un aporte que tenía pendiente desde hace un tiempo.

Introducción: Cuando trabajamos con una Tabla Dinámica, al agragar o modificar registros en la base de datos la tabla dinámica requiere ser actualizada, ya que por defecto no se actualiza automáticamente, como sí lo hacen las fórmulas.

Solución: Una forma para que la actualización se realice de manera automática es copiar el código que presento debajo dentro de la hoja en que se encuentra la tabla dinámica.



*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*

Código:

Private Sub Worksheet_Activate()
Dim TDx As Integer
For TDx = 1 To ActiveSheet.PivotTables.Count
ActiveSheet.PivotTables(TDx).RefreshTable
Next TDx
End Sub


*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*

Nota: Esto es válido para cuando la tabla dinámica no se encuentra dentro de la misma hoja que los datos de origen.

Si no recuerdo mal la macro la saqué de un aporte de lo que fue el querido foro "mundoexcel" y desconozco a quien corresponde como para mencionarlo, sepa disculpar el autor, al quien agradezco.

Por último también quiero agradecer a todos los que están aportando en el foro con sus respuestas, especialemente a Tyno que por lo que veo está participando mucho.

Un fuerte abrazo

Adrián

wibly


te quedaron dudas? scratch

... podés ver un ejemplo práctico de como hacerlo pueden mirar este video:

http://youtu.be/_k6upMjPXdk

Saludos

Adrián

tyno


Hola Adrian, un gusto saludarte compatriota, estamos casi bastante cerca, (en terminos geograficos) deben ser unos 400 km que nos separan.
En este tiempo, por cuestiones de que mi trabajo suele bajar el ritmo, puedo darme el lujillo de estar mas activo en el foro, espero sepan disculparme demas compañeros, pero si quieren llegar a morder algun aporte van a tener que estar mas atentos :Dje,je...
¡que no se enfrie ese espiritu "metiche" que supo caracterizar a los integrantes del otrora querido "mundo excel" !

4 Interpretación del código el 13/03/14, 08:38 pm

wibly


Compañeros, ando tratando de interpretar un poco algunas macros que tengo y en este caso quisiera que me ayudaran a entender un poco el funcionamiento del código que subí, sentencia por sentencia para ir aprendiendo:

Yo lo veo así:

Código:
Private Sub Worksheet_Activate()
esto nos indica que se aplica sobre la hoja activa ¿y Private que nos dice en este caso?

Código:
Dim TDx As Integer
define la variable TDx (luego nos indicará el número de la tabla dinámica)

Código:
For TDx = 1 To ActiveSheet.PivotTables.Count
estableces que desde 1 hasta la cantidad de Tablas Dinnámicas tiene la hoja activa se hará lo que sigue

Código:
ActiveSheet.PivotTables(TDx).RefreshTable
actualiza la tabla dinémica número TDx (o sea todas las tablas dinámicas de la hoja)

Código:
Next TDx
cierra la sentencia For

Código:
End Sub
cierra la macro

Si alguien puede aportar algo bienvenido!

Saludos

Adrián

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.