Eu nao testei o codigo mas a ideia é basicamente essa
Sub busca()
Dim valor as long
valor = textbox.value
range("A2").select
do while activecell <> ""
if activecell = valor then
activecell.select
exit sub
else
activecell .offset(1,0).select
End if
loop
end sub
Marcelo Prudencio
Microsoft Excel Brasil no Facebook
"Começar já é a metade do caminho."
Autor Desconhecido
Simplifica que simples fica.
Nicole Tomazella.
"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.
Postado : 02/10/2015 3:14 pm