Excel planilha vba instrucao sendkey

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

Baixe o exemplo de planilha contendo os procedimentos acima
Excel planilha vba instrucao sendkey (68.32 KB)

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

Tags: