¿Cómo mantener el segmentador de la Tabla Dinámica moviéndose con el desplazamiento de la hoja de cálculo en Excel?

Al trabajar con una Tabla Dinámica, es posible que insertes segmentadores para filtrar visualmente los datos de la tabla. Este artículo trata sobre cómo mantener el segmentador de la Tabla Dinámica siempre visible mientras se desplaza por la hoja de cálculo.

Mantener el segmentador de la Tabla Dinámica moviéndose con el desplazamiento de la hoja de cálculo mediante código VBA

Mantener el segmentador de la Tabla Dinámica moviéndose con el desplazamiento de la hoja de cálculo mediante código VBA

El siguiente script VBA puede ayudarte a mantener el segmentador de la Tabla Dinámica moviéndose con la hoja de cálculo. Por favor, sigue los siguientes pasos.

1. Presiona simultáneamente las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. En la ventana de Microsoft Visual Basic para Aplicaciones, haz doble clic en ThisWorkbook en el panel izquierdo Proyecto, y luego copia y pega el siguiente código VBA en la ventana ThisWorkbook (Código). Ver captura de pantalla:

Código VBA: Mantener el segmentador de la Tabla Dinámica moviéndose con el desplazamiento de la hoja de cálculo

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Dim ShF As Shape
    Dim ShM As Shape
    'specify a slicer
    Application.ScreenUpdating = False
    Set ShF = ActiveSheet.Shapes("Column1")
    Set ShM = ActiveSheet.Shapes("Column2")
    'change position of the slicer
    With Windows(1).VisibleRange.Cells(1, 1)
        ShF.Top = .Top
        ShF.Left = .Left + 300
        ShM.Top = .Top
        ShM.Left = .Left + 100
    End With
    Application.ScreenUpdating = True
End Sub

Notas:

1). En el código, Columna1 y Columna2 son los nombres de los segmentadores.

2). Puedes especificar la posición de los segmentadores mientras te desplazas por la hoja de cálculo en el código.

3). Además, puedes agregar más segmentadores al código o eliminarlos según sea necesario.

3. Presiona las teclas Alt + Q para cerrar la ventana de diálogo de Microsoft Visual Basic para Aplicaciones.

A partir de ahora, los segmentadores especificados se moverán con la celda activa mientras te desplazas por la hoja de cálculo. Ver captura de pantalla:

Descubre la Magia de Excel con Kutools AI

• Ejecución Inteligente: Realiza operaciones en celdas, analiza datos y crea gráficos, todo impulsado por comandos simples.
• Fórmulas Personalizadas: Genera fórmulas adaptadas para optimizar tus flujos de trabajo.
• Codificación VBA: Escribe e implementa código VBA sin esfuerzo.
• Interpretación de Fórmulas: Comprende fórmulas complejas con facilidad.
• Traducción de Texto: Supera las barreras del idioma dentro de tus hojas de cálculo.

Potencia tus capacidades de Excel con herramientas impulsadas por IA. ¡Descarga Ahora y experimenta una eficiencia como nunca antes!

Artículos relacionados:

• ¿Cómo mantener la tabla ampliable insertando filas de tabla en una hoja de cálculo protegida en Excel?
• ¿Cómo combinar celdas y mantener el formato de las mismas en Excel?
• ¿Cómo eliminar duplicados pero mantener la primera instancia en Excel?