Скачать с ютуб Como Fazer Lista Suspensa com Autocompletar no Excel | Caixa de Opções com Pesquisar в хорошем качестве

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