Rango de fechas

21/08/2004 - 08:21 por Ivan | Informe spam
Hola a todos
Estoy tratando de obtener un reporte de unos datos entre dos fechas, por
ejemplo (estos serian datos en la hoja 1)
A B C
11-Jun-04 14577 1,000.00
15-Ene-04 13217 400.00
01-Nov-03 12477 400.00
17-Sep-03 12086 600.00
29-May-03 11071 800.00
13-Ene-03 9750 400.00

en la hoja 2, tengo dos fechas, una en A1 y otra en A2, como podria filtrar
por medio de una macro todos los datos que esten dentro de estas dos fechas??

Agradesco de antemano cualquier sugerencia

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
22/08/2004 - 02:00 | Informe spam
hola, Ivan !

... obtener un reporte de unos datos entre dos fechas ... datos en la hoja 1
A B C
11-Jun-04 14577 1,000.00
15-Ene-04 13217 400.00 [...]
... hoja 2 ... dos fechas ... en A1 y ... en A2
... filtrar por ... macro todos los datos que esten dentro de estas dos fechas??



1.- ¿a que te refieres ->exactamente<- con... 'filtrar por macro'???
- aplicar autofiltros en la hoja1 ???
- usar filtros avanzados de hoja1 a hoja2 ???
- 'obtener' los resultados en [alg]una 'matriz' ??? -y... luego... ¿que???-
- ¿otros???
2.- [en la hoja2] cual es la celda con la fecha 'menor' ??? ['A1' o... 'A2']

¿comentas?
saludos,
hector.
Respuesta Responder a este mensaje
#2 Ivan
22/08/2004 - 03:31 | Informe spam
Hola Hector, tal vez no fui claro, en la hoja 1 tendria

REPORTE A OBTENER
A B C
1 _____ DESDE LA FECHA
2 _____ HASTA LA FECHA

EL FILTRO QUE QUIERO HACER ES SACAR TODA LA INFORMACION DE LOS DATOS DE LA
HOJA 2, LOS CUALES ESTEN COMPRENDIDOS DENTRO DE LAS FECHAS A INTRODUCIR EN A1
Y A2 ( NOTA: ESTAS FECHAS SE VAN A ESTAR CAMBIANDO CON FRECUENCIA ) Y POR
TANTO QUE A PARTIR DE A10 PUEDA OBTENER EL FILTRO DESEADO

SALUDOS
Respuesta Responder a este mensaje
#3 Héctor Miguel
22/08/2004 - 06:24 | Informe spam
hola, Ivan !

... tal vez no fui claro, en la hoja 1 tendria
REPORTE A OBTENER
A B C
1 _____ DESDE LA FECHA
2 _____ HASTA LA FECHA
... QUIERO ... SACAR ... LOS DATOS DE LA HOJA 2 ... DENTRO DE LAS FECHAS ... A1 Y A2 [...]



ok... ok... ok... [no es necesario que 'me grites'] :)))
te propongo los siguientes pasos... haz pruebas y... ¿comentas?
saludos,
hector.

asumiendo que los datos en hoja1 son...
[A1] = la fecha 'inferior' y [A2] = la fecha 'superior'
y que los datos en la hoja2 'van' desde 'A1' hasta 'C[n]'
puedes hacer uso por codigo de los filtros avanzados con los siguientes pasos...
1.- ASEGURATE que en la hoja2 ->la primer fila<- 'contiene' titulos [p.e.]
[A1]: Fechas [B1]: DatoA [C1]: DatoB -> con lo cual... los datos 'reales' se iniciaran en 'A2' <-
2.- en la hoja2, pon la siguiente formula en la celda [p.e.] 'E2'... =y(a2>=hoja1!a1,a2<=hoja1!a2)
[recuerda que 'mi' separador de argumentos ES la coma y... las referencias SON 'relativas']
3.- asigna los siguientes nombres [insertar / nombre / definir...] ->son propuestas... puedes usar 'otros'<- ;)
a) Datos con referencia a: hoja2!a1:c[n] ->se incluyen los titulos<-
=> es probable que debas usar nombres con referencia a rangos 'dinamicos' o [de]crecientes < b) Criterios con referencia a: hoja2!e1:e2 ->'E1' debera estar 'vacia'<- OJO
c) Salida con referencia a: hoja1!a10:c10 ->es 'donde' se hara el 'extracto' de los datos
4.- copia en el modulo de codigo ->de la hoja1<-
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("a1:a2")) Is Nothing Then Exit Sub
If Range("a2") > Range("a1") Then
With Worksheets("Hoja2")
.Range("Datos").AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=.Range("Criterios"), _
CopyToRange:=Me.Range("Salida")
End With
Else: Range("a10:c65536").ClearContents
End If: Target.Select
End Sub
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida