Fecha en celda excel automática
Buenos días,
necesito saber como se puede hacer para poner la fecha en una celda de excel, pero
de la siguiente manera.
En la columna A no tener ningún dato, y según voy introduciendo un valor en la columna C, en la celda A aparezca la fecha actual, y que no sea actualizable, es decir, cuando abra otro día la excel, las celdas que ya tengan fecha no cambien.
Osea, si meto un dato (el que sea) en la C3, en la A3 me aparezca la fecha actual y se quede así, mientras C3 no tenga nada, A3 permanece sin valor, vacía. Así en toda una columna....
Gracias!!
necesito saber como se puede hacer para poner la fecha en una celda de excel, pero
de la siguiente manera.
En la columna A no tener ningún dato, y según voy introduciendo un valor en la columna C, en la celda A aparezca la fecha actual, y que no sea actualizable, es decir, cuando abra otro día la excel, las celdas que ya tengan fecha no cambien.
Osea, si meto un dato (el que sea) en la C3, en la A3 me aparezca la fecha actual y se quede así, mientras C3 no tenga nada, A3 permanece sin valor, vacía. Así en toda una columna....
Gracias!!
1 Respuesta
Respuesta de Luis Mondelo
1
Es necesario programar el evento change de la hoja en cuestión:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then
fila = Target.Row
Cells(fila, 1).Value = Date
End If
End Sub
Con esta macro-evento te pondrá automáticamente la fecha en la columna A siempre que escribas algo en la columna C en su misma linea.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then
fila = Target.Row
Cells(fila, 1).Value = Date
End If
End Sub
Con esta macro-evento te pondrá automáticamente la fecha en la columna A siempre que escribas algo en la columna C en su misma linea.
Muchísimas gracias!!!!
Pero tengo otro problema...,
la macro está perfecta, pero...
ahora necesito otra condición en la macro,
que cuando yo escriba algo en C, si son de entre las 0horas y las 6horas, ponga en la
fila A, la fecha menos uno, es decir, la fecha de ayer.
Me podría ayudar???
Gracias!
Pero tengo otro problema...,
la macro está perfecta, pero...
ahora necesito otra condición en la macro,
que cuando yo escriba algo en C, si son de entre las 0horas y las 6horas, ponga en la
fila A, la fecha menos uno, es decir, la fecha de ayer.
Me podría ayudar???
Gracias!
Esta macro te puede funcionar. Ademas puedes modificar los cronómetros a tu antojo.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then
fila = Target.Row
If Time > "00:00:00" And Time < "06:00:00" Then
Cells(fila, 1).Value = Date - 1
Else
Cells(fila, 1).Value = Date
End If
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then
fila = Target.Row
If Time > "00:00:00" And Time < "06:00:00" Then
Cells(fila, 1).Value = Date - 1
Else
Cells(fila, 1).Value = Date
End If
End If
End Sub
