Crear macro para copiar fechas

[memes]

Hola buenas tardes,

Tengo en Excel una macro que realiza copias de una hoja  “planilla “(modelo)  tantas semanas tiene el mes y las renombra con los datos que tengo en la hoja ListadoCopia,

En la misma hoja tengo tres columnas de fecha ya calculadas correspondientes a los días de cada semana solo necesito los (Lunes, Miércoles, Viernes), me gustaría que copiara estas fechas en las hojas ya renombradas según corresponda así la hoja ENE_S1_2021 tendría el lunes 4/01/2021 , miércoles 6/01/2021, etc…

Perdón si es muy simple la pregunta estoy empezando y lo veo todo un mundo el poder manejarme en Excel.

Muchas gracias a todos

quirofanos.xlsm

[Antoni]

Prueba con la macro:

Sub Copia()
Dim C As Range
'--
Application.ScreenUpdating = False
For Each C In Range("A2", Range("A" & Rows.Count).End(xlUp))
   Sheets("Planilla").Copy Sheets(Sheets.Count)
   With ActiveSheet
      .Range("A1") = C
      .Range("A3") = C.Offset(0, 5)
      .Range("A6") = C.Offset(0, 6)
      .Range("A9") = C.Offset(0, 7)
      .Name = Trim(C.Offset(0, 1))
   End With
Next C
Application.ScreenUpdating = True
End Sub

 

[memes]

Muchísimas Gracias Antoni,

justo lo que necesitaba, funciona todo perfecto.

Un Saludo