28/08/2008, 07:10
|
| | | Fecha de Ingreso: junio-2008
Mensajes: 61
Antigüedad: 16 años, 7 meses Puntos: 0 | |
 Respuesta: Buscar en lista con valores repetivos
Ayuda please......
encontre esto que busca pero como lo amoldo
*** abrahamvj
On Error GoTo noencontro
[a1].Select
[A:A].Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
ActiveCell.Offset(0, 1).Select
TextBox2 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox3 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox4 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox5 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox6 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox7 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox8 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox9 = ActiveCell
Exit Sub
noencontro:
MsgBox "No hay coincidencias"
End Sub |