Home Excel - Downloads / Areas Restritas Excel VBA - Busca Palavras

Excel VBA - Busca Palavras

  • - Acesso Livre (há alguns arquivos nesta categoria com restrição de acesso - faça o login ou Registre-se)
    Acesso Livre - Registrados (REGISTRE-SE!)
  • Documentos

    Ordenar por : Nome | Data | Acessos [ Descendente ]

    vba busca dados com formulas em base de dados vba busca dados com formulas em base de dados

    popular!
    Adicionado em: 18/11/2010
    Modificado em: 18/11/2010
    Tamanho: Vazio
    Downloads: 1290

    SaberExcel - o Site das Macros
    Essa macro do Aplicativo Microsoft Excel VBA, insere fórmulas para buscar dados em uma determinada base de dados em outra planilha, observem que a macro busca dados baseados ao texto(letra) digitado na Inputbox (Entrada de Dados)

    Sub Retornar_formula()

    Dim vLetraColuna As String

    vLetraColuna = InputBox("Entre com a letra da coluna para buscar os dados.", "Digite: a,b,c,...")
    Sheets("Formulário").Select

    'retornará a fórmula e preencherá as células correspondentes para montar'
    'os dados na coluna(B)

    'Item #1
    Range("F7").Select
    On Error Resume Next
    If IsEmpty(Range("Dados!" & vLetraColuna & "1").Value) Then
    ActiveCell.Value = ""
    Else
    ActiveCell.Formula = "=Dados!" & vLetraColuna & "1"
    End If

    'Item #2
    Range("F9").Select
    If IsEmpty(Range("Dados!" & vLetraColuna & "2").Value) Then
    ActiveCell.Value = ""
    Else
    ActiveCell.Formula = "=Dados!" & vLetraColuna & "2"
    End If

    'Item #3
    Range("J10").Select
    If IsEmpty(Range("Dados!" & vLetraColuna & "3").Value) Then
    ActiveCell.Value = ""
    Else
    ActiveCell.Formula = "=Dados!" & vLetraColuna & "3"
    End If

    'Item #4
    Range("H11").Select
    If IsEmpty(Range("Dados!" & vLetraColuna & "4").Value) Then
    ActiveCell.Value = ""
    Else
    ActiveCell.Formula = "=Dados!" & vLetraColuna & "4"
    End If

    'Item #5
    Range("D11").Select
    If IsEmpty(Range("Dados!" & vLetraColuna & "5").Value) Then
    ActiveCell.Value = ""
    Else
    ActiveCell.Formula = "=Dados!" & vLetraColuna & "5"
    End If

    'Retornando a célula f7 ítem #1
    Range("F7").Select

    MsgBox ("Os dados formam baixados com sucesso da coluna : < " & vLetraColuna & " >.")

    End Sub


    Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

    vba busca intervalos de busca numeros minimo e maximo vba busca intervalos de busca numeros minimo e maximo

    popular!
    Adicionado em: 18/11/2010
    Modificado em: 18/11/2010
    Tamanho: Vazio
    Downloads: 501

    Macro do Aplicativo Microsoft Excel VBA, retorna o resutado de uma busca de determinado nome e ou determinado número, selecionado os ítens escolhidos na folha de planilha.

    Sub Seleciona_valores_ou_texto()
    On Error Resume Next
    Application.ScreenUpdating = False
    Dim c As Range
    Dim vMeuValor As String
    Dim r As Long
    Dim vMinhaArea As Range
    Dim vCelulas As Range

    Set vMinhaArea = ActiveSheet.UsedRange
    vMeuValor = InputBox("Digite um valor ou palavra que deseja selecionar, Ex: 1450 ou Saberexcel", "Saberexcel- site das macros", "Saberexcel")

    For Each c In vMinhaArea
    If c.Text = vMeuValor Then
    If r = 0 Then
    Set vCelulas = c
    r = 1
    Else
    Set vCelulas = Union(vCelulas, c)
    End If
    End If
    Next c
    vCelulas.Select
    MsgBox "Selecionadas todos ítens: [ " & vMeuValor & " ]"
    Application.ScreenUpdating = True
    End Sub



    Aprenda Microsoft Excel VBA(Saberexcel)



    vba busca e seleciona determinada palavra ou numero na planilha vba busca e seleciona determinada palavra ou numero na planilha

    popular!
    Adicionado em: 18/11/2010
    Modificado em: 18/11/2010
    Tamanho: Vazio
    Downloads: 761

    Macro do Aplicativo Microsoft Excel VBA, retorna o resutado de uma busca de determinado nome e ou determinado número, selecionado os ítens escolhidos na folha de planilha.

    Sub Seleciona_valores_ou_texto()
    On Error Resume Next
    Application.ScreenUpdating = False
    Dim c As Range
    Dim vMeuValor As String
    Dim r As Long
    Dim vMinhaArea As Range
    Dim vCelulas As Range

    Set vMinhaArea = ActiveSheet.UsedRange
    vMeuValor = InputBox("Digite um valor ou palavra que deseja selecionar, Ex: 1450 ou Saberexcel", "Saberexcel- site das macros", "Saberexcel")

    For Each c In vMinhaArea
    If c.Text = vMeuValor Then
    If r = 0 Then
    Set vCelulas = c
    r = 1
    Else
    Set vCelulas = Union(vCelulas, c)
    End If
    End If
    Next c
    vCelulas.Select
    MsgBox "Selecionadas todos ítens: [ " & vMeuValor & " ]"
    Application.ScreenUpdating = True
    End Sub



    Aprenda Microsoft Excel VBA(Saberexcel)



    vba busca palavra abrindo caixa de dialogo excel vba busca palavra abrindo caixa de dialogo excel

    popular!
    Adicionado em: 24/01/2011
    Modificado em: 24/01/2011
    Tamanho: Vazio
    Downloads: 1076

    Saberexcel - Site das Macros

    Essa macro e procedimentos do Aplicativo Microsoft Excel VBA, tem por finalidade abrir a Caixa de Diálogo do próprio Aplicativo Excel com auxlílio de macros e eventos vba, neste caso temos o evento change, ao digitar na coluna( C) e também o Evento Auto_Open, que abrirá a caixa de diálogo Localizar na abertura do Livro.

    Respondendo a uma Dúvida da nossa amiga e aluna Flávia (S.Paulo)
    Caro Senhor Marcondes,
    P - há como inserir em uma macro a abertura do sistema de buscas do próprio excel isto é, a caixa de diálogo Localizar, quando eu clicar na coluna(C) . Agradeço, Flavia Corrente

    R - Há como sim Flávia e é muito simples, veja os procedimentos.
    observem que usando o Evento_Change,( ao escrever), na coluna C, abrirá a caixa de diálogo Localizar do Aplicativo, também usei o procedimento no Auto_Open, quando abrir a planilha, irá abrir a Caixa de Diálogo Localizar.


    clique para ampliar
    ' macro que abre a caixa de diálogo localizar do aplicativo excel
    Sub abrir_caixa_dialogo_localizar()
    Application.CommandBars.FindControl(, 1849).Execute
    End Sub


    clique para ampliar
    'neste caso uso usamos o evento Worksheet_Change(ao digitar) na coluna( c ) (3)
    Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 3 Then
    Application.CommandBars.FindControl(, 1849).Execute
    End If
    End Sub


    eventos auto-open objeto workbook clique para ampliar
    'usando o evento auto-open na folha de código do objeto workbook
    Private Sub Workbook_Open()
    Application.CommandBars.FindControl(, 1849).Execute
    End Sub




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




     

    Excel vba busca dados criterio palavra retorna valores Excel vba busca dados criterio palavra retorna valores

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



    Esse procedimento do Aplicativo Microsoft Excel VBA(Visual Basic Application), faz um loop por toda região de células desejada, localiza a última linha usada, retorna uma mensagem do conteúdo de duas células adjacentes, desloca uma linha abaixo e sai do procedimento

    Sub Localiza_dados()
    Dim c As Range
    Dim x As Range
    On Error Resume Next
    oct 'ocultar o shapes

    Set x = Sheets("Ultima_linha_dados").Range("B:B").Find("PRODUTOS SABEREXCEL", , xlValues, xlWhole, , , False)

    For Each c In Range(x, x.End(xlDown))
    c.Select
    Next c

    MsgBox ActiveCell.Value & " -- Valor R$ " & ActiveCell.Offset(0, 4).Value
    ActiveCell.Offset(1, 0).Select

    End Sub



    Aprenda tudo sobre o aplicativo Microsoft Excel VBA, com os produtos didáticos Saberexcel







    Página 1 de 2

    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