Funcion logica "si"

Hola Pedro:

Si la celda que quieres evaluar es A1 y donde quieres obtener la evaluación
es B1, escribe en B1:

=si(a1<>"",hoy(),"")

Eso te pondrá la fecha en la celda B1, si A1 no está vacía.
No olvides dar a la celda B1 formato de fecha.

Roberto

"pedro gomez" escribió en el mensaje
news:

lHola aTodos

Tengo un inconveniente...
no se como hacer que se evalue una celda y si la celda esta vacia no
haga
nada..
pero si la celda esta ocupada con algun valor me imprima la de la fecha
del
dia..
esto lo hace pero al cambiar de dia cambian los valores de fachas
anteriores a l dia actual.. es decir tdas la fechas quedan al dia de hoy
Ej.


Gracias por su colaboracion

Creo que te había entendido mal.
Lo que quieres hacer, lo lograrás pegando el siguiente código en el editor
de Visual Basic, en la hoja que necesites

'************************************************
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim lngCel As Long
If Not (Intersect(Target, Range("A1:A30000")) Is Nothing) Then
Target.Offset(0, 1).Value = Date + Time
Target.Offset(0, 2).Value = Application.UserName
End If
End Sub
'************************************************

Sólo adáptalo a tu necesidad.

"pedro gomez" escribió en el mensaje
news:

lHola aTodos

Tengo un inconveniente...
no se como hacer que se evalue una celda y si la celda esta vacia no
haga
nada..
pero si la celda esta ocupada con algun valor me imprima la de la fecha
del
dia..
esto lo hace pero al cambiar de dia cambian los valores de fachas
anteriores a l dia actual.. es decir tdas la fechas quedan al dia de hoy
Ej.


Gracias por su colaboracion

ok funciona y muchas gracias


"Hernandez, Roberto" escribió:

Creo que te había entendido mal.
Lo que quieres hacer, lo lograrás pegando el siguiente código en el editor
de Visual Basic, en la hoja que necesites

'************************************************
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim lngCel As Long
If Not (Intersect(Target, Range("A1:A30000")) Is Nothing) Then
Target.Offset(0, 1).Value = Date + Time
Target.Offset(0, 2).Value = Application.UserName
End If
End Sub
'************************************************

Sólo adáptalo a tu necesidad.

"pedro gomez" escribió en el mensaje
news:
> lHola aTodos
>
> Tengo un inconveniente...
> no se como hacer que se evalue una celda y si la celda esta vacia no
> haga
> nada..
> pero si la celda esta ocupada con algun valor me imprima la de la fecha
> del
> dia..
> esto lo hace pero al cambiar de dia cambian los valores de fachas
> anteriores a l dia actual.. es decir tdas la fechas quedan al dia de hoy
> Ej.
>
>
> Gracias por su colaboracion
>

Hola Pedro

prueba lo siguiente

=SI(NO(ESBLANCO(A2));DIA(DATE());"")


Bueno espero que te sirva esta ayuda



"pedro gomez" escribió en el mensaje
news:

lHola aTodos

Tengo un inconveniente...
no se como hacer que se evalue una celda y si la celda esta vacia no

haga

nada..
pero si la celda esta ocupada con algun valor me imprima la de la fecha

del

dia..
esto lo hace pero al cambiar de dia cambian los valores de fachas
anteriores a l dia actual.. es decir tdas la fechas quedan al dia de hoy

Ej.

Gracias por su colaboracion