Saltar al contenido

Descomponer fechas con Macro


Recommended Posts

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

 

Enlace a comentario
Compartir con otras webs

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

 

Enlace a comentario
Compartir con otras webs

Archivado

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

×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.