Descomponer fechas con Macro

[TREBUR]

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

[tierra_pampa]

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

[TREBUR]

Probé cambiando un rango de fechas:
Coloqué del 18/08/2019 al 21/10/2019  y no arrojó el resultado correcto.

[Vladimir]

Hola a todos.

Prueba el adjunto.

Aclaro que la UDF no es mía. Solo la adapte a tu requerimiento.

V-descomponer_fech.rar

[Antoni]

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

 

[TREBUR]

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

[TREBUR]

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

 

[Antoni]

Esto vale para todas las fechas.

descomponer_fech (1).xlsm

[TREBUR]

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".

[TREBUR]

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...