valentikary
06 de Septiembre del 2005

Hola tengo un problema en excel
He creado el formulario, y todos los botones ya sirven,
pero me gustaria que cuando haga una busqueda no solo me lo haga en un solo texbox, sino que me busque primero en todos y despues me llene todos los texbox con la busqueda resultante
Se los agradesco en hgran manera. aqui les muestro el codigo

Private Sub Busqueda_Click()
On Error GoTo noencontro

Cells.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
Label4 = ActiveCell.Row
noencontro:
End Sub
Y solo me hace una busqueda y desearia que me lo aria en todos

Y otra cosa como llamo un user form
Private Sub UserForm_Initialize()
Application.OnTime Now + TimeValue("00:00:09"), "hola"

End Sub

Gracias por la ayuda
Bay
y mi correo es
[email protected]
En lo que les pueda ayudar sera un placer

Silvina
06 de Septiembre del 2005

no se entiende bien lo q queres hacer, pero si necesitas buscar en mas de un lugar entonces deberias encerrar tu codigo en un ciclo, por ej un while o un for

valentikary
06 de Septiembre del 2005

hola ya lo intente pero no me quedo ya que el codigo segun es para una sola busqueda en un texbox,

Te explico un poco mas,

La agenda es visual y tiene 36 texbox y un boton de busqueda, pero auisiera buscar en mas de un texbox
osea que el primer texbox es empresa y el segundo es nombre, que si no encuentra nada en empresa se pase a nombre y si lo encuentra me llene todos los demas texbox con el codigo de arriba