............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Formulario PARA Filtros

Ver el tema anterior Ver el tema siguiente Ir abajo

Formulario PARA Filtros

Mensaje por Invitado el Lun Jul 04, 2011 8:59 pm

Hola, se puede hacer un formulario que haga una busqueda de una lista de datos , encuentre y filtre los que tengan el mismo nombre o codigo en una hoja en la columna b por ejem. el fomulario debe contener un cuadro de texto , un aceptar y un cerrar. si lo encuentra lo filtre y sino que salga un mensaje que diga usuario no existe...
gracias...

tengo un userform que solo busca y encuentra el dato ubicando el selector donde lo encontro , parecido a ctrl +b me gustaria modificarlo.. este es el codigo:

Private Sub CommandButton1_Click()
Dim encontrado As Range
Dim variable As String
variable = TextBox1.Text
'primero si el textbox esta vacio mostrar mensaje de informacion
If TextBox1.Text = "" Then
MsgBox "Debe Seleccionar un dato", vbInformation, "Buscar"
Else
'Una Vez comprobado que no esta vacio me pongo a buscar la palabra
'Aqui solo buscara datos de la columna A .UsedRange.Columns(1)
'si se desea otra hoja se le debe agregar hojax.activate
Set encontrado = Sheets("hoja1").UsedRange.Cells.Find(What:=variable, LookIn:=xlValues, LookAt:=xlPart, MatchCase:=False)
'Si no encuentro el dato mostrar mensaje
If encontrado Is Nothing Then
MsgBox "el dato buscado no existe en el archivo", vbInformation, "Buscar"
Else
'Si encontro el dato seleccionarlo y mostrar mensaje de la ubicacion del objeto
encontrado.Select

' en caso de que si, se llama a la macro que ejecuta el proceso
Set encontrado = Nothing
'al terminar el proceso de busqueda cierra el userfom
Unload Me
End If
End If
End Sub

el codigo esta explicado, se puede reformar para lo que solicite??

Invitado
Invitado


Volver arriba Ir abajo

Re: Formulario PARA Filtros

Mensaje por GalileoGali el Lun Jul 04, 2011 9:58 pm

lo que no esta claro es el objetivo: es aprender o realizar una tarea?

es decir: si no hacemos codigo por encargo o a medida gratuitamente, tampoco adaptamos codigo hecho por terceros (que hasta podria tener algún derecho a respetarse. No sé si este sea ese caso) adaptandolo a tu medida, el objetivo de los que lleva cualquier moderador al brindar asistencia es exactamente el mismo que nos inspiraba cuando, como principiantes, preguntabamos en los foros: APRENDER....
es más nos soliamos enojar cuando se nos aportó algo más que lo estrictamente solicitado, ya que el gusto estaba y sigue estando en encontrar la solucion con la menor ayuda posible. Desde ya que la libertad de cada forista es respetada y si alguien quiere adaptar tu código, está plenamente en su derecho....

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1962
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.