fecha no actualizable

"lenoque" escribió en el mensaje news:eZgy5K$

Gracias Fernando:

Funciona muy bien.

Lo que ya sería demasiado es que la celda en C, se comportara igual que
con la segunda parte del argumento condicional del mi anterior mensaje, es
decir, que si no hay valor, no se anote nada. Con lo que conseguría que si
se hace un apunte erróneo, al borrar la celda en B, tambien se borrara la
fecha en C.

Es posible esto con VBA?.

Sí :-)

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Then Exit Sub

Application.EnableEvents = False
If Not IsEmpty(Target) Then Target.Offset(0, 1) = Now() Else Target.Offset(0, 1) = ""
Application.EnableEvents = True
End Sub

Un saludo.


Fernando Arroyo
MS MVP - Excel

Gracias Fernando.

Tu ayuda ha resultado perfecta.



"Fernando Arroyo" escribió en el mensaje
news:#IAJKa$
"lenoque" escribió en el mensaje
news:eZgy5K$

Gracias Fernando:

Funciona muy bien.

Lo que ya sería demasiado es que la celda en C, se comportara igual

que

con la segunda parte del argumento condicional del mi anterior mensaje, es
decir, que si no hay valor, no se anote nada. Con lo que conseguría que si
se hace un apunte erróneo, al borrar la celda en B, tambien se borrara la
fecha en C.

Es posible esto con VBA?.

Sí :-)

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Then Exit Sub

Application.EnableEvents = False
If Not IsEmpty(Target) Then Target.Offset(0, 1) = Now() Else
Target.Offset(0, 1) = ""
Application.EnableEvents = True
End Sub

Un saludo.


Fernando Arroyo
MS MVP - Excel

Hola fernando:

Estoy intentando aplicar tu código en otra hoja, para que se comporte de
forma ligeramente distinta.
En vez de afectar a toda una columna, me interesa actuar solo en la celda C1
(en donde introduzco el valor) y en la k2, en donde quiero que me aparezca
la fecha.

He probado de modifcar el rango, pero no me funciona.
Me puedes echar una mano?.


Gracias.

Fernando Arroyo" escribió en el mensaje
news:#IAJKa$
"lenoque" escribió en el mensaje
news:eZgy5K$

Gracias Fernando:

Funciona muy bien.

Lo que ya sería demasiado es que la celda en C, se comportara igual

que

con la segunda parte del argumento condicional del mi anterior mensaje, es
decir, que si no hay valor, no se anote nada. Con lo que conseguría que si
se hace un apunte erróneo, al borrar la celda en B, tambien se borrara la
fecha en C.

Es posible esto con VBA?.

Sí :-)

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Then Exit Sub

Application.EnableEvents = False
If Not IsEmpty(Target) Then Target.Offset(0, 1) = Now() Else
Target.Offset(0, 1) = ""
Application.EnableEvents = True
End Sub

Un saludo.


Fernando Arroyo
MS MVP - Excel

"lenoque" escribió en el mensaje news:

Hola fernando:

Estoy intentando aplicar tu código en otra hoja, para que se comporte de
forma ligeramente distinta.
En vez de afectar a toda una columna, me interesa actuar solo en la celda C1
(en donde introduzco el valor) y en la k2, en donde quiero que me aparezca
la fecha.

He probado de modifcar el rango, pero no me funciona.
Me puedes echar una mano?.


Gracias.

Prueba con esto:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$C$1" Then Exit Sub

Application.EnableEvents = False
If Not IsEmpty(Target) Then Me.Range("K2") = Now() Else Me.Range("K2") = ""
Application.EnableEvents = True
End Sub


Un saludo.


Fernando Arroyo
MS MVP - Excel

Gracias Fernando:

Me va bien, pero curiosamente, no acaba de comportarse igual que el otro
código. cuando borras c1, la fecha permanece escrita en K2.

Disculpa las molestias.


"Fernando Arroyo" escribió en el mensaje
news:OSAp#
"lenoque" escribió en el mensaje
news:

Hola fernando:

Estoy intentando aplicar tu código en otra hoja, para que se comporte de
forma ligeramente distinta.
En vez de afectar a toda una columna, me interesa actuar solo en la celda

C1

(en donde introduzco el valor) y en la k2, en donde quiero que me aparezca
la fecha.

He probado de modifcar el rango, pero no me funciona.
Me puedes echar una mano?.


Gracias.

Prueba con esto:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$C$1" Then Exit Sub

Application.EnableEvents = False
If Not IsEmpty(Target) Then Me.Range("K2") = Now() Else Me.Range("K2") ""
Application.EnableEvents = True
End Sub


Un saludo.


Fernando Arroyo
MS MVP - Excel