Controles Active X Excel 2010 cells.find

[djaxel24]

Que tal!!!

Bueno al momento he intentado varios ejercicios, pero no logro hacer lo que necesito.

Es muy simple, ahi va...

A partir de los controles active x he insertado un cuadro de texto en una hoja de excel ahora bien lo que quiero que haga es que funcione como cuadro de busqueda, es decir que pueda escribir un texto o un numero y que lo encuentre cuantas veces se encuentre en la hoja en la que estoy trabajando.

Es masomenos hacer lo que realiza excel cuando se aplica la funcion ctrl+b, es decir, se escribe algo en el cuadro y se da enter cuantas veces quiera uno y va mostrando los resultados encontrados...


lo mas cercano que he llegado a estar del resultado es aplicar la funcion cells.find sin embargo encuentra solo la primer letra y me incluye el primer resultado en el text box al querer modificarlo y entender un poco mas la programacion del cells.find la he regado mas y me marca mas errores, dejo la programacion que tengo al momento aunque se que no es muy exacta y claro tiene bastantes errores.

Private Sub TextBox1_Change()

Cells.Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate


End Sub


Ojala alguien pueda ayudarme!!!!