13/03/2006, 04:17
|
| | | Fecha de Ingreso: marzo-2005
Mensajes: 94
Antigüedad: 19 años, 1 mes Puntos: 0 | |
| Hola, puedes hacer q el rango del filtro se cambie automaticamente. Mira este codigo:
Public Sub filtro()
Range("C45").Select
Range("C1:C2782").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("D2959:D2964"), Unique:=True
End Sub
Range("C1:C2782") es el conjunto de celdas sobre el q aplicas el filtro
Range("D2959:D2964") es el rango de criterios
Puedes hacer una funcion q acepte un String (q sera el rango de criterios). Este String cambiara segun tus necesidades. Puedes poner esta funcion en un if, un select o como tu necesites: Por ejemplo
if a>0 then
funcion("C8:C10")
else
funcion("otro rango de criterios")
end if
Espero q te sirva de ayuda. Si consigues hacer algo con lo de las tablas dinamicas, cuentamelo por favor. Chao |