Como Fazer Lista Suspensa com Autocompletar no Excel | Caixa de Opções com Pesquisar

O CÓDIGO ESTÁ NO FINAL!!

#Excelentejoao #Excel #Dashboard

Nesta vídeo aula de Excel, vamos aprender a como criar uma lista suspensa com autocompletar no Excel. Sim, uma caixa de opções com campo para pesquisar os itens.

A lista suspensa ou DropDown List ou Caixinha de Seleção ou Lista de Validação de Dados, é uma ferramenta muito importante no Excel para o dia a dia e para o Mercado de Trabalho.

Um exemplo prático é quando você tem uma planilha de vendas no Excel, por exemplo, e ao invés de ficar digitando toda hora a mesma coisa, ficar escrevendo sempre a mesma palavra, você pode criar uma lista de itens para você selecionar e pronto. É uma excelente maneira de automatizar processos com o Excel e evitar erro no preenchimento das suas tabelas no Excel.

Resumindo, se você precisa usar toda hora a mesma informação para preechimento da sua planilha do Excel, você pode usar uma lista.

Entretanto, uma lista muito grande é difícil de encontrar a informação desejada.

Exemplo, imagine uma lista de cadastro com centenas de nomes de clientes e usuários, onde o usuário tem a necessidade de usar a barra de rolagem da lista para encontrar a informação desejada... Nem sempre é tão fácil manusear a barra de rolagem da caixinha de seleção.

Então, para criarmos essa lista de selação no Excel, com a funcionalidade da barra de pesquisa, vamos utiliza o VBA para nos auxiliar na criação do código. Visual Basic for Applications.

Preenchimento de Formulários
Lista no Excel

⭐⭐⭐⭐⭐ CÓDIGO UTILIZADO ⭐⭐⭐⭐⭐

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim xCombox As OLEObject
Dim xStr As String
Dim xWs As Worksheet
Dim xArr

Set xWs = Application.ActiveSheet
On Error Resume Next
If Target.Validation.Type = 3 Then
Target.Validation.InCellDropdown = False
Cancel = True
xStr = Target.Validation.Formula1
xStr = Right(xStr, Len(xStr) - 1)
If xStr = "" Then Exit Sub
Set xCombox = xWs.OLEObjects("TempCombo")
With xCombox
.ListFillRange = ""
.LinkedCell = ""
.Visible = False
End With
With xCombox
.Visible = True
.Left = Target.Left
.Top = Target.Top
.Width = Target.Width + 5
.Height = Target.Height + 5
.ListFillRange = xStr
If .ListFillRange = "" Then
xArr = Split(xStr, ",")
Me.TempCombo.List = xArr
End If
.LinkedCell = Target.Address
End With
xCombox.Activate
Me.TempCombo.DropDown
End If
End Sub
Private Sub TempCombo_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 9
Application.ActiveCell.Offset(0, 1).Activate
Case 13
Application.ActiveCell.Offset(1, 0).Activate
End Select
End Sub

⭐ CÓDIGO UTILIZADO:

Private Sub Target As Range)
Dim xCombox As OLEObject
Dim xStr As String
Dim xWs As Worksheet
Dim xArr

Set xWs = Application.ActiveSheet
On Error Resume Next
If Target.Validation.Type = 3 Then
= False
Cancel = True
xStr = Target.Validation.Formula1
xStr = Right(xStr, Len(xStr) - 1)
If xStr = "" Then Exit Sub
Set xCombox = xWs.OLEObjects("TempCombo")
With xCombox
.ListFillRange = ""
.LinkedCell = ""
.Visible = False
End With
With xCombox
.Visible = True
.Left = Target.Left
.Top = Target.Top
.Width = Target.Width + 5
.Height = Target.Height + 5
.ListFillRange = xStr
If .ListFillRange = "" Then
xArr = Split(xStr, ", ")
Me.TempCombo.List = xArr
End If
.LinkedCell = Target.Address
End With
xCombox.Activate
Me.TempCombo.DropDown
End If
End Sub
Private Sub TempCombo_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 9
Application.ActiveCell.Offset(0, 1).Activate
Case 13
Application.ActiveCell.Offset(1, 0).Activate
End Select
End Sub

[Clyshenn]

eu assisti 50 vídeos e nenhum ensinou tão simples e perfeito como você, direto e objetivo! Parabéns.

[flavials]

MELHOR VIDEO DE EXPLICAÇÃO E AJUDA ! MUITO OBRIGADA ! DEUS LHE ABENÇOE!

[historiasfabulosas]

Teus vídeos são excelentes. Ótimas dicas

[melissasasazawa]

Explicação perfeita! Direto e rápido, muito obrigada! Parabéns pelo trabalho!

[yorkyaraable]

Não só dei like, e me escrevi no canal como também guardei o vídeo em uma playlist de UTEIS, foi a melhor e mais eficaz explicação sobre o assunto. Obrigada!!!

[joaofrederico]

A PRIORI, SEU CANAL, PRA MIM, ESTÁ ENTRE OS MELHORES DO GÊNERO. CARA, ISTO É INÉDITO PRA MIM, MUITO FUNCIONAL E VAI AGREGAR MUITO AOS MEUS TRABALHOS NO EXCEL!!!! PARABÉNS E MUITO OBRIGADO POR DIVULGAR CONHECIMENTOS DE QUALIDADE E GRATUITAMENTE !!!!

[ratoam]

Eu tinha visto outras explicações porém muito complexas e não ficava bom pois tinha que fazer um monte de função e depois na pesquisa ainda tinha que clicar na guia para aparecer o resultado, da forma que trouxe ficou bem simples e objetivo, resolvi meu problema, parabens pelo excelente conteúdo.

[mau]

Queria poder curtir mais vezes, mas o joinha só vai uma vez. Valeu!! Você é top!

[luisgausen]

Excelente Aula, Simples e super funcional. Desde já muito agradecido. Sou Português e tenho preferência nas suas aulas. Obrigado

[anaclaudiamarquescintra]

João, vc é um professor excepcional! Obrigada pela objetividade!

[lusinetebrito]

Perfeito, simplismente muito obrigada pelo conteúdo.

[eduardo_]

muito bom!
obrigado, aula super didática.
você sabe como fazer com que as categorias tenham cor? assim quando eu selecionar uma categoria ela venha com uma cor junto. isso me ajudaria a organizar os dados aqui.
outra dúvida é como fazer GRÁFICOS com os dados dessas categorias. Recomenda algum vídeo nesses assunto? obrigado!
obrigado!

[ricardofalcao]

Muito bom vou salvar esse código e semana que vem vou comprar seu curso.

[giseleaparecida]

Há. Desde de há agradeço pelos seus vídeos. Pois tem conteúdos incríveis q me ajudou bastante. E modo de explicar também ajuda agbte daqui do outro lado a entender. Obrigado e parabéns

[eriquisonbs]

muito bom bem simples, tem como melhorar, tipo colocar pra pra buscar por palavra chave, pois dessa forma que mostrou so consigo procurar pelo texto exato, gostaria de colocar um texto e ele retornar o contexto do texto digitado. obrigado!

[sandrapereira_br]

Excelente, João! Você me salvou! Vou me inscrever no teu curso pois só sei fazer as fórmulas basiquinhas... rs. Abs.

[GuerraAlexander]

Buscando essa funcionalidade encontrei vários vídeos com essa sistemática, mas nenhum deles explicou tão detalhado ao mesmo tempo de uma forma didaticamente simples.
Parabéns!

[eliandromacedo]

Parabéns e obrigado pela aula.!
Vou assinar pelo Hotmart

[diegozucareli]

Bom dia João, parabéns pela vídeo aula, como faria para puxar os dados de uma outra planilha?