Como criar uma lista suspensa, mas mostrar valores diferentes no Excel?
Na planilha do Excel, podemos criar rapidamente uma lista suspensa com o recurso Validação de Dados, mas você já tentou mostrar um valor diferente quando clica na lista suspensa? Por exemplo, tenho os seguintes dados em duas colunas, Coluna A e Coluna B. Agora, preciso criar uma lista suspensa com os valores da coluna Nome, mas, ao selecionar o nome da lista suspensa criada, o valor correspondente na coluna Número é exibido, conforme mostrado na captura de tela a seguir. Este artigo apresentará os detalhes para resolver essa tarefa.
Criar lista suspensa, mas mostrar um valor diferente na célula da lista suspensa
Criar lista suspensa, mas mostrar um valor diferente na célula da lista suspensa
Para concluir esta tarefa, siga as etapas abaixo passo a passo:
1. Crie um nome de intervalo para os valores das células que deseja usar na lista suspensa; neste exemplo, vou inserir o nome dropdown na "Caixa de Nome" e, em seguida, pressionar a tecla "Enter", veja a captura de tela:
2. Em seguida, selecione as células onde deseja inserir a lista suspensa e clique em "Dados" > "Validação de Dados" > "Validação de Dados", veja a captura de tela:
3. Na caixa de diálogo "Validação de Dados", na guia "Configurações", escolha "Lista" no menu suspenso "Permitir" e, em seguida, clique 
no botão para selecionar a lista "Nome", que você deseja usar como valores suspensos na caixa de texto "Fonte do Link". Veja a captura de tela:
4. Após inserir a lista suspensa, clique com o botão direito na guia da planilha ativa e selecione "Visualizar Código" no menu de contexto. Na janela aberta "Microsoft Visual Basic for Applications", copie e cole o código a seguir no "Módulo" em branco:
Código VBA: Exibir um valor diferente da lista suspensa:
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
selectedNa = Target.Value
If Target.Column = 5 Then
selectedNum = Application.VLookup(selectedNa, ActiveSheet.Range("dropdown"), 2, False)
If Not IsError(selectedNum) Then
Target.Value = selectedNum
End If
End If
End Sub
Observação: No código acima, o número 5 dentro do script "If Target.Column = 5 Then" é o número da coluna onde sua lista suspensa está localizada. O "dropdown" neste código "selectedNum = Application.VLookup(selectedNa, ActiveSheet.Range("dropdown"), 2, False)" é o nome do intervalo que você criou na etapa 1. Você pode alterá-los conforme necessário.
5. Em seguida, salve e feche este código. Agora, ao selecionar um item da lista suspensa, um valor diferente relacionado será exibido na mesma célula, veja a captura de tela:
Lista suspensa avançada do Kutools
O "Kutools para Excel" eleva as listas suspensas a um novo patamar com seus recursos de "Lista Suspensa Avançada", oferecendo opções poderosas de personalização que vão além das funcionalidades padrão do Excel. Com esta ferramenta, você pode criar:
- Lista suspensa de seleção múltipla
- Lista suspensa com caixas de seleção
- Tornar a lista suspensa pesquisável, com exibição automática
O Kutools for Excel oferece mais de 300 recursos avançados para simplificar tarefas complexas e melhorar a criatividade e a eficiência. Agora, o Kutools integra IA para tornar o processamento de dados mais inteligente e automatizado.
Demonstração: Criar lista suspensa, mas mostrar valores diferentes 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