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

🔥 Aprenda Excel comigo e seja Referência no Mercado de Trabalho: https://excelentejoao.com.br/sejaexce...

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