fecha automatica

[troyano555]

hola gente del foro..

deseo poner la fecha actual automaticamente en una celda, cuando escribo en otra celda un nombre.
y que al cerrar y abrir otro dia el archivo, no se cambie dicha fecha.

nombre fecha
=====================
juan 28/03/2010 ------------------->esto se pone hoy
pedro 29/03/2010 ------------------->esto se pone mañana

agradecido de antemano
y saludos de peru...

[Perr0]

tendrias que usar macros...
usa ésta en la hoja donde trabajas

Código vb:

Private Sub Worksheet_Change(ByVal Target As Range)
y = Target.Row
If y > 1 And Target.Text <> "" Then Cells(y, 1) = Format(Now, " dd-mm-yyyy")
End Sub
 

la puedes mejorar con otras cosas...sino sabes para que sirve una función F1 (si no tienes instalada la ayuda de VB...hazlo)

te explico que hace:
y = Target.Row
captura el numero de la celda correspondiente al eje y siendo la primera 1

If y > 1 And Target.Text <> "" Then Cells(y, 1) = Format(Now, "dd-mm-yyyy")
es una condición donde si la fila es mayor a 1, para no tomar la cabezera, coloca fecha, ese 1 lo puedes variar.
Ademas se tiene que cumplir que en la celda escribas algo...(si el dia de mañana escribes en la misma fila pero en otra columna se cambiara la fecha, si no quieres que suceda esto...tendrias que indicar que sólo tome efecto cuando escribas en la segunda columna por ejemplo)
cumplida las condiciones se imprime la fecha en el formato "dd-mm-yyyy"


si no sabes de macros.....googlea

salu2