Saltar al contenido

Descomponer fechas con Macro

publicado

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

Featured Replies

publicado
  • Autor

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

publicado

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

 

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.