Como sincronizar listas suspensas em várias planilhas no Excel?
Suponha que você tenha listas suspensas em várias planilhas em uma pasta de trabalho que contenham exatamente os mesmos itens suspensos. Agora você deseja sincronizar as listas suspensas nas planilhas para que, depois de selecionar um item de uma 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 denominadas Folha1, Folha2, ..., Folha 5, para sincronizar as listas suspensas em outras planilhas de acordo com a seleção suspensa em Sheet1, aplique o seguinte código VBA para fazer isso.
1. Abra a Plan1, clique com o botão direito do mouse na guia da planilha e selecione Ver código no menu do botão direito do mouse.
2. No Microsoft Visual Basic para Aplicações janela, cole o seguinte código VBA no Planilha1 (Código) janela.
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
Observações:
3. aperte o outro + Q chaves para fechar o Microsoft Visual Basic para Aplicações janela.
A partir de agora, quando você selecionar um item da lista suspensa em Folha 1, as listas suspensas nas planilhas especificadas serão sincronizadas automaticamente para ter a mesma seleção. Veja a demonstração abaixo.
Demonstração: Sincronize listas suspensas em várias planilhas no Excel
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!