Como limpar automaticamente a célula da lista suspensa dependente sempre que a seleção for alterada no Excel?
Numa lista suspensa dependente, quando o valor da lista suspensa principal é alterado, o valor selecionado na segunda lista torna-se inválido. É necessário remover manualmente esse valor inválido da segunda lista após alterar a seleção na primeira. Neste artigo, mostro-lhe um método para limpar automaticamente a célula da lista suspensa dependente após alteração da seleção no Excel.
Limpar automaticamente a célula da lista suspensa dependente após alteração da seleção com código VBA
O código VBA seguinte permite-lhe limpar automaticamente a lista suspensa dependente sempre que alterar a seleção no Excel.
1. Clique com o botão direito no separador da folha que contém a lista suspensa dependente que pretende limpar automaticamente e, em seguida, selecione Ver Código no menu de contexto.
2. Na janela Microsoft Visual Basic for Applications que se abre, copie o código VBA abaixo para a janela.
Código VBA: limpar automaticamente a célula da lista suspensa dependente após alteração da seleção
Private Sub Worksheet_Change(ByVal Target As Range)
'Update by Extendoffice 2018/06/04
Application.EnableEvents = False
If Target.Column = 5 And Target.Validation.Type = 3 Then
Target.Offset(0, 1).Value = ""
End If
Application.EnableEvents = True
End SubNota: No código, o número 5 corresponde à coluna que contém a lista suspensa principal. Neste caso, a minha lista suspensa principal está na coluna E.
3. Prima as teclas Alt + Q para fechar a janela Microsoft Visual Basic for Applications.
A partir de agora, sempre que forem feitas alterações na lista suspensa principal, os conteúdos da segunda lista suspensa serão automaticamente limpos. Veja a imagem:
Desbloqueie a Magia do Excel com KUTOOLS AI
- Execução Inteligente: Realize operações em células, analise dados e crie gráficos — tudo impulsionado por comandos simples.
- fórmulas personalizadas: Crie fórmulas personalizadas para simplificar os seus fluxos de trabalho.
- Programação VBA: Escreva e implemente código VBA com facilidade.
- Interpretação de Fórmulas: Compreenda facilmente fórmulas complexas.
- Tradução de Texto: Elimine barreiras linguísticas nas suas folhas de cálculo.
Artigos relacionados:
- Como criar listas suspensas em cascata dependentes no Excel?
- Como criar caixas de lista dinâmicas em cascata no Excel?
- Como preencher automaticamente outras células ao selecionar um valor numa lista suspensa do Excel?
- Como ativar o preenchimento automático ao digitar numa lista suspensa do Excel?
- Como criar um calendário em lista suspensa 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