[NOVO] Lista Suspensa com Seleção Automática usando VBA

Lista Suspensa com Seleção Automática usando VBA no Excel
No dia a dia é comum precisar de listas para facilitar a escolha de itens de modo que não precise escrever tudo, agora já pensou além disso você não se lembra do nome apenas o começo ou ainda escolher outro item que começa com as mesmas letras que começou a digitar, não perca esse vídeo e surpreenda-se com essa maravilhosa dica.
==================
🎁 [eBook GRÁTIS] DICAS PROFISSIONAIS do Excel 365 PASSO A PASSO
🔥 BAIXE AGORA excelextreme.co...
🎯 CURSO COMPLETO de Excel que é um verdadeiro RAIO X do ZERO chegando ao Avançado PROFISSIONAL [ATUALIZADO]
www.excelextre...
======================
👍 OUTROS VÍDEOS QUE VÃO TE AJUDAR!
➧ Soma Acumulada em TABELA Com REFERÊNCIA ESTRUTURADA
• Soma Acumulada em TABE...
➧ Colocar Formato Correto Telefone e CEP
• Colocar Formato Corret...
➧ Lista Suspensa com Pesquisa Automática [Validação de Dados] SEM VBA
• Lista Suspensa com Pes...
➧ PROCV AULA #1: Aprenda os princípios da função Procv em Correspondência Exata
• PROCV AULA #1: Aprenda...
➧ Lista Suspensa Pesquisável com Complemento Automático AutoCompletar no Excel
• Lista Suspensa Pesquis...
➧ Criando Senhas Aleatórias no Excel Sorteando Letras e Números
• Criando Senhas Aleatór...
➧ CORREÇÃO GABARITO DE TESTE EXCEL AVANÇADO - #2 SOMASE + DICAS
• CORREÇÃO GABARITO DE T...
Compartilhe esse vídeo! 😉
• [NOVO] Lista Suspensa ...
CÓDIGO DO VÍDEO
Option Explicit
'Baseado em código da www.contextures.com
Private Sub TempCombo_KeyDown(ByVal _
KeyCode As MSForms.ReturnInteger, _
ByVal Shift As Integer)
'Ocultar caixa de combinação e mover a próxima célula com Enter e Tab
Select Case KeyCode
Case 9
ActiveCell.Offset(0, 1).Activate
Case 13
ActiveCell.Offset(1, 0).Activate
Case Else
'Nada
End Select
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim str As String
Dim cboTemp As OLEObject
Dim ws As Worksheet
Dim wsList As Worksheet
Set ws = ActiveSheet
Set wsList = Sheets(Me.Name)
Application.EnableEvents = False
Application.ScreenUpdating = False
If Application.CutCopyMode Then
'Permite copiar e colar na planilha
GoTo errHandler
End If
Set cboTemp = ws.OLEObjects("TempCombo")
On Error Resume Next
With cboTemp
.Top = 10
.Left = 10
.Width = 0
.ListFillRange = ""
.LinkedCell = ""
.Visible = False
.Value = ""
End With
On Error GoTo errHandler
If Target.Validation.Type = 3 Then
Application.EnableEvents = False
str = Target.Validation.Formula1
str = Right(str, Len(str) - 1)
With cboTemp
.Visible = True
.Left = Target.Left
.Top = Target.Top
.Width = Target.Width + 15
.Height = Target.Height + 5
.ListFillRange = str
.LinkedCell = Target.Address
End With
cboTemp.Activate
'Abrir a lista suspensa automaticamente
Me.TempCombo.DropDown
End If
errHandler:
Application.ScreenUpdating = True
Application.EnableEvents = True
Exit Sub
End Sub
==================
#listasuspensaexcel #listasuspensanoexcel #Comofazerlistasuspensanoexcel #listasuspensa #comocriarlistasuspensanoexcel #listasuspensacomvba

[@excelextreme]

Conheça nosso curso de Excel Completo: excelextreme.com.br/

[@DanyZitaVF]

Olá. Funcionou em uma planilha comum. Mas preciso colocar em uma planilha que possui 3 validações de dados diferentes, e quero colocar a pesquisa em uma validação só, mas ainda tem o agravante de que ela é uma validação de dados condicionada. Você realiza esse trabalho? Como poderia te contratar para desenvolver esse código para mim?

[@excelextreme]

Olá Dany, obrigado por assistir! Entendi tem uma situação mais particular a ser resolvida! Infelizmente não pego trabalho, estou empenhado nas aulas... Desejo que consiga resolver logo essa questão! Sucesso...

[@ailtonhenrique3672]

aprendi muito com sua aula

[@excelextreme]

Que maravilha, sucesso amigo! Abraço!

[@valdezjunior9531]

Boa tarde. Tudo bem? Muito obrigado pelo vídeo. Funcionou muito bem. Gostaria de pedir, onde altero o código VBA para autocompletar digitando qualquer parte do texto? Por exemplo. Na minha planilha esta cadastrado 4.1.2 - Fornecedores. Se eu digitar começar a digitar fornece..., ela não puxa o resto. Tenho que começar pelo 4.1.2, mas são muitas opções e não tem como decorar todos os números. É possível?

[@excelextreme]

Olá, Valdez, obrigado por assistir! Sim, tenho outro vídeo explicando como fazer isso, pesquisando dentro da sentença e não no início, segue o link kzbin.info/www/bejne/f6fYXpieqLGibZI espero ter ajudado! Bons estudos! Sucesso...

[@valdezjunior9531]

@@excelextreme muito obrigado. Vou assistir daqui a pouco

[@diegonsilva9295]

Boa tarde! Funciona quando colar dados?

[@excelextreme]

Boa tarde! Sinceramente nunca usei o evento colar na célula pra ver se acontece a busca de auto complete, mas acredito que não! Caso não funcione somente com VBA, Sucesso

[@diegonsilva9295]

@@excelextreme eu testei, não funciona mesmo. Conhece algum código que faça o auto-completar?

[@StefanoDeBruimBabisk]

Boa noite. Como posso copiar o código VBA que está na descrição desse vídeo? Desde já agradeço.

[@excelextreme]

Olá, Stefano. Em um computador com o auxílio de um mouse é só clicar, segurar e arrastar do início ao fim do código, através do celular não funciona bem o recurso! Sucesso!