none
macro excel 2013 celda con autofiltro fijado al desplegar el autofiltro los items a seleccionar aparezcan mas grandes RRS feed

  • Pregunta

  • Hola,

    En excel 2013. Desearia una macro, que al seleccionar una celda con un autofiltro fijado, al desplegar el autofiltro los items que aparecen para seleccionarlos se vieran un más grandes, es decir que en ese justo momento cuando se depliega el autofiltro la hoja entera hiciea un zoom para poder ver más grandes los items con los que selecciono para hacer el filtro. Lo he estado intentando pero no consigo relacionar la funcion range.autofilter con la funcion zoom.

    Tambien, se podria aplicar alguna macro para conseguir el mismo efecto para las tablas dinamicas?

    Me seria de gran ayuda, ya que he probado de modificar la configuracion del windows pero tengo que poner demasiado zoom para conseguir el efecto deseado, con lo que todo lo demas se ve demasiado grande.

    muchas gracias por la ayuda y un saludo

    viernes, 15 de diciembre de 2017 1:04

Todas las respuestas

  • Hola,
    En excel 2013. Desearia una macro, que al seleccionar una celda con un autofiltro fijado, al desplegar el autofiltro los items que aparecen para seleccionarlos se vieran un más grandes, es decir que en ese justo momento cuando se depliega el autofiltro la hoja entera hiciea un zoom para poder ver más grandes los items con los que selecciono para hacer el filtro. Lo he estado intentando pero no consigo relacionar la funcion range.autofilter con la funcion zoom.
    Tambien, se podria aplicar alguna macro para conseguir el mismo efecto para las tablas dinamicas?
    Me seria de gran ayuda, ya que he probado de modificar la configuracion del windows pero tengo que poner demasiado zoom para conseguir el efecto deseado, con lo que todo lo demas se ve demasiado grande.
    muchas gracias por la ayuda y un saludo
    • Combinado Enrique M. Montejo viernes, 15 de diciembre de 2017 15:20 Pregunta repetida en varios foros.
    viernes, 15 de diciembre de 2017 14:10
  • Hola:

    Lamentablemente para tus intereses, no existe algún "evento" que detecte cuando se usa/despliega algún botón de los autofiltros. Lo mismo ocurre con las tablas dinámicas  pero en este último caso sí hay eventos, en la hoja, asociadosa los cambios aunque no hay uno, al igual que los autofiltros, que detecte cuando despliegas alguna de sus listas. 

    Abraham Valencia

    • Propuesto como respuesta Pablo Rubio viernes, 15 de diciembre de 2017 18:24
    viernes, 15 de diciembre de 2017 14:48
  • Hola Abraham Valencia

    Con base a tu consulta, no hay una función o evento fabricado  en excel que realice lo que necesitas, tendrás que crear  una macro, lo puedes realizar por medio de un switch case o por medio de If else anidados.

    Quedamos al pendiente de cualquier actualización de tu parte.

    Saludos Cordiales.

    Gracias por usar los foros de MSDN.

    Pablo Rubio
     _____

    Por favor recuerde "Marcar como respuesta" las respuestas que hayan resuelto su problema, es una forma común de reconocer a aquellos que han ayudado, y hace que sea más fácil para los otros visitantes encontrar la solución más tarde. 

    Microsoft ofrece este servicio de forma gratuita, con la finalidad de ayudar a los usuarios y la ampliación de la base de datos de conocimientos relacionados con los productos y tecnologías de Microsoft.  

    Este contenido es proporcionado "tal cual" y no implica ninguna responsabilidad de parte de Microsoft.


    • Editado Pablo Rubio viernes, 15 de diciembre de 2017 18:32 No aplica
    viernes, 15 de diciembre de 2017 18:31
  • Hola,

    gracias por las indicaciones. he intentado hacer la macro medinate el selected case pero no consigo hacer nada.

    imaginemos que el filtro lo tengo en la celda b2

    esto es lo que he escrito.

    Sub Macro1()
    '

    Select Case Range("b2")
    Case Is = FilterMode = True
    ActiveWindow.Zoom = 115
    End Select

    End Sub

    sábado, 16 de diciembre de 2017 23:29
  • Prueba algo así:

    Sub ZommZoom()
    
    With ActiveSheet
    
            If .AutoFilterMode = True And .FilterMode = True Then
            ActiveWindow.Zoom = 115
            End If
    
        End With
        
    End Sub

    Comentas

    Abraham Valencia

    • Propuesto como respuesta Pablo Rubio lunes, 18 de diciembre de 2017 15:30
    lunes, 18 de diciembre de 2017 2:00
  • Hola,

    Gracias por la aportación, pero no funciona.

    un saludo,

    lunes, 18 de diciembre de 2017 21:11
  • Estimado:

    ¿Qué es "no funciona" para ti? ¿en dónde copiaste/pegaste el ejemplo? ¿Te diste cuenta que sirve para una "hoja activa" y para (auto) filtros? ¿no será qué lo aplicaste en una hoja con una "Tabla Dinámica"? Sugiero leer más sobre VBA.

    Abraham Valencia 

    • Propuesto como respuesta Pablo Rubio jueves, 21 de diciembre de 2017 21:33
    martes, 19 de diciembre de 2017 0:07
  • Hola Abraham,

    Lo he probado de las dos maneras, la primera como un modulo, y la segunda en un otro libro nuevo, lo he probado como objeto general de la hoja.

    tanto de una manera como de la otra, al hacer un autofiltro y seleccionar la celda la macro no se ejecuta.

    un saludo,

    jueves, 21 de diciembre de 2017 22:08
  • Hola nuevamente:

    Como ya te habíamos dicho, los autofiltros no tienen eventos asociados, además de eso la macro que te he enviado como ejemplo, al ser una rutina (Sub) debe ser activada por ti, ya sea mediante un botón que tú puedes agregar o mediante el botón del Excel llamado "Ver Macros". 

    Si insistes, a pesar de lo comentado, que sea de modo "automático", debes hacer algún cambio, quizá en una celda que de preferencia NO sea parte de las que se filtran, y usando el evento "change" de la hoja podrías lograr el efecto. Claro, no le veo ventaja alguna a hacerlo con alguno de los medios recomendados.

    Para terminar, sugiero leer sobre VBA.

    Abraham Valencia

    • Propuesto como respuesta Pablo Rubio martes, 26 de diciembre de 2017 22:11
    viernes, 22 de diciembre de 2017 0:36