Bom dia. Primeiramente gostaria de agradecer a paciência e atenção.
Eu não consigo efetuar downloads pela internet do meu trabalho e não consegui ver o arquivo.
Então até agora eu consegui apenas fazer a pesquisa, mas ela encontra apenas a primeira palavra e pára. Eu gostaria que ele exibisse todos os resultados que existem na planilha... E escondesse as linhas que não contém o resultado desejado.
Andei pesquisando e encontrei em fóruns em inglês menções ao hide row, mas não compreendi como utilizar.
O macro que estou usando é o seguinte:
Sub Pesq1_Clique()
sbx = InputBox("Digite a palavra desejada")
If sbx = cancel Then 'caso cancele a busca
Exit Sub
End If
For i = 4 To 100
Cells.Find(What:=sbx, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Select
Se alguém puder enviar por e-mail o arquivo mencionado no post acima, eu ficaria bastante agradecida. Meu e-mail é [email protected]
A minha planilha está no link: http://temp-share.com/show/3YgFN3kPx
Saudações!
"Only those who will risk going too far can possibly find out how far one can go."
Postado : 18/07/2013 4:35 am