Excel: Macro con la funcion de edicion/buscar

[LANDA59]

Iniciado por gabrielmsi

hola gente, tengo un problemita seguro facil de resolver pero estoy un poco verde en esto de las macro. Necesitaba una macro exactamente igual a las mencionadas arriba:
Private Sub TextBox1_Change()
Cells.Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
.Activate
End Sub

Asi funciona perfectamente pero cuando quiero restringir la busqueda a una columna haciendo esto [B:B] o esto Range( "B9:B9000") me dispara un error en visual "error 1004.Imposible obtener la propiedad Find de la clase Range."
Como puedo solucionarlo? gracias

LO INTENTASTE ASI?:

Código:

Private Sub TextBox1_Change()

[B:B].Find(What:=TextBox1).Activate

End Sub

O ESPECIFICAMENTE BUSCAR COMO ARRIBA LO MENCIONAN:

Código:

Sub Macro1()

On Error GoTo lineaerror

[B:B].Find(What:="hola", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate

Exit Sub

lineaerror:
MsgBox "NO SE ENCONTRO DATO"

End Sub