publicado el 22 de agosto5 años 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
publicado el 22 de agosto5 años 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
publicado el 22 de agosto5 años Autor Probé cambiando un rango de fechas: Coloqué del 18/08/2019 al 21/10/2019 y no arrojó el resultado correcto.
publicado el 22 de agosto5 años Hola a todos. Prueba el adjunto. Aclaro que la UDF no es mía. Solo la adapte a tu requerimiento. V-descomponer_fech.rar
publicado el 22 de agosto5 años 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
publicado el 22 de agosto5 años Autor 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
publicado el 22 de agosto5 años Autor 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
publicado el 22 de agosto5 años Autor 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".
publicado el 22 de agosto5 años Autor 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