Buscar en una tabla (asi como buscarv pero en macro)

aupa jota:
por ke no ocupas esa misma funcion??

Dim miRango As Range
Dim hoja As String

Private Sub UserForm_Initialize()
hoja = "Hoja1"
Set miRango = Sheets(hoja).Range("A1:b100")
End Sub

Private Sub TextBox1_Change()
Dim codigo As String, desc As String
codigo = TextBox1.Text
On Error Resume Next
desc = Application.WorksheetFunction.VLookup(codigo, miRango, 2, False)
If Err.Number = 0 Then '#N/A = error(1004)
TextBox2.Text = desc
Else
TextBox2.Text = ""
Err.Clear
End If
On Error GoTo 0
End Sub

espero que te sirva de algo

(_8(I)
dkd3nc3

"jota" escribió en el mensaje
news:3dd901c37627$25b61d40$

Amigos, saludos:

Necesito hacer lo siguiente, en un user form de macro
tengo dos cuadros de texto, uno para digitar el codigo y
otro para una descripcion. Quiero que en el mismo cuadro
de dialgo me aparezca esta descripcion automaticamente por
ejemplo en el change del cuadro de codigo, pero no se como
hacer la busqueda. La base de datos esta en una hoja
contigua

De antemano gracias