Como sincronizar listas suspensas em várias planilhas no Excel?

Suponha que você tenha listas suspensas em várias planilhas de uma pasta de trabalho contendo exatamente os mesmos itens suspensos. Agora, você deseja sincronizar as listas suspensas entre as planilhas para que, ao selecionar um item da lista suspensa em uma planilha, as listas suspensas em outras planilhas sejam automaticamente sincronizadas com a mesma seleção. Este artigo fornece um código VBA para ajudá-lo a resolver esse problema.

Sincronize listas suspensas em várias planilhas com código VBA

Sincronize listas suspensas em várias planilhas com código VBA

Por exemplo, as listas suspensas estão em cinco planilhas chamadas Planilha1, Planilha2, ..., Planilha5, para sincronizar as listas suspensas nas outras planilhas de acordo com a seleção suspensa na Planilha1, aplique o seguinte código VBA para realizar isso.

1. Abra a Planilha1, clique com o botão direito do mouse na guia da planilha e selecione Visualizar Código no menu de contexto.

2. Na janela Microsoft Visual Basic for Applications, cole o seguinte código VBA na janela Planilha1 (Código).

Código VBA: Sincronizar lista suspensa em várias planilhas

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. Pressione as teclas Alt + Q para fechar a janela Microsoft Visual Basic for Applications.

A partir de agora, quando você selecionar um item da lista suspensa na Planilha1, as listas suspensas nas planilhas especificadas serão sincronizadas automaticamente para ter a mesma seleção. Veja a demonstração abaixo.

Demonstração: Sincronizar Listas Suspensas Em Múltiplas Planilhas No Excel