Filtrar tabla dinamica con datos recogidos de otra hoja

[kapyderi]

Buenas a todos, tengo una duda que creo que tiene solución, pero no encuentro la forma de hacerlo, me explico...
Tengo un libro excel, donde en una pagina tengo unos datos de un solo cliente (1)...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[galileogali]

Ejemplo:

Sub Filtrar()
    Sheets("la que sea").PivotTables("Tabla dinámica1").PivotFields("Grupo").CurrentPage = _
        "Menaje"
End Sub

El código anterior filtra la Tabla...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[kapyderi]

Gracias por el aporte, pero tengo una duda.
Si tengo cuatro tablas dinamicas independientes, pero todas coinciden en el campo cliente, por ejemplo, si el codigo que yo introduzco, no existe en las...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[galileogali]

Entiendo que si no figura el código, deberia arrojar un error, por lo tanto con
On error resume next
deberia poder pasar a la tabla siguiente sin dificultades
Francamente el tiempo es escaso y...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[kapyderi]

Se me olvidaba comentarte una cosa...
En el caso de que la Tabla dinamica y el campo donde pongo el dato este en la misma hoja, ¿como se haria?
Saludos!!!!

 

[lemac]

Hola,
Tengo que hacer un filtro a una TD con una macro que me muestre los resultados de un pivotFields "mes" con los criterios pivotItem que estan en un rango de otra hoja Range("A1:A4"). Pensaba...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[lemac]

Estoy usando este codigo y me funciona para un cirterio pivotitem en una celda concreta. mi pregunta es como puedo hacer lo mismo para un rango dinamico (a2:a9) de criterios pivotitem? si se puede...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[galileogali]

Podriamos ir probando esto?

Sub tabladinamica()

Application.Calculation = xlCalculationManual
Dim FilPaquet As String
Dim rngCriterios As Range
Dim i As Long
    hojaactiva =...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[lemac]

Gracias por tu respuesta.
he probado y no me funciona.
estoy probando este codigo pero tengo un problema y es que no puedo filtrar el ultimo pivotitem me devuelbe error. Es porque no hay ningun...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[galileogali]

Mándame si puedes, una reducción del archivo con la tabla dinámica y con su BD a
galileogali-excel(arroba)hotmail.com

 

[lemac]

Hola,
ya te mande un ejemplo de la hoja.
Gracias por tu tiempo.

 

[lemac]

Hola,
creo que el motivo que no me funcionara la opicion que me diste anteriormente

Application.IsNumber(Application.WorksheetFunction.Match(.PivotItems(i).Value, rngCriterios, 0))

es...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[lemac]

hola,
aqui estoy de nuevo con mas problemas con esta parte de codigo:

    With Sheets(hojadatos).PivotTables("Tabla dinámica1").PivotFields("paquet")
    
    For i = 1 To...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[lemac]

Hola,
Alguien me puede echar una mano?
estoy un poco desesperado. no se como resolver este tema.
Gracias por su tiempo

 

[lemac]

Hola,
Aqui dejo una solucion a lo que estaba buscando. Gracias al aporte de Damian Omar Silva (damianexcel....)

With Sheets(hojadatos).PivotTables("Tabla...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[GPM]

Hola, con respecto al tema, utilizando el codigo anterior, me crea un problema,
resulta que que una de las opciones en el "pivotfield("algo")" es la opción (Todas), es decir quiero que me...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí