Imprimir página | Cerrar ventana

Extraer datos en base a fechas

Impreso de: Foro de Access y VBA
Categoría: Otros de Microsoft: Windows y Office
Nombre del foro: Excel
Descripción del foro: Foro de Excel y VBA de Excel
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=85974
Fecha de impresión: 19/Abril/2024 a las 06:00


Tema: Extraer datos en base a fechas
Publicado por: Dany Solis
Asunto: Extraer datos en base a fechas
Fecha de publicación: 30/Abril/2021 a las 23:48
Que tal a todos,

Tengo una hoja excel (Sheet1) con "N" filas, en una de las columnas tengo un dato tipo fecha (columna z), en (sheet2) quiero obtener un rango de datos de la hoja 1 a la hoja 2 en base a lass fechas que yo le pase ejemplo en (A2, Fecha Inicio) y (b2, Fecha Fin)

 Con esta formula, cuento las filas que estan en ese rango, como puedo ahora traerme al sheet2 el rango que necesite?:
=SUMPRODUCT((SharePoint!$W$2:$W$1000>=Sheet1!G2)*(SharePoint!$W$2:$W$1000<=Sheet1!H2))


Alguna idea o sugerencia?

De antemano gracias.

DS


-------------
Donde hay educación, no hay distinction de clases. (Confusio)

Dany Solis


Respuestas:
Publicado por: AnSanVal
Fecha de publicación: 01/Mayo/2021 a las 18:02

Suponiendo que el rango ORIGEN es una Tabla de Excel (Insertar > Tablas > Tabla); la manera más simple es mediante Filtro avanzado.

► Ejemplo (construye este ejemplo para que te quedes con la idea):

- La tabla origen (Hoja1) es  Tabla1    (no importa en que rango esté).

- Los campos (títulos) que quieres capturar son: Fecha, Concepto e Importe (no importa que la tabla ORIGEN sea mayor).

- El rango destino es  Hoja2!B3:D3

- Está libre el rango Hoja2!J1:K2     (es para los criterios -puede ser otro rango-)

1.- [B3]   Fecha       [C3]   Concepto       [D3]  Importe

2.- [J1]   Fecha        [K1]   Fecha

3.- [J2]   =">=07/01/2021"         [K2]   ="<=24/01/2021"     (significa: >=J2  y  <=K2)

 

4.- Datos > Ordenar y filtrar > Avanzadas > ...

5.- ... (marca) Copiar a otro lugar > (Rango de la lista) Tabla1[#Todo] > ...

6.- ... (Rango de criterios) J1:K2 > (Copiar a) B3:D3 > Aceptar

 

 



-------------
Saludos desde Tenerife.

Publicado por: Dany Solis
Fecha de publicación: 03/Mayo/2021 a las 15:57
Gracias Antonio, me ha quedado así:

Sub getData()

Sheets("SharePoint").Range("A1:Y1000").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("MainPage").Range("U3:V4"), _
copytorange:=Sheets("Issues").Range("A1:Y1"), Unique:=False

End Sub


Muchas gracias, se puede cerrar el hilo.

DS


-------------
Donde hay educación, no hay distinction de clases. (Confusio)

Dany Solis


Imprimir página | Cerrar ventana