Que formula puedo usar para que al colocar en B3 un numero. En C3 me de la hora en que se modificó

buenas tardes, que formula puedo usar para que al colocar un numero en B3.. En C3 me de la hora en que se modifico y que los dos datos no puedan volver a modificarse??

1 respuesta

Respuesta
1

Con una fórmula no es posible, ya que la fórmula permanece activa y cambiante, para dejar un dato fijo, como la hora, tendría que ser con una macro.

¿Si quieres te preparo un ejemplo y te lo envío?

Saludos. Dam

Dam buenas noches, le agradezco mucho su colaboración, no tengo mucha idea en macros pero si usted me puede ayudar..., si me sirve muchísimo, gracias

Te envío la macro

Instrucciones para worksheet
1. Abre tu hoja de excel
2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
3. Del lado izquierdo dice: VBAProject, abajo dale doble click a worksheet(tu hoja)
4. Del lado derecho copia la macro

Private Sub Worksheet_Change(ByVal Target As Range)
' ActiveSheet.Unprotect
If Not Intersect(Target, Range("B3")) Is Nothing Then
On Error Resume Next
Cells.Select
Selection.Locked = False
Selection.FormulaHidden = False
Range("C3") = Format(Now, "HH:SS")
Selection.Locked = True
Selection.FormulaHidden = False
Range("B3").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
End Sub

Una vez que escribas un dato en la celda B3, quedará bloqueada la celda B3 y C3, la celda C3 con la hora

Saludos. Dam

Si es lo que necesitas.

Dam , hice un cambio en el formato de horas porque también lo necesito con segundos, pero olvide decirle que los datos los colocamos hasta B180 adicionalmente van otros datos en otras col... y está protegida toda la hoja, no se si se puede proteger solo las col. B y C... me puede ayudar con eso??

gracias

Andres

Te cambio la macro

Private Sub Worksheet_Change(ByVal Target As Range)
' Actualiza hora
'Por.Dam
If Not Intersect(Target, Range("B3:B180")) Is Nothing Then
On Error Resume Next
Cells.Select
Selection.Locked = False
Selection.FormulaHidden = False
Range("C" & Target.Row) = Format(Now, "HH:MM:SS")
Range("B:C").Select
Selection.Locked = True
Selection.FormulaHidden = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Target.Select
End If
End Sub

prueba y me comentas.

Saludos. Dam
Si es lo que necesitas.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas