Inicio > Microsoft Excel > elsamatilde > VBA Excel: autofiltro con 2 o + resultados iguales

VBA Excel: autofiltro con 2 o + resultados iguales

Experto:
Usuario:
Fecha: 31/01/2008
Valoración: (5,00 sobre 5) Categoría: Microsoft Excel
19/01/2008
franfgm, usuario preguntando en Microsoft Excel
Usuario
Hola
al buscar en una base de datos de excel, a traves de un formulario de Busqueda, voy seleccionando los criterios a buscar, que son codigo, empresa, tipo de trabajo realizado y fecha; pero solamente me aparece un resultado, cuando en realidad tengo dos o mas resultados que coinciden con esto 4 campos de busqueda, pero que en los demas campos son distintos.

Mi pregunta es:
con un boton de numero o con una barra de desplazamiento como puedo seleccionarlos a traves de un formulario, para que pueda visualizar el resto de los datos?
Muchas gracias

ejemplo

COD DEPTO EMPRESA TIPO TRABAJO FECHA IMPORTE BANCO
0443-13-C RIDEC PINTURA 10/01/2008 100 ITAU
0443-13-C RIDEC PINTURA 10/01/2008 200 GALICIA
0443-13-C RIDEC PINTURA 10/01/2008 300 RIO
0443-13-C RIDEC PINTURA 10/01/2008 400 NACION

19/01/2008
franfgm, experto respondiendo en Microsoft Excel
Experto
Hola:
Ahora que ya habrás recibido mi manual 400MacrosPlus, fijate en el cap.17, los ejemplos que utilizan la función Find Next (Devolver todos los resultados de una búsqueda', 'Buscar un dato. Copiar la fila de todos los registros encontrados' )

En el primer ejemplo mencionado encontrarás estas líneas:

Do
c.Interior.ColorIndex = 39 'REEMPLAZAR (*)
'se realiza la búsqueda siguiente
Set c = .FindNext(c)

(*) Aquí tendrás que reemplazar esta línea por un Msgbox que consulte si es el registro buscado o no. Por Si harás un ExitSub para salir y por no seguirá la rutina con la línea del FindNext.

Si te presenta alguna dificultad avisame que te lo envío por correo.

Saludos
Elsa

http://es.geocities.com/lacibelesdepunilla/manuales
22/01/2008
franfgm, usuario preguntando en Microsoft Excel
Usuario
Elsa, Excelente tu ayuda, como siempre.
El manual 400 macros plus está 10 puntos.
Muchas gracias
Francisco
22/01/2008
franfgm, usuario preguntando en Microsoft Excel
Usuario
Excelente. Una fantástica solución.
31/01/2008
franfgm, usuario preguntando en Microsoft Excel
Usuario
 
Bueno esta es la tercera vez que finalizo esta pregunta.
Espero que el web master haya solucionado el prolema y ponga la calificación "las estrellitas"
Gracias
31/01/2008
franfgm, usuario preguntando en Microsoft Excel
Usuario
Excelente. Una fantástica solución.
Enlaces patrocinados