Excel valor celda condicionado a hora
Buenos días,
tengo un problema.
Necesito que en excel, una fórmula para que me haga lo siguiente:
Si meto un valor en la celda C3, sea el valor que sea, automáticamente en la celda B3
aparezca un valor ( "M", "T", o "N"), dependiendo de la hora en la que se introduzca el valor en C3, es decir,
si en C3 meto un valor entre las 6am y las 14pm, en B3 aparezca "M"
si en C3 meto un valor entre las 14pm y las 22pm, en B3 aparezca "T"
y si es entre las 22h y las 6am, aparezca "N".
Mientras C3 no tenga ningún valor, en B3 no aparecerá nada.
Muchas gracias!!
tengo un problema.
Necesito que en excel, una fórmula para que me haga lo siguiente:
Si meto un valor en la celda C3, sea el valor que sea, automáticamente en la celda B3
aparezca un valor ( "M", "T", o "N"), dependiendo de la hora en la que se introduzca el valor en C3, es decir,
si en C3 meto un valor entre las 6am y las 14pm, en B3 aparezca "M"
si en C3 meto un valor entre las 14pm y las 22pm, en B3 aparezca "T"
y si es entre las 22h y las 6am, aparezca "N".
Mientras C3 no tenga ningún valor, en B3 no aparecerá nada.
Muchas gracias!!
1 Respuesta
Respuesta de jrgces
1
la fórmula me parece bien, pero de dónde saco la hora? ese es el problema
quiero que cuando escriba algo en C, en B aparezca automáticamente "T","M",o "N", cogiendo la hora del reloj del PC,pero que cuando vuelva a abrir la excel no cambie las celdas ya usadas....
quiero que cuando escriba algo en C, en B aparezca automáticamente "T","M",o "N", cogiendo la hora del reloj del PC,pero que cuando vuelva a abrir la excel no cambie las celdas ya usadas....
Para lo que necesitas, lo mejor es recurrir a VBA:
Private Sub Worksheet_Change(ByVal Target As Range)
If Application.Intersect(Target, Me.[c2:c100]) Is Nothing Then Exit Sub
If Target.Cells.Count > 1 Then Exit Sub
Application.EnableEvents = False
Target.Offset(, -1).Value = IIf(Now - Int(Now) Application.EnableEvents = True
End Sub
El código hay que pegarlo en el módulo de la hoja (pulsación con el botón derecho sobre su etiqueta -> ver código). Está restringido a las filas 2 a 100, pero esto se puede cambiar por las que se necesite cambiando [c2:c100] por las filas que sean.
Private Sub Worksheet_Change(ByVal Target As Range)
If Application.Intersect(Target, Me.[c2:c100]) Is Nothing Then Exit Sub
If Target.Cells.Count > 1 Then Exit Sub
Application.EnableEvents = False
Target.Offset(, -1).Value = IIf(Now - Int(Now) Application.EnableEvents = True
End Sub
El código hay que pegarlo en el módulo de la hoja (pulsación con el botón derecho sobre su etiqueta -> ver código). Está restringido a las filas 2 a 100, pero esto se puede cambiar por las que se necesite cambiando [c2:c100] por las filas que sean.
