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 ]

    Excel planilha vba busca palavra celulas Excel planilha vba busca palavra celulas

    popular!
    Adicionado em: 12/05/2011
    Modificado em: 12/05/2011
    Tamanho: 66.62 KB
    Downloads: 2225

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

    Esta macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), com auxílio de uma InputBox(Entrada de Dados), busca uma determinada palavra em uma determinada Range e retorna o endereço da célula , selecionando-a.

    Sub Buscar_determinada_palavra()
    Dim X As Range
    On Error Resume Next
    sbx = InputBox("Digite a palavra para busca", "Saberexcel - o site das Macro", "Saberexcel")
    With ThisWorkbook.Sheets("Busca_Palavra").Range("L1:L600")
    Set sby = .Find(sbx, , xlValues, xlWhole, , , False)
    End With
    If Not sby Is Nothing Then MsgBox "A palavra [ " & sbx & " ] esta na célula..: [ " & sby.Address & " ]", vbInformation, "Saberexcel - site das macros"
    sby.Select
    End Sub

    Para buscarmos uma determinada palavra em outro livro, e também retornar o nome da célula
    onde esta localizado o nome procurado devemos usar o seguinte código.
    observe que não usei a entrada de dados Inputbox e sim a célula(C2).
    (Monte o exemplo de Planilha)
    Sub Buscar_Palavra_em_outro_livro()
    Dim sby As Range
    With Workbooks("Conta_Pagar.xls").Sheets("Plan1").Range("L1:L600")
    Set sby = .Find(Workbooks("Pagamento.xls").Sheets("Plan1").Range("C2").Value, , xlValues, xlWhole, , , False)
    End With
    If Not sby Is Nothing Then MsgBox "A palavra [ " & sbx & " ] esta na célula..: [ " & sby.Address & " ]", vbInformation, "Saberexcel - site das macros"
    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




    Excel planilha vba busca palavra com inputbox Excel planilha vba busca palavra com inputbox

    popular!
    Adicionado em: 12/02/2012
    Modificado em: 12/02/2012
    Tamanho: 21.46 KB
    Downloads: 1132

    Escola Saberexcel VBA Estudos® - Treinamento com Macros, Fórmulas e Funções

    Essa macro do aplicativo Microsoft Excel VBA(Visual Basic Application) com o auxilio de uma entrada de dados (inputBox) localiza determinada palavra,
    seleciona a célula e retorna o endereço da célula encontrada>
    Espero que o exemplo possam lhe ser útil. fique com Deus. Expedito Marcondes

    Sub Localiza_palavra_desejada()
    sbx = InputBox("Procurar palavra desejada", "Escola Saberexcel VBA Estudos", "Busca_personalizada")
    If sbx = cancel Then 'caso cancele a busca
    Exit Sub
    End If

    Cells.Find(What:=sbx, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
    :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
    False, SearchFormat:=False).Select
    MsgBox "Palavra [ " & sbx & " ] encontrada na célula [ " & ActiveCell.Address & " ]", vbInformation, "Escola Saberexcel VBA Estudos"

    End Sub




    Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.





    Excel planilha vba palavra deleta determinada palavra Excel planilha vba palavra deleta determinada palavra

    popular!
    Adicionado em: 31/10/2011
    Modificado em: 31/10/2011
    Tamanho: 88.88 KB
    Downloads: 793

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

    Esse macro do Aplicativo Microsoft Excel VBA(visual Baisc Application) deleta determinada palavra de um intervalo de células em uma folha de planilha específica. Observe que inserí uma FC(Formatação Condicional), e também no Evento SelecitonChange, ao selecionar determinada célula, abrirá automaticamente a lista suspensa da Validação de Dados.
    Espero que o exemplo lhe seja útil. Fique com Deus. Expedito Marcondes.


    Option Explicit
    Option Compare Text

    Sub sbx_deletar_determinada_palavra()
    Dim vCelula As Range, vIntervalo As Range
    Dim vPalavra As String
    Set vIntervalo = Range("B2:b35") 'a ser adaptado ao trecho a percorrer.
    'verificando inconsistencia se existe células em branco no intervalo

    If Application.WorksheetFunction.CountBlank(vIntervalo) >= 1 Then
    MsgBox ("há células vazias, copie para teste"), vbCritical, "Saberexcel.com.br"
    Exit Sub
    End If
    'vPalavra = "Saberexcel" 'aqui voce poderá referenciar a uma Palavra ou célula ou inputbox, textboxes e outros
    vPalavra = Saber1.[e3].Value 'buscando pelo valor específico da Range(e3)

    'congela a tela para não ficar pulando se o intervalo celulas for muito longo
    Application.ScreenUpdating = False
    For Each vCelula In vIntervalo
    If vCelula Like "*" & vPalavra & "*" Then
    vCelula = Replace(vCelula, vPalavra, "")
    'deletando o espaço duplo
    vCelula = Replace(vCelula, " ", " ")
    End If
    Next vCelula

    Application.ScreenUpdating = True
    MsgBox ("Deletada todas palavras [ ") & vPalavra & " ] intervalo células [ " _
    & vIntervalo.AddressLocal & " ]", vbInformation, "Saberexcel - o site das macros"
    End Sub


    Sub sbx_copiar_teste()
    [a].Copy [b]
    MsgBox ("Dados copiados com sucesso para realizaçao do teste"), vbInformation, "Saberecel - o site das macros"
    End Sub



    Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.



    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: 23.76 KB
    Downloads: 1112



    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







    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: 70.34 KB
    Downloads: 996

    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

    Página 1 de 2

    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