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 SubNotas:
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
Melhores Ferramentas de Produtividade para Office
Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência incomparável. Kutools para Excel oferece mais de300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para acessar o recurso que você mais precisa...
Office Tab traz interface com abas para o Office e facilita muito seu trabalho
- Habilite edição e leitura por abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie múltiplos documentos em novas abas de uma mesma janela, em vez de em novas janelas.
- Aumente sua produtividade em50% e economize centenas de cliques todos os dias!
Todos os complementos Kutools. Um instalador
O pacote Kutools for Office reúne complementos para Excel, Word, Outlook & PowerPoint, além do Office Tab Pro, sendo ideal para equipes que trabalham em vários aplicativos do Office.
- Pacote tudo-em-um — complementos para Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Um instalador, uma licença — configuração em minutos (pronto para MSI)
- Trabalhe melhor em conjunto — produtividade otimizada entre os aplicativos do Office
- Avaliação completa por30 dias — sem registro e sem cartão de crédito
- Melhor custo-benefício — economize comparado à compra individual de add-ins