hugonmo
Mensagens : 1 Data de inscrição : 27/08/2012
| Assunto: 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!!! | |
|
alexandrevba
Mensagens : 1820 Data de inscrição : 13/07/2011 Localização : Serra - ES
| Assunto: 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 | |
|