¿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.
1 Respuesta
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
