Busqueda de datos en vba

[spoilt193]

Buenos Dias! quien me podria ayudar en la elaboración de una macro, en la misma tengo que hacer el código para realizar la busqueda por una o varias celdas. Por Ejemplo: Busqueda por ID, Por Número de Telf, Por Nombre, Por Estado. De antemano le agradezco a la persona que me pueda auxiliar con esto. Muchas Gracias...

[mrocf]

Lo importante aquí es: haces la búsqueda y encuentras un registro que satisface las condiciones planteadas.

Entonces: ¿Y qué haces después?...
Te lo pregunto pues -a lo mejor- un simple AutoFiltro te resuelve el problema sin necesidad de macro alguna.

Además, ¿es posible que la búsqueda te entregue más de un registro que cumpla las condiciones?

[spoilt193]

Gracias por tu pronta Resp, pero Realmente un simple filtrado no seria la solucion, porque me estan pidiendo que haga formularios para mostrar la informacion requerida. En este formulario debo hacer la busqueda por una u otra celda. Te lo explico de otra forma: Necesito que al buscar por un número de telf me de toda la información de la persona (Nombre, ID, Estado, Municipio, Dirección, Personal asignado bajo su mando), Pero si la busco por el estado, necesito que me de todas las personas y numeros de telf que haya en el estado que deseo buscar. Yo tengo un código pero solo me hace la busqueda por la información que yo coloque en la primera celda. Ejm: tengo en la primera celda el nùmero de Tlfno, entonces me hace la busqueda sólo por número de Tlfno, y en realidad lo que busco es que me haga la búsqueda por cuaquier dato que yo le introduzca. A continuación te muestro el Código:

Private Sub TextBox1_Change()
Dim i As Integer, Num As Boolean
Num = True
For i = Me.ListBox1.ListCount - 1 To 0 Step -1
If Not IsEmpty(Trim(Me.TextBox1)) Then
If LCase(Me.ListBox1.List(i)) Like LCase(Me.TextBox1.Value) + "*" Then
Me.ListBox1.Selected(i) = True
Num = False
End If
End If
Next
If Num And Not IsEmpty(Trim(Me.TextBox1)) Then
MsgBox "Número No Registrado", vbInformation + vbOKOnly, "Sra Marinella"

End If
End Sub

Gracias por tu ayuda...

[Chonchy]

Buenos Días compañero, yo confeccioné una macro que te podría ser de ayuda solo que realiza la búsqueda por nombre o apellido utilizando el método "Find", la información se ingresa mediante ImputBox y el resultado se muestra mediante un MsgBox, además si hay más de una persona con el mismo nombre o apellido el sigue buscando en el listado hasta encontrar el último registro, si te es de ayuda no dudes en escribirme te la envío y la adaptas a tus necesidades.

[spoilt193]

Bien hermano, si puedes enviamela al correo o escribela por este medio para ver como funciona. [email protected]
gracias hermanazo..

[julios20]

Hey tambien enviame la macros a [email protected] porfa!!!!