¿Cómo sincronizar listas desplegables en múltiples hojas de cálculo en Excel?

Supongamos que tienes listas desplegables en varias hojas de cálculo de un libro que contienen exactamente los mismos elementos desplegables. Ahora deseas sincronizar las listas desplegables entre las hojas de cálculo para que, una vez selecciones un elemento de una lista desplegable en una hoja, las listas desplegables en otras hojas se sincronicen automáticamente con la misma selección. Este artículo proporciona un código VBA para ayudarte a resolver este problema.

Sincronizar listas desplegables en múltiples hojas de cálculo con código VBA

Sincronizar listas desplegables en múltiples hojas de cálculo con código VBA

Por ejemplo, las listas desplegables están en cinco hojas de cálculo llamadas Hoja1, Hoja2, ..., Hoja5, para sincronizar las listas desplegables en otras hojas según la selección desplegable en Hoja1, aplica el siguiente código VBA para lograrlo.

1. Abre Hoja1, haz clic derecho en la pestaña de la hoja y selecciona Ver Código desde el menú contextual.

2. En la ventana de Microsoft Visual Basic para Aplicaciones, pega el siguiente código VBA en la ventana Hoja1 (Código).

Código VBA: Sincronizar lista desplegable en múltiples hojas de cálculo

Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20220815
    Dim tSheet1 As Worksheet
    Dim tRange As Range
    Dim xRangeStr As String
    On Error Resume Next
    If Target.Count > 1 Then Exit Sub
    
    xRangeStr = "A2:A11"

    Set tRange = Intersect(Target, Range(xRangeStr))
    If Not tRange Is Nothing Then
        xRangeStr = tRange.Address
        Application.EnableEvents = False
        Set tSheet1 = ActiveWorkbook.Worksheets("Sheet2")
        tSheet1.Range(xRangeStr).Value = Target.Value
        Set tSheet1 = ActiveWorkbook.Worksheets("Sheet3")
        tSheet1.Range(xRangeStr).Value = Target.Value
        Set tSheet1 = ActiveWorkbook.Worksheets("Sheet4")
        tSheet1.Range(xRangeStr).Value = Target.Value
        Set tSheet1 = ActiveWorkbook.Worksheets("Sheet5")
        tSheet1.Range(xRangeStr).Value = Target.Value
        Application.EnableEvents = True
    End If
    
End Sub

Notas:

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

Desde ahora, cuando selecciones un elemento de la lista desplegable en Hoja1, las listas desplegables en las hojas de cálculo especificadas se sincronizarán automáticamente para tener la misma selección. Consulta la siguiente demostración.

Demostración: Sincronizar Listas Desplegables en Múltiples Hojas de Cálculo en Excel