Posted August 22, 20195 yr Buenas noches, ¿Se pueden descomponer intervalos de fechas utilizando macros? La intención es extraer la cantidad de días entre la fecha inicio y la fecha fin, y a su vez colocarlos automáticamente en el respectivo MES. Adjunto archivo de muestra... descomponer_fech.xlsx
August 22, 20195 yr Hola @TREBUR Prueba el archivo que subo para comprobar si es lo que necesitas. Comenta, por favor. Si te ayudó la colaboración recibida, puedes agradecerlo con un click en el corazón que se encuentra en la parte inferior derecha del comentario. Suerte! ae20190821_descomponer_fecha.xlsm
August 22, 20195 yr Author Probé cambiando un rango de fechas: Coloqué del 18/08/2019 al 21/10/2019 y no arrojó el resultado correcto.
August 22, 20195 yr Hola a todos. Prueba el adjunto. Aclaro que la UDF no es mía. Solo la adapte a tu requerimiento. V-descomponer_fech.rar
August 22, 20195 yr Se toma como base el año de la celda A2. Sub Descomponer() Application.ScreenUpdating = False Range("C2:N" & Range("A" & Rows.Count).End(xlUp).Row).ClearContents For x = 2 To Range("A" & Rows.Count).End(xlUp).Row fecha = Range("A" & x) For fecha = fecha To Range("B" & x) If Year(fecha) = Year(Range("A2")) Then Cells(x, Month(fecha) + 2) = Cells(x, Month(fecha) + 2) + 1 End If Next Next End Sub
August 22, 20195 yr Author Hola Antoni, gracias por tu atención. En el caso de utilizar fechas con años diferentes, ¿cómo sería? Ejemplo: 05/12/2018 al 10/02/2019
August 22, 20195 yr Author Hace 4 horas, Antoni dijo: Se toma como base el año de la celda A2. Sub Descomponer() Application.ScreenUpdating = False Range("C2:N" & Range("A" & Rows.Count).End(xlUp).Row).ClearContents For x = 2 To Range("A" & Rows.Count).End(xlUp).Row fecha = Range("A" & x) For fecha = fecha To Range("B" & x) If Year(fecha) = Year(Range("A2")) Then Cells(x, Month(fecha) + 2) = Cells(x, Month(fecha) + 2) + 1 End If Next Next End Sub Hola Antoni, gracias por tu atención. En el caso de utilizar fechas con años diferentes, ¿cómo sería? Me explico, sin tomar como base el año de la celda A2, o sea, independientemente de eso también pudiera estar en la celda A5 o en la celda A10... Por ejemplo: 05/12/2018 al 10/02/2019
August 22, 20195 yr Author Hace 14 horas, Vladimir dijo: Hola a todos. Prueba el adjunto. Aclaro que la UDF no es mía. Solo la adapte a tu requerimiento. V-descomponer_fech.rar 18 kB · 6 descargas Hola, al tratar de abrir el fichero dice "archivo no válido".
August 22, 20195 yr Author Hace 3 horas, Antoni dijo: Esto vale para todas las fechas. descomponer_fech (1).xlsm 17 kB · 3 descargas ¡Erciale!, agradecido Antoni, hace lo requerido. Mil Gracias...
Buenas noches,
¿Se pueden descomponer intervalos de fechas utilizando macros?
La intención es extraer la cantidad de días entre la fecha inicio y la fecha fin, y a su vez colocarlos automáticamente en el respectivo MES.
Adjunto archivo de muestra...
descomponer_fech.xlsx