Saberexcel - site das macros
Esse procedimento do Aplicativo Microsoft Excel VBA(Visual Basic Application), cria uma lista suspensa na célula ao clicar na próxima linha em branco na área usada, a lista é inserida devido ao uso da Instrução Sendkeys.

Essa planilha faz parte do Módulo - COMO FAZER - Programação Microsoft Excel VBA_IV

Busca ítens determinadas Colunas(B e C) - Evento SelectionChange - (Wsh) (ao selecionar)
ao clicar na primeira próxima linha vazia na Coluna(B e C) , abre a lista, tb incrementa nomes não existentes à lista suspensa


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If (Target.Column = 2 Or Target.Column = 3) And Target.Count = 1 Then
If Target = "" Then SendKeys "%{down}"
'SendKeys "%{down}"
End If
End Sub


Este exemplo de planilha faz parte das planilhas
COMO FAZER - Programação Microsoft Excel VBA - SaberExcel


Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel

Saberexcel - o site de quem precisa aprender Macros Microsoft Excel VBA

SOBRE A INSTRUÇÃO SENDKEYS...(Abre automaticamente uma Combobox)
Esse procedimento do Aplicativo Microsoft Excel VBA(Visual Basic Application) , contém a Instrução SendKeys, que abre automaticamente a lista suspensa(Validação Dados), Combobox, Listbox, contidas nas células (A2) e (C2) . Observe que neste exemplo acrescentei mais uma condição para Célula(C2) para ajudá-lo com exemplo caso necessite a implantação de mais de uma condição. Espero que o exemplo lhe seja útil.
Fique com Deus. Expedito Marcondes.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'primeira condição para abrir lista na célula(A2)
If Target.Address = "$B$2" And Target.Count = 1 Then
SendKeys "%{down}"
End If

'segunda condição para abrir lista na célula(A2), se precisar de mais lista na folha de planilha
If Target.Address = "$B$2" And Target.Count = 1 Then
SendKeys "%{down}"
End If

End Sub
'----------------------------------------------------'

Em outra folha de planilha insira o seguinte procedimento.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$B$2" And Target.Count = 1 Then
SendKeys "%{down}"
If Target = "" Then
Target = Sheets("lista").Range("Lista")(1)
End If
End If
End Sub

'


Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel





Publicidade
Compre com segurança, garantia e ótimos preços