Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Filtro Contem
 
Notifications
Clear all

Filtro Contem

 
2024 - VBA & Macros
Post Recente por eduhaag 12 anos atrás
5 Posts
2 Usuários
0 Reactions
1,230 Visualizações
RSS
 eduhaag
(@eduhaag)
Posts: 36
Trusted Member
Topic starter
 

Ola pessoal.

Estou criando um sistema de automação comercial todo em vba.
Tenho um form que com um listbox, um textbox e um button e os dados ficam em uma planilha.
Gostaria de digitar por exemplo " Bola" no textbox e clicasse no button a listbox fosse preenchida com todos os valores da planilha na coluna B que contenham o nome bola.
Até ai eu sei fazer, o problema que assim só é preenchido na listbox caso na planilha esteja escrito apenas "Bola".
O que desejo é que seja preenchido todos que contenham bola no nome, pois alguns podem estar escritos "Bola de futebol","Bola de basquete" e esses tambem deveriam preencher o listbox

Alguem consegue me ajuda?

 
Postado : 14/03/2013 7:33 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Voce naõ mostrou como está selecinando a linha, porem imagino que seja algo +/- assim:
if range("B" & nlin) = "Bola" then....
então experimente utilizar o caracter curinga com a expressão LIKE.
Se quiser somente a palavra no inicio da linha utilize: if range("B" & nlin) like "Bola*" then....ou
"*bola" (vai "buscar" a palavra no fim de cada texto)
ou mesmo "*Bola*" (vai "buscar" em qualquer posição onde o texto apareca)

 
Postado : 14/03/2013 9:51 am
 eduhaag
(@eduhaag)
Posts: 36
Trusted Member
Topic starter
 

O metodo que estou usando é:
while x<100
if Plan1.cells(x,2).value=textbox1.text then
'faz ação
end if
x=x+1
wend
' faz ação

porem nesse meu método, o texto tem de estar identico ao que esta escrito no textbox1, e o que eu gostaria é que a busca retornasse todos os valores que contem o texto, mesmo que não seja identico.

 
Postado : 14/03/2013 9:46 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

experimente

if Plan1.cells(x,2).value like & "*" & textbox1.text & "*" then

Se não conseguir, poste um exemplo

 
Postado : 15/03/2013 5:10 am
 eduhaag
(@eduhaag)
Posts: 36
Trusted Member
Topic starter
 

Funcionou!!!
Obrigado Reinaldo, você me ajudou muito.

 
Postado : 15/03/2013 8:56 am
Forum Jump:
  Tópico Anterior
Próximo Tópico