Como sincronizar uma lista suspensa em várias folhas de cálculo no Excel?
Suponha que tenha listas suspensas em várias folhas de um livro, todas contendo exatamente os mesmos itens. Agora, pretende sincronizá-las entre as folhas, de modo que, ao selecionar um item numa lista suspensa numa folha, as listas suspensas nas outras folhas sejam automaticamente atualizadas com a mesma seleção. Este artigo fornece um código VBA para o ajudar a resolver este problema.
Sincronizar Lista suspensa em várias folhas de cálculo com código VBA
Sincronizar Lista suspensa em várias folhas de cálculo com código VBA
Por exemplo, as listas suspensas estão em cinco folhas de cálculo denominadas Folha1, Folha2, ..., Folha5. Para sincronizar as listas suspensas nas outras folhas com base na seleção efetuada na lista pendente da Folha1, aplique o seguinte código VBA para concretizar esta tarefa.
1. Abra a Folha1, clique com o botão direito do rato no separador da folha e selecione Ver Código no menu de contexto.
2. Na janela Microsoft Visual Basic para Aplicações, cole o seguinte código VBA na janela Folha1 (Código).
Código VBA: Sincronizar Lista suspensa em várias folhas 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 SubNotas:
3. Prima as teclas Alt + Q para fechar a janela Microsoft Visual Basic para Aplicações.
A partir de agora, ao selecionar um item na lista suspensa na Folha1, as listas suspensas nas folhas especificadas serão automaticamente sincronizadas com a mesma seleção. Veja a demonstração abaixo.
Demonstração: Sincronizar Lista suspensa em várias folhas de cálculo no Excel
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos