Fecha por cada celda que se modifica

Hola K.M. *VE

Hola amigo tengo varias celda Quero que cuando escribo algo en una celda que
ce coloca la fecha y hora en una celda especifica.

Ejemplo: en la celda (A2) escribo algo y sale la hora y la fecha en la
celda (D2) y esta formula voy a usarla para varias celda deferente, y cada
ves que se modifica algo en la celda (A2) que se modifica la fecha y hora en
la celda (D2) y cuando se borra el contenido de la celda (A2) que se borra
lo que tiene la celda (D2)

Si pones en la celda D2 lo siguiente
=SI(A2<>" ";AHORA();"")

Yo lo he probado y me ha salido pero he tenido que poner la celda D2 el
formato dd/mm/aaaa h:mm:ss

Saludos
Javier B.

gracias por ayuda, pero no fonación cuando lo aplica a 2 celda se cambio por
la primera fonación.


Gracias


"luka" <luka79arrobatelefonica.net> escribió en el mensaje
news:%23GP%23$

Hola K.M. *VE

Hola amigo tengo varias celda Quero que cuando escribo algo en una celda
que ce coloca la fecha y hora en una celda especifica.

Ejemplo: en la celda (A2) escribo algo y sale la hora y la fecha en la
celda (D2) y esta formula voy a usarla para varias celda deferente, y
cada ves que se modifica algo en la celda (A2) que se modifica la fecha y
hora en la celda (D2) y cuando se borra el contenido de la celda (A2) que
se borra lo que tiene la celda (D2)

Si pones en la celda D2 lo siguiente
=SI(A2<>" ";AHORA();"")

Yo lo he probado y me ha salido pero he tenido que poner la celda D2 el
formato dd/mm/aaaa h:mm:ss

Saludos
Javier B.

Hola chicos,

La solucion ofrecida por Luka no puede funcionar en principio. Es que la formula es volatil y a medida que pase el tiempo su valor
variara cambies o no cambies la celda correspondiente en la columna [A]. Me imagino que lo que se busca es introducir las fechas
como constantes (una especie de registro de actividad). Esto solo se puede manualmente o mediante macros. Probad lo siguiente:

1) Haz clic-derecho sobre el nombre de la hoja en cuestion (en una de las pestanas de la parte de abajo de la ventana de Excel).
2) Elige la opcion Ver Codigo para abrir el editor VBA.
3) Una vez en el Editor VBA, en la ventana mas grande a la derecha pega el codigo que te pongo a continuacion:

'--
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A:A")) Is Nothing _
Then Exit Sub
Dim rng As Range, c As Range
Set rng = Intersect(Target, Range("A:A"))
With Application
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
For Each c In rng
If c = "" Then c.Offset(, 3) = "" _
Else c.Offset(, 3) = Now
Next c
.ScreenUpdating = True
.EnableEvents = True
.Calculation = xlCalculationAutomatic
End With
End Sub
'--

4) Ahora pulsa Alt+F11 para volver a la hoja.
5) Prueba cambiar los valores de las celdas de la columna [A]


Saludos,
KL



"K.M. *Ve" wrote in message news:

gracias por ayuda, pero no fonación cuando lo aplica a 2 celda se cambio por la primera fonación.


Gracias


"luka" <luka79arrobatelefonica.net> escribió en el mensaje news:%23GP%23$

Hola K.M. *VE

Hola amigo tengo varias celda Quero que cuando escribo algo en una celda que ce coloca la fecha y hora en una celda especifica.

Ejemplo: en la celda (A2) escribo algo y sale la hora y la fecha en la celda (D2) y esta formula voy a usarla para varias celda
deferente, y cada ves que se modifica algo en la celda (A2) que se modifica la fecha y hora en la celda (D2) y cuando se borra
el contenido de la celda (A2) que se borra lo que tiene la celda (D2)

Si pones en la celda D2 lo siguiente
=SI(A2<>" ";AHORA();"")

Yo lo he probado y me ha salido pero he tenido que poner la celda D2 el formato dd/mm/aaaa h:mm:ss

Saludos
Javier B.

Hola KL gracias por el Macro fonciono perfecto.

KM**VE


-
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("C12")) Is Nothing _
Then Exit Sub
Dim rng As Range, c As Range
Set rng = Intersect(Target, Range("C12"))
With Application
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
For Each c In rng
If c = "" Then Range("C11") = "" _
Else Range("C11") = Now
Next c
.ScreenUpdating = True
.EnableEvents = True
.Calculation = xlCalculationAutomatic
End With
End Sub


"KL" escribio en el mensaje
news:

Hola chicos,

La solucion ofrecida por Luka no puede funcionar en principio. Es que la
formula es volatil y a medida que pase el tiempo su valor variara cambies
o no cambies la celda correspondiente en la columna [A]. Me imagino que lo
que se busca es introducir las fechas como constantes (una especie de
registro de actividad). Esto solo se puede manualmente o mediante macros.
Probad lo siguiente:

1) Haz clic-derecho sobre el nombre de la hoja en cuestion (en una de las
pestanas de la parte de abajo de la ventana de Excel).
2) Elige la opcion Ver Codigo para abrir el editor VBA.
3) Una vez en el Editor VBA, en la ventana mas grande a la derecha pega el
codigo que te pongo a continuacion:

'--
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A:A")) Is Nothing _
Then Exit Sub
Dim rng As Range, c As Range
Set rng = Intersect(Target, Range("A:A"))
With Application
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
For Each c In rng
If c = "" Then c.Offset(, 3) = "" _
Else c.Offset(, 3) = Now
Next c
.ScreenUpdating = True
.EnableEvents = True
.Calculation = xlCalculationAutomatic
End With
End Sub
'--

4) Ahora pulsa Alt+F11 para volver a la hoja.
5) Prueba cambiar los valores de las celdas de la columna [A]


Saludos,
KL



"K.M. *Ve" wrote in message
news:

gracias por ayuda, pero no fonación cuando lo aplica a 2 celda se cambio
por la primera fonación.


Gracias


"luka" <luka79arrobatelefonica.net> escribió en el mensaje
news:%23GP%23$

Hola K.M. *VE

Hola amigo tengo varias celda Quero que cuando escribo algo en una
celda que ce coloca la fecha y hora en una celda especifica.

Ejemplo: en la celda (A2) escribo algo y sale la hora y la fecha en la
celda (D2) y esta formula voy a usarla para varias celda deferente, y
cada ves que se modifica algo en la celda (A2) que se modifica la fecha
y hora en la celda (D2) y cuando se borra el contenido de la celda (A2)
que se borra lo que tiene la celda (D2)

Si pones en la celda D2 lo siguiente
=SI(A2<>" ";AHORA();"")

Yo lo he probado y me ha salido pero he tenido que poner la celda D2 el
formato dd/mm/aaaa h:mm:ss

Saludos
Javier B.