¿Quiero una macro que en la celda B10 me copie unas fechas?

Quisiera la colaboración para programar una macro que me copie fechas en la fila B (a partir de la celda B10) dependiendo de la cantidad de datos de la fila DE (a partir de la celda D10). Estos se encuentran en una sola hoja llamada Data.

Respuesta
1

'Después de muchos intento para solucionar, comparto la respuesta ...

Private Sub CCalendar_Click()
'Poner la fecha en las celdas
Dim fila, uf As Integer
fila = 10
b = ActiveSheet.Name
uf = Sheets(b).Range("D" & Rows.Count).End(xlUp).Row
While Sheets(b).Cells(fila, 4) <> Empty
d = CCalendar.Value
If Sheets(b).Cells(fila, 2) = Empty Then
Sheets(b).Cells(fila, 2) = d

Cells(fila, 2).NumberFormat = "dd/mmm/yyyy" 'Cambia el formato de fecha

End If
fila = fila + 1
Wend
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas