Tabla dinámica para análisis de Quejas y Reclamos - VBA

RETO

Tenemos una tabla con las siguientes características:

(Para mayor visualización de la imagen, hacer click en la misma)

....se obtuvo MES con la formula =NOMPROPIO(TEXTO(C2;"mmmm"))

....se obtuvo AÑO con la formula=AÑO(C2)

Y se quiere generar la tabla dinámica siguiente con TIPO y ESTADO como campo de fila y AREA INVOLUCRADA como campo de columna:

(Para mayor visualización de la imagen, hacer click en la misma)

Lo que se desea lograr es que mediante un botón se llame a un formulario que utilizando combobox de año y de mes se pueda obtener esta tabla dinámica con las opciones escogidas.

SOLUCIÓN

LLamaremos a nuestra hoja donde esta la tabla con datos como "DATOS" y a la hoja donde está nuestra tabla dinámica como "TABLA_DINAMICA".

- Primero creamos nuestro botón en la hoja "DATOS"

Con el siguiente código que servirá para llamar a nuestro formulario "Generador"

-Luego generamos las variables globales en un módulo, éstas tomarán los valores de año y mes a seleccionar en el formulario.

- A continuación creamos nuestro formulario "Generador"

Con el siguiente código para los datos de cada combox

y el  siguiente código para que al oprimir el botón que dice "GENERAR" en el formulario se adjudique valores a nuestras variables globales, como aprecian si se escogió el valor "Todo" cambiamos a valor "(ALL)" esto es para que se pueda aplicar el filtro escogiendo todos los valores en la tabla dinámica. Luego este código llama al procedimiento "CrearTabla" y al final está la instrucción para cerrar el formulario.

-Finalmente creamos el procedimiento "CrearTabla" para generar nuestra tabla dinámica en la hoja "TABLA_DINAMICA"

(Para mayor visualización de la imagen, hacer click en la misma)

Con esto hemos cumplido el reto.

 

CREADO POR: LUIS JAUREGUI