Filtro que se detiene

10/08/2005 - 01:05 por José A. Castrejón | Informe spam
Buenas Tardes, estoy haciendo un autofiltro, y necesito que el criterio de
filtrado lo tome de una celda.
A B
1
2
3 FACTURA FECHA
1 07-Jul-05
y asi suscesivamente

Yo quiero poner una fecha en la celda a1 por ej. 3-Ago-05

Dim Fecha
Fecha = Cells(1, 3)
Range("A4").Select
Selection.AutoFilter
Selection.AutoFilter Field:=4, Criteria1:=Fecha

Al parecer el filtro funciona pero no despliega la lista.
Cuando veo la hoja la flecha de la columna filtrada esta en azul si la abro
tiene seleccionado "personalizado" y la fecha esta en otro formato :
Una vez filtrado deseo copiar los datos filtrados a otra Hoja
Gracias
 

Leer las respuestas

#1 Héctor Miguel
10/08/2005 - 02:53 | Informe spam
hola, José !

... haciendo un autofiltro... necesito que el criterio de filtrado lo tome de una celda.
A B
1
2
3 FACTURA FECHA
1 07-Jul-05 ... y asi suscesivamente
... quiero poner una fecha en la celda a1 por ej. 3-Ago-05
Dim Fecha
Fecha = Cells(1, 3)
Range("A4").Select
Selection.AutoFilter
Selection.AutoFilter Field:=4, Criteria1:=Fecha
... el filtro funciona pero no despliega la lista... la flecha de la columna filtrada esta en azul
... tiene seleccionado "personalizado" y la fecha esta en otro formato [...]



1) la macro esta 'tomando' la fecha de la celda 'C1'... NO de 'A1' como pones el ejemplo -?-
->Fecha = Cells(1, 3)<-
2) la macro esta 'autofiltrando' en la columna 4 ['D' ?]
->Selection.AutoFilter Field:=4,...<-
y [aparentemente] la columna de las fechas esta en el campo/columna 2 [o... 'B2' ?]

-> si modificas estas variables en el codigo a los datos 'reales' de la hoja de calculo... que pasa ?

comentas?
saludos,
hector.

Preguntas similares