02/08/2007, 13:11
|
 | | | Fecha de Ingreso: julio-2006 Ubicación: Lima, Peru
Mensajes: 708
Antigüedad: 17 años, 9 meses Puntos: 18 | |
| Re: PROBLEMA CON MACRO Cells.Find "LO HE INTENTADO TODO"
Humm, justamente por eso es importante colocar lo mas detallado posible una pregunta, para no alrgar el tiempo y espacio en que podemos resolverla:
Private Sub CommandButton1_Click()
On Error GoTo noencontro
[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
Abraham |