Macro Para filtro de datos en etiquetas de fila de tabla dinámica

Quisiera Filtrar los datos de cualquiera de los campos que están en las etiquetas de fila de una tabla dinámica de acuerdon con valores ingresados en celdas es decir:

Al escribir la palabra que debe filtrar en las celdas de color moradas se filte la tabla dinámica por cada campo correspondiente, si en B1 por ejemplo escribo residencia automáticamente filte la tabla dinámica con esa palabra, luego si en B2 escribo juan automáticamente también filtre la columna correspondiente con esa palabra, y asiii, para este ejemplo son solo 3 etiquetas de fila, pero la realidad es que pueden ser hasta 8 etiquetas de fila...

Si las celdas moradas están en blanco pss no se debe filtrar nada, pero si se introduce una palabra filtrar automáticamente.

¿Esto se puede?

1 respuesta

Respuesta
3

Sí, esto es muy fácil.

Se usa el principio del filtro avanzado.

En el siguiente ejemplo hay un rango de base de datos que he nombrado "Base_de_datos" y cubre todo el rango A4:D48, he copiado los nombres de campo de la base en la fila 1 le he aplicado un rango de criterios que he nombrado "CriteriosFiltro" al rango A1:D2. Importante dejar dos filas en blanco o mas entre los textos.

Se copia la siguiente macro, que utiliza el filtro avanzado, en el editor de VB en la hoja donde está la base de datos.

Private Sub worksheet_change(ByVal Target As Range)
If ActiveCell.Row = 2 Then
    [Base_de_datos].CurrentRegion.Name = "Base_de_datos"
    [Base_de_datos].AdvancedFilter Action:=xlFilterInPlace, CriteriaRange _
        :=[CriteriosFiltro], Unique:=False
End If
End Sub

Al escribrir cualquier texto en la fila 2 en la columna correspondiente se activa el filtro. Ejemplo:

, al borrarlo se visualizan los datos de nuevo.

Acabo de darme cuenta que estás hablando de una tabla dinámica, no de una base de datos. Perdona, entonces es distinto.

Miguel Te agradezco de igual manera tu interés muchas gracias por tu tiempo

Rectifico para tabla dinámica.

Puedes copiar esta macro en el mismo sitio:

Private Sub worksheet_change(ByVal Target As Range)
On Error GoTo FINAL
With ActiveSheet.PivotTables("Tabla dinámica1").PivotFields(Cells(ActiveCell.Row, ActiveCell.Column - 1).Value)
PVIC = .PivotItems.Count
If ActiveCell.Value = 0 Then
    For i = 1 To PVIC
    .PivotItems(i).Visible = True
    Next
Else
    For ii = 2 To PVIC
        .PivotItems(ii).Visible = False
    Next
        .PivotItems(ActiveCell.Value).Visible = True
        If [B1].Value <> .PivotItems(1).Name Then .PivotItems(1).Visible = False
End If
    End With
FINAL:
End Sub

escribe los nombres de campo en una celda (en el ejemplo siguiente A1 y A2) y el item por el que quieres filtrar lo escribes a la derecha  (B1 y B2), así ejecuta el filtro. Borrando hace visibles los campos de nuevo. La macro la he aplicado a esta tabla:

Para que funcione mejor añade p.f. estas instrucciones:

Justo al principio después del nombre

Application.EnableEvents = False

Justo al final antes de end sub

Application.EnableEvents = True

Fredy ya te contesté la pregunta para tabla dinámica, pero creo que no has visto la respuesta aún.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Filtrar una lista de excel, ya filtrada.

Tengo una macro que me ayuda a filtrar el contenido de una columna (A) de acuerdo a la información que le proporcione, en la celda A1. Ejemplo: PPRDM-R1-15023-MR. Esta macro la puedo hacer funcionar buscando cualquiera de las partes del texto...
1 respuesta

Seleccionar datos a filtrar en una TD con una macro

Espero se encuentre muy bien. Bueno mi problema es la siguiente: tengo un libro de excel con muchas tablas dinámicas, las cuales cada mes las tengo que actualizar y cambiar el filtro "mes", mi pregunta sería: puedo hacer que dentro de una macro, ¿La...
1 respuesta

Hacer búsqueda y filtrar sin botón para luego su selección

Tengo este código. Private Sub Worksheet_Change(ByVal Target As Range) 'desactivamos la actualizacion de la pantalla, es decir ocultamos lo que la macro hace Application.ScreenUpdating = False 'si existe algun error de uso lo ignora o salta al...
2 respuestas

Macro para que mi tabla dinámica me muestre los datos de las 4 últimas fechas de mi BD

Tengo una base de datos que se actualiza automáticamente con las llamadas atendidas y las no atendidas por semanas. A todas las llamadas se les pone la fecha del viernes de esa semana. En la tabla dinámica que tengo tienen que verse los resultados de...
1 respuesta

Según el valor de una celda, buscar todos los registros coincidentes y mostrarlos en forma alfabética en otra hoja

Estimado tengo un excel que tiene 2 hojas una con los datos y otra donde quiero que me muestre sólo los datos según el valor dado en una celda con lista de validación. Por ejemplo que me muestre a todos registros que tienen por apellido "LORCA", con...
2 respuestas

Filtro avanzado

¿Me podrías ayudar con filtros avanzados por medio de macro? Tengo la sig. Rutina pero no me respeta el valor del filto que le pongo. Gracias de antemano Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$2" Then Call filtrar...
1 respuesta

Seleccionar valor filtrado

Tengo una lista de valores (días de la semana) en la columna A con encabezado en A1 y así mismo tengo una lista de valores (meses del año) en la columna B con encabezado en B1. Como logro que cuando selecciones uno de los valores para filtrar en la...
1 respuesta

Ejecutar macro desde lista desplegable

Necesito tomar los datos de un filtro avanzado y aser que aparezcan los resultados en una lista desplegable. La idea esta. En la hoja3 de mi planilla selecciono la celda b1 que contiene una lista con los nombres de distintos clientes. Por otro lado...
1 respuesta

Como filtrar a partir de celdas constantes(macro o fórmula)

Como se puede filtrar(con fórumulas o macros) lo siguiente: Tengo una tabla llamada SOS, la cual tiene filtro de diferentes sku's Quiero filtrar tomando dos criterios: A1(que especifique en que columna filtrar), y B1(especifique el valor a filtrar),...
2 respuestas

Error en Macro que crea una Tabla Dinámica

Alguien me podría ayudar con lo siguiente, hice una macro que crea una tabla dinámica el problema es que me esta marcando error 1004 en tiempo de ejecución, referencia no valida ya revise en la página de Microsoft y seguí las instrucciones que ahí...
1 respuesta