Fórum Excel Bácico, Avançado e Vba
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  Últimas imagensÚltimas imagens  ProcurarProcurar  RegistarRegistar  Entrar  

 

 Busca em planilha excel com VBA

Ir para baixo 
2 participantes
AutorMensagem
hugonmo




Mensagens : 1
Data de inscrição : 27/08/2012

Busca em planilha excel com VBA Empty
MensagemAssunto: Busca em planilha excel com VBA   Busca em planilha excel com VBA EmptySeg Nov 25, 2013 2:20 pm

Pessoal, bom dia.

Estou com dúvidas em como elaborar uma macro que me retornem todas as células que contenham um determinado valor.

Eu encontrei o seguinte código onde procura o valor em um determinado intervalo, mas me retorna somente 1 linha.

Eu preciso que retornem TODAS as linhas que tenham o valor descrito.



Código de busca: Range("A:A").Find(what:="Carlos", after:=ActiveCell, lookat:=xlPart).Activate



Supondo que esta seja a planilha:

Nome Sergio Carlos Dourado Zilda Conceicao de Brito Hirasawa Luiz Fernando da Motta Fernanda de Azevedo e Silva Carlos Eduardo de Oliveira

O código deve me trazer a linha 2 e 6.




Obrigado!!!
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

Busca em planilha excel com VBA Empty
MensagemAssunto: Re: Busca em planilha excel com VBA   Busca em planilha excel com VBA EmptySeg Nov 25, 2013 3:38 pm

Bom dia!!!

Você pode usar uma formula ou uma ListView (ActiveX) para retornar os dados
Mende seu arquivo modelo, deposite o em site gratuito (sendspace), deopis poste o link aqui.

Exemplo fictício.
Código:
Private Sub lstConsulta_Click()
Dim lastRow As Long
Dim li As ListItem
Dim X As Long
Dim k  As Integer
k = 2
'Me.Periodo = Sheets("Result").Range("F2")
'Me.Representante = Sheets("Result").Range("G2")
    ' Adiciona as colunas
  With lstConsulta
        .ColumnHeaders.Clear
        .Gridlines = True
        .View = lvwReport
        .ColumnHeaders.Add Text:="Motivo Devolução", Width:=200
        .ColumnHeaders.Add Text:="Qtd", Width:=35
        .ColumnHeaders.Add Text:="Valor", Width:=90
    End With
    '...................................................................
'limpar
lstConsulta.ListItems.Clear
   
    lastRow = Secret.Cells(Secret.Cells.Rows.Count, "I").End(xlUp).Row
   
    ' Adiciona itens
  For X = 2 To lastRow
        Set li = lstConsulta.ListItems.Add(Text:=Format(Secret.Cells(X, "I").Value, "00"))
        li.ListSubItems.Add Text:=Format(Secret.Cells(X, "J").Value, "00")
        li.ListSubItems.Add Text:=Format(Secret.Cells(X, "K").Value, "R$ #0,0.#0")
        k = k + 1
    Next
Att
Ir para o topo Ir para baixo
 
Busca em planilha excel com VBA
Ir para o topo 
Página 1 de 1
 Tópicos semelhantes
-
» Ajuda em Planilha Excel VBA
» Fórmulas ou Macro de Busca de dados em uma planilha
» Planilha busca relação de materiais a partir do código do KIT
» planilha excel
» Busca usando dados no excel em site na internet

Permissões neste sub-fórumNão podes responder a tópicos
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: