Excel VBA - Sendkeys

  • - Acesso Livre
  • Documentos

    Ordenar por : Nome | Data | Acessos [ Ascendente ]

    Excel vba sendkeys cria lista suspensa selecionar Excel vba sendkeys cria lista suspensa selecionar

    popular!
    Adicionado em: 26/02/2011
    Modificado em: 26/02/2011
    Tamanho: Vazio
    Downloads: 2110

    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

    Excel planilha vba instrucao sendkey Excel planilha vba instrucao sendkey

    popular!
    Adicionado em: 30/04/2011
    Modificado em: 30/04/2011
    Tamanho: Vazio
    Downloads: 1538

    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
    Eletrônicos - Submarino.com.br

    PROMOÇÃO DIDÁTICOS SABEREXCEL



    Adquira já o Acesso Imediato
    à Area de Membros

    Compra Grantida --- Entrega Imediata

    Aprenda Excel VBA com Simplicidade de 
    códigos e Eficácia, Escrevendo Menos e
    Fazendo Mais.

    '-------------------------------------'
    Entrega Imediata:
    +  500 Video Aulas MS Excel VBA
    +  35.000 Planilhas Excel e VBA
    +  Coleção 25.000 Macros MS Excel VBA
    +  141 Planilhas Instruções Loops
    +  341 Planilhas WorksheetFunctions(VBA)
    +    04 Módulos Como Fazer Excel VBA
    +  Curso Completo MS Excel VBA
    +  Planilhas Inteligentes


    Pesquisa Google SaberExcel

    Publicidade Google

    <script type="text/javascript"><!--

    google_ad_client = "ca-pub-2317234650173689";

    /* retangulo 336 x 280 */

    google_ad_slot = "0315083363";

    google_ad_width = 336;

    google_ad_height = 280;

    //-->

    </script>

    <script type="text/javascript"

    src="http://pagead2.googlesyndication.com/pagead/show_ads.js">

    </script>

    Publicidade

    RSFirewallProtected


    Google Associados

    Depoimentos

    Adicione Saberexcel Favoritos

     
     

    Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

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


       Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA