Jump to content

Archived

This topic is now archived and is closed to further replies.

kronos246

FILTRAR TABLA DINAMICA CON MACRO

Recommended Posts

Buenas tardes a todos

Tengo el siguiente problema, tengo el siguiente código para que la macro me filtre una tabla dinámica según lo que tenga en la celda E7, pero en esa celda tengo una formula y la macro no me reconoce el resultado de la misma, solamente si la dígito directamente, que puedo hacer para que reconozca el valor de la formula

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("E7")) Is Nothing Then

'En base al campo de la Tabla dinámica1:
With PivotTables("TablaDinámica1").PivotFields("CEDULA ADMIN")


'Limpiar todos los filtros
.ClearAllFilters

'Filtrar por el valor de la celda
On Error Resume Next
.CurrentPage = Range("E7").Value

End With
End If

End Sub

adicional que puedo hacer para que cuando no encuentre el valor asociado en el filtro, no deje todos los valores, si no que deje el filtro en blanco, o deje un valor especifico?
 

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.

INFORMACIÓN BÁSICA SOBRE PROTECCIÓN DE DATOS

Responsable: Sergio Andrés Celemín

Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la información que facilites es pública, y los datos que incluyas los leerá cualquier visitante de esta web, así como el avatar que poseas.

Legitimación: Consentimiento del interesado.

Destinatarios: Hetzner Online GmbH.

Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso,
rectificación, supresión, oposición y demás derechos legalmente establecidos a
través del email sergio@ayudaexcel.com.

Información adicional: Encontrarás más información en la política de privacidad.




×
×
  • Create New...

Important Information

Privacy Policy