Jump to content

Descomponer fechas con Macro

Posted

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

  • Author

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

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

 

  • 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

  • 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

 

Archived

This topic is now archived and is closed to further replies.