Copiar fecha de hoy, si existen datos en otra columna con macro
Estimados:
Necesito una macro que copie la fecha de hoy en una columna, si en la columna H existen datos, para esto tengo esta macro, pero se queda en un Loop y no hace nada.
Sub CopiarFecha()
Range("H5000").End(xlUp).Offset(1, 0).Value = "end"
Range("F2").Select
Do While ActiveCell.Offset(0, 1).Value <> "end"
If ActiveCell.Offset(0, 1).Value <> "" Then
ActiveCell.Value = Date
End If
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Offset(0, 1).ClearContents
End Sub
1 respuesta
Según está esa macro es correcta:
Pondrá la fecha en la columna F si en la columna H hay datos.
¿Dónde está el problema?
La probé y recorre toda la columna hasta el 100.000 y no copia ninguna datos, pruébalas. yo cree un nuevo excel y pasa lo mismo.saludos
Claro... tiene un pequeño error. Esta es tu macro correcta:
Sub CopiarFecha()
Range("H5000").End(xlUp).Offset(1, 0).Value = "end"
Range("F2").Select
Do While ActiveCell.Offset(0, 2).Value <> "end"
If ActiveCell.Offset(0, 2).Value <> "" Then
ActiveCell.Value = Date
End If
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Offset(0, 2).ClearContents
End Subrecuerda finalizar
