Consulta Funcion VBA

[Cacique]

Buenos días,

Espera por favor me puedan ayudar con la siguiente situación que necesito solucionar. Requiero mediante una función personalizada en VBA o una macro que éste me liste los campos que tengo como filtros activos de una tabla dinámica.

Ejemplo: el el filtro creado de esta tabla dinámica hay unos filtros activos como lo pueden ver, lo que necesito es que mediante una función o un código VBA excell me liste o me escriba separador por ",", los filtros que en ese momento estén activos en la tabla dinámica.

Agradezco me puedan ayudar.

Centro	(Todas)
Status	no suministrado
Tipo Pedido	ZEDI
Creado	(Varios elementos)
Nombre	(Todas)
Solic.	Nombre 1	Material	Denominación	Validación	Pedido	Doc.comer.	Fecha Pedido	Ctd.ped.	Max Ped	Suma de Dif
10061850	COLOMBIANA DE COMERCIO S.A.	1019563	Salch. 500g Lev. 12 und. Mini RANCHERA	Validar	AKPER0000129647	7096250028	13/04/2016	400	0	400
		1022185	Jugo Country H NUE Bolsa 1l Pack x 2un	Validar	AKPER0000129647	7096250028	13/04/2016	400	7	393
		1024407	Practi Sanduche ZENU x 440 g	0	AKPER0000129647	7096250028	13/04/2016	300	0	300
		1001383	Schon. tradi. ZENU x 450 g grt. 150 g	Validar	AKPER0000129647	7096250028	13/04/2016	200	0	200
		1025321	Salch. Perro clte ZENU 480g grt 2und	0	AKPER0000129647	7096250028	13/04/2016	184	0	184
		1000582	Mtdela. Tradi. ZENU x 450 g	Validar	AKPER0000129647	7096250028	13/04/2016	140	77	63

[AlexanderS]

Hola, prueba esta macro:

Sub Camposfiltrados()
Dim pt As PivotField
Dim x As String
For Each pt In ActiveSheet.PivotTables("Tabla dinámica1").PageFields' Debes cambiar el nombre de la tabla
x = """" & pt.Name & "= " & pt.CurrentPage & """" & "," & x
Next
MsgBox x
End Sub

Esto solo funciona cuando el filtro es de 1 solo criterio si es de mas se mostrara como (All) dada la limitación de VBA.

Comentas, Salu2

[Cacique]

hola muchas gracias por tu respuesta, el código me ejecuta, pero como lo puedo editar para que el resultado no se me aplique para cada uno de los filtros de la taba sino solo para el filtro de campo que se llama creado? lo otro es que ejecuto la macro y me muestra como resultado en todos los filtros ALL así tenga por ejemplo filtrado en creado solo 1 dato.

 

Mil gracias por tu respuesta