Jump to content

modificar filtro de Tabla din. desde macro(inputbox)


Recommended Posts

Saludos

tengo una tabla dinamica sencilla pero deseo poder modificar el "filtro de informe" desde una macro con un criterio, los años, por ejemplo que solo muestre los datos entre 2009 y 2013 pero esto desde una macro para luego insertarle esa pregunta con un inputbox y hacerlo interactivo.

algo asi

Sub filtro_interactivo()
año2 = InputBox("Ingrese el año hasta donde quiere ver datos: ", "AÑO FINAL")
' el campo3 es la variable que va en el filtro y son años desde 2009 hasta 2019
If ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("campo3").items < año2 Then
ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("campo3").Items.visible=true
End If
End Sub

esto es solo un boquejo porque creo que la propiedad items en pivotfields no esta definida

como si esta definida es asi

If ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("campo3").PivotItems < año2 Then
ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("campo3").PivotItems.visible =true

pero pivotitems es de la clase string por lo cual no puedo tratarlo como un numero,, alguna idea para poder filtrar mis datos con el inputbox como deseo

adjunto el archivo

es *******

muchas gracias

td_año1.zip

Link to comment
Share on other sites

Archived

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

  • Crear macros Excel

  • Posts

    • Hola a ambos, @gonzalomadrid, en Word de M365 sí funciona. Basta con que escribas =rand() para que te aparezca el texto. Si eliges =rand(2,3) te aparecerá un texto con 2 párrafos y 5 operaciones. En Excel, hasta donde yo sé, es diferente. Tal como te comenta @Abraham Valencia, dispones de =ALEATORIO() y =ALEATORIO.ENTRE() para generar números aleatorios. El propio 'Help' de Excel explica muy bien argumento y sintaxis de ambas funciones. Saludos,  
    • Hola, descargar mejor la versión (2). Saludos. MImgUrl(2).xlsm
    • Hola Medio enredado lo que escribes, pero creo que en realidad lo que buscas es ALEATORIO.ENTRE o RANDBETWEEN si usas Excel en inglés.    
    • Muchas gracias a todos por sus aportes, me han resultado de mucha utilidad, al final lo pude resolver utilizando temporalmente la funcion de reemplazar para sacar la operacion requerida y despues de eso lo volvi a dejar como estaba. Un saludo para todos
    • aquel famoso - y antiguo-    = Rand (8,5)   ¿funciona en    en excel 2019? y de paso ¿funciona en word 2019 y demás office? A mi no me funciona ni a tiros, ni ese ni   = Rand () ni Lorem Ipsum() ni nada parecido para meter texto dummy o aleatorio. ¿alguien  sabe algo?  
  • Recently Browsing

    • No registered users viewing this page.
×
×
  • Create New...

Important Information

Privacy Policy