|
 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
 |