[Excel] fecha automática sin actualización

Hola,

Este script está muy bien, pero lo probé y todavía no funciona bien porque cada vez que vuelvo a la celda, se actualiza.

Estoy realizando un documento de ficha de incidente.
En una primera parte utilizo la fecha para generar un número, es decir:
Ej: 14/02/2007 15:00
En mi celda quiero tener esto 20070214-1500.
Para ello he utilizado la fórmula clásica en Excel: =AHORA()

Lo que busco hacer con esta celda es crear un número único en la primera apertura del archivo y que no se actualice más, que sea estático. Sobre todo, imposible de cambiar el número.

En la segunda parte, tengo esto:
......| A | B | C | D
13 | N° | Fecha | Hora | Interviniente
14 | 1 | 14/02/2007 | 14:26 | Toto
15 | 2 | 14/02/2007 | 14:26 | Titi
16 | 3 | 14/02/2007 | 14:26 | Tutu

Lo que quiero hacer es:
- En cuanto se ingrese un nombre en la columna E (Interviniente)
- La fecha y la hora se actualicen automáticamente pero solo una vez, sin posibilidad de cambiar, a menos que se elimine el nombre.

Lo que he hecho: en la columna Fecha he puesto esta fórmula: =SI(ESTVACIO(D14);"";HOY())
en la columna Hora he puesto esta fórmula: =SI(ESTVACIO(D14);"";AHORA())

Hay que saber que estas dos fórmulas no son funcionales en absoluto. Las celdas se actualizan sistemáticamente cada vez que ingreso un nuevo usuario y además actualizan las de los otros usuarios. Y también, por la misma ocasión, el número de incidente que está basado en la fecha.

No soy una persona que domina esta herramienta, pero intento hacerlo para simplificar mi día a día.

Gracias a la persona que pueda ayudarme a encontrar una solución a mi problema.

Hola JvDo,

he probado tu programa VBA en una hoja en blanco y funciona muy bien para la aplicación que quiero implementar.
Sin embargo, para mí las celdas relevantes no están en las columnas A y B.
Para mí, la columna A está en B y la columna B está en F !!!
¿Qué términos debo cambiar en la programación VBA para que funcione?
Atentamente

Voy a crear un programa de control de fechas de caducidad de productos a mi disposición.
Por ejemplo, tengo el producto A que he recibido en tres ocasiones de diferentes proveedores que, evidentemente, tienen diferentes fechas de producción y caducidad. Necesito ayuda para crear un archivo con el promedio de detección de la fecha de caducidad.
Gracias por tu ayuda, JvDo.

Atentamente.

¡Gracias, me ayudó mucho!!!!!!!!!!! :)

Hola, eso funciona, gracias. Sin embargo, tengo una pequeña solicitud por cuestiones de perfección.
Cuando ingreso un carácter en la columna B (2), la fecha se muestra correctamente en la columna F (6).
Sin embargo, ¿sería posible realizar una modificación en la macro para que, cuando elimine el carácter en la columna B, la fecha en la columna F desaparezca?
Gracias de antemano.
Atentamente.

Buenas noches,
Prueba con este código que es más completo porque gestiona la eliminación de una selección de múltiples áreas.
En mi caso, funciona, pero no he buscado probarlo todo.

Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False Set vtarget = Intersect(Target, Columns(2)) If Not (vtarget Is Nothing) Then For Each varea In vtarget For Each vcell In varea If Not (IsEmpty(vcell.Value)) Then Range("F" & vcell.Row).Value = Now Else Range("F" & vcell.Row).ClearContents End If Next Next End If Application.EnableEvents = True End Sub

Cordialmente

Genial,
Esto es muy útil, muchas gracias,

Personalmente, tengo una última pregunta para que mi archivo esté perfecto,

¿Qué debo añadir para que la macro funcione solo a partir de la línea N?

hola
solo pon el número de columna (N) deseado en lugar de (2)
en la línea:
Set vtarget = Intersect(Target, Columns(2))
y, por supuesto, reemplaza ("F") por el nombre de la columna donde quieres mostrar el resultado;
saludos

Gracias,
Pero ese no es el problema, eso funciona, solo que me gustaría que este formato se aplicara a partir de la línea N (16 en este caso).
De lo contrario, cuando modifico mi encabezado, me llegan fechas de todas partes :-/

Creo que debo agregar un If para escribir si la línea es mayor a 16 entonces, y ahí el resto de la macro.

Pero me falta la sintaxis...