Problema Find en VB excel 2007

[pkj]

No sé exactamente como debe hacerse, pero creo que esto es mas o menos lo que necesitas.

Código vb:

Private Sub TextBox1_Enter()
  Sheets("datos").Select 'LA HOJA DONDE ESTA LA INFORMACIÒN
 
  On Error Goto ErrorBuscando
 
  Range("A1:A11").Find(What:=ComboBox1, LookAt:=xlWhole, SearchOrder:=xlByColumns, _
SearchDirection:=xlNext, MatchCase:=False).Activate 
'LA ANTERIOR LINEA HACE LA BUSQUEDA EN LA HOJA DEL VALOR CONTENIDO EN COMBOBOX1
 
  TextBox1 = ActiveCell.Offset(0, 1).Value ' AL ENCONTRAR LA INFORMACIÒN SELECCIONA LA CELDA HUBICADA A LA PAR Y LA SELECCIONA Y MUESTRA EN EL TEXTBOX
 
  Exit Sub
 
ErrorBuscando:
  Err.Clear
  TextBox1 = ""
  ActiveCell.Offset(0, 1).Value = ComboBox1
 
END SUB
 

Saludos