Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Filtrar por palavra...
 
Notifications
Clear all

Filtrar por palavra chave

 
2024 - VBA & Macros
7 Posts
1 Usuários
0 Reactions
1,293 Visualizações
RSS
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Ola Pessoal,

Fiz uma busca rápida no fórum e não encontrei algo sobre isso, mas queria saber se há como fazer uma busca por PALAVRAS-CHAVE em VBA. Por exemplo, se eu digitar num textbox as palavras "borboleta e mulher" a rotina busque em toda coluna A, essas duas palavras.

Hoje eu utilizo a rotina abaixo, mas essa não faz essa distinção.

On Error GoTo Werro

'ChDir "C:MIGREGFotos"
ChDir ThisWorkbook.Path & "Fotos"

Dim arqAAbrir
'If txtnome = "" Then
'MsgBox "Digite ou pesquise Cliente.", 64, "MiG System"
'Exit Sub
'End If
    arqAAbrir = Application.GetOpenFilename("Arquivos de imagens (*.jpg;*.bmp;*.wmf), *.txt,*.bmp,*.wmf")
    If arqAAbrir <> False Then
        txtfoto4.TEXT = LCase(arqAAbrir)
        Image_Cliente3.Picture = LoadPicture(txtfoto4.TEXT)
        Image_Cliente3.PictureSizeMode = fmPictureSizeModeStretch 'fmPictureSizeModeZoom
    End If
    
    Exit Sub
Werro:
    TrataErro Err.Number, Err.Description

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 23/08/2014 3:40 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

rotina e descrição não batem...

favor detalhar melhor...

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 24/08/2014 8:59 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Essa rotina que coloquei realmente não faz o procedimento que desejo, apenas postei pra mostrar o que estou utilizando. Não busco algo à partir dela. Minha necessidade é que a pesquisa seja feita buscando a "palavra-chave" em toda extensão da célula. Por exemplo, se eu colocar as palavras "borboleta e mulher" no TEXTBOX1, a rotina filtrasse em toda coluna A, quais células tem essas duas palavras, e que fosse retornado de preferência num listbox, ou até mesmo numa outra aba da planilha.

Obrigado desde já.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 24/08/2014 9:41 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Arriscando:

    ActiveSheet.Range("$A$1:$A$24").AutoFilter Field:=1, Criteria1:="=Palavra1", _
        Operator:=xlOr, Criteria2:="=Palavra2"

??? Filtra na coluna A pela duas palavras.

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 25/08/2014 7:14 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Ola Mauro,

Agradeço pela ajuda, meu caro.

A rotina anterior realmente se referia a outro momento do codigo, a que utilizo estou postando abaixo.

Public Sub filfotos2(VALOR As String)
On Error Resume Next


TXTCaminho = ""
UserForm12.ListBox2.Clear
Dim I As Double
Dim Plan As Worksheet
Set Plan = Sheets("Plan3")

I = 2
Linha = 0

While Range("A" & I) <> "" 
If Range("A" & I).Value = VALOR Then

UserForm12.ListBox2.AddItem (Range("A" & I).Value)
UserForm12.ListBox2.List(Linha, 1) = Range("B" & I).Value

Linha = Linha + 1

End If
I = I + 1
Wend

 
End Sub

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 25/08/2014 7:47 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom dia!!

Veja o modelo abaixo, seria algo assim.....?
Fonte: http://www.excelcampus.com/

https://www.sendspace.com/file/8fgcsz

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 25/08/2014 7:50 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Ola Alexandre,

Muito bacana seu exemplo, mas não é isso. A pesquisa dele faz a mesma busca que o meu código. No seu exemplo a busca é feita de Beverly Hills certinha, mas buscando exatamente desse jeito. Se digitarmos Hills Beverly (duas palavras) ele não conseguirá filtrar. Eu pretendo FILTRAR se tiver a palavra HILLS ou se tiver a palavra BEVERLY, ou ambas.

Abraço e obrigado pela ajuda.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 25/08/2014 9:11 am
Forum Jump:
  Tópico Anterior
Próximo Tópico