06/02/2006, 06:37
|
| | | Fecha de Ingreso: noviembre-2005
Mensajes: 170
Antigüedad: 19 años, 1 mes Puntos: 1 | |
| Este código te hace un filtro avanzado de lo que tengo en Catálogo actuadores en las columnas desde AZ hasta DN en base a los criterios que están entre A2 y N3 y me muestra los resultados en otra hoja a partir de la celda M1, ocupando lo que sea necesario hacia la derecha y hacia abajo.
Sheets("Catálogo actuadores").Range("AZ:DN").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets("Catálogo actuadores").Range("A2:N3"), CopyToRange:=Range("M1"), Unique:=False
El range lo puedes hacer dependiente de las celdas necesarias sustituyendolo por cells(num de fila, num de columna).De esta forma mediante excel puedes elegir el número de celdas que necesites. Yo no te aconsejo que varíes este número, es mejor que tengas todos los títulos que tengas en tus registros y si ese criterio no lo necesitas esa vez, dejalo en blanco y solucionado. De esta forma evitas complicarte inútilmente la vida y si el día de mañana tienes que meter nuevos criterios será más sencillo.
Espero que te sirva.
__________________
El sabio no dice nunca todo lo que piensa,
pero siempre piensa todo lo que dice.
Aristóteles :pensando: |