¿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 de Oscar Camacho
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
