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  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 Busca em planilha excel com VBA

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
hugonmo



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

MensagemAssunto: Busca em planilha excel com VBA   Seg 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!!!
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



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

MensagemAssunto: Re: Busca em planilha excel com VBA   Seg 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
Voltar ao Topo Ir em baixo
Ver perfil do usuário
 
Busca em planilha excel com VBA
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Consulta X Planilha Excel
» Aros EXCEL pretos furação Honda VENDIDOS
» Retirar caixa de busca
» Desativar busca do fórum
» Imagem de fundo na caixa de busca

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: