fecha no actualizable

A mí no me hace eso: si pongo cualquier cosa en C1, aparece la fecha y hora en K2, y al borrar C1, K2 se queda vacía. Lo único que puede estar pasando es que C1 sea de una hoja y K2 de otra ¿?
Un saludo.


Fernando Arroyo
MS MVP - Excel

"lenoque" escribió en el mensaje news:

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.

He comprobado con un libro en blanco y en efecto, funciona.

Creo que el problema es que en la plantilla para le que te pedí el código,
c1 es celda combinada con d1, f1, g1 y h1.
Despues de comprobar que con las celdas sin combinar el código funciona
perfectamente, las he combinado y lo que pasa es lo que ya te comenté:
aparece la fecha al introducir un calor en c1, pero no desaparece al borrar
ese valor. Supongo que será un problema de rango.


Gracias

Al ser C1 una celda combinada, hay que cambiar un poco el código:

Private Sub Worksheet_Change(ByVal Target As Range)
If Application.Intersect(Me.Range("C1:H1"), Target) Is Nothing Then Exit Sub

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

Un saludo.


Fernando Arroyo
MS MVP - Excel

"lenoque" escribió en el mensaje news:%

He comprobado con un libro en blanco y en efecto, funciona.

Creo que el problema es que en la plantilla para le que te pedí el código,
c1 es celda combinada con d1, f1, g1 y h1.
Despues de comprobar que con las celdas sin combinar el código funciona
perfectamente, las he combinado y lo que pasa es lo que ya te comenté:
aparece la fecha al introducir un calor en c1, pero no desaparece al borrar
ese valor. Supongo que será un problema de rango.


Gracias

Gracias,

Todo O. K.


"Fernando Arroyo" escribió en el mensaje
news:
Al ser C1 una celda combinada, hay que cambiar un poco el código:

Private Sub Worksheet_Change(ByVal Target As Range)
If Application.Intersect(Me.Range("C1:H1"), Target) Is Nothing Then Exit
Sub

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

Un saludo.


Fernando Arroyo
MS MVP - Excel

"lenoque" escribió en el mensaje
news:%

He comprobado con un libro en blanco y en efecto, funciona.

Creo que el problema es que en la plantilla para le que te pedí el código,
c1 es celda combinada con d1, f1, g1 y h1.
Despues de comprobar que con las celdas sin combinar el código funciona
perfectamente, las he combinado y lo que pasa es lo que ya te comenté:
aparece la fecha al introducir un calor en c1, pero no desaparece al

borrar

ese valor. Supongo que será un problema de rango.


Gracias

Hola de nuevo Fernando:

De una respuesta tuya, copié el código para que excel tome renombre
etiqueta de hoja, con el valor de una celda. En estos momentos, me resulta
muy útil.
La questión sería ahora, concatenar el código de fecha no actualizable
que ya me resolviste, con el cambio de nombre de hoja, es decir, que esto
sucediera a la vez, y en dependencia una misma celda.


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$Q$10" And Not IsEmpty(Target) Then Me.Name Target
End Sub

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

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

Los he colocado a continuación, pero me da error al declarar dos veces
el mismo inicio. He probado con Else, pero no doy más de sí.
Nota: La celda O10 está combinada con P10.


Espero no estar siendo demasiado pesado.


Saludos y gracias.