fecha no actualizable

Si he entendido lo que quieres hacer, esto debería servirte:

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()
Me.Name = Target
Else
Me.Range("O10") = ""
End If
Application.EnableEvents = True
End Sub

Un saludo.


Fernando Arroyo
MS MVP - Excel

"lenoque" escribió en el mensaje news:

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.

Ok Fernando.

Gracias de nuevo.

Hola Fernando:

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, 3) = Now() Else
Target.Offset(0, 3) = ""
Application.EnableEvents = True
End Sub


El código me funcionaba bien el viernes, pero al volver hoy a la oficina, ya
no me funciona.

Se te ocurre por que?

Saludos


P. D. : lo he probado en una libro en blanco y nada.

Si la línea If Not IsEmpty, etc. termina en el Else, ahí tienes el culpable de que no te funcione el código. Lo que va después del Else (Target.Offset, etc.) debe ir en la misma línea. Aquí tienes el código tal como debe ser:

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, 3) = Now() Else Target.Offset(0, 3) = ""
Application.EnableEvents = True
End Sub

Un saludo.


Fernando Arroyo
MS MVP - Excel

"lenoque" escribió en el mensaje news:

Hola Fernando:

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, 3) = Now() Else
Target.Offset(0, 3) = ""
Application.EnableEvents = True
End Sub


El código me funcionaba bien el viernes, pero al volver hoy a la oficina, ya
no me funciona.

Se te ocurre por que?

Saludos


P. D. : lo he probado en una libro en blanco y nada.

Vaya, vaya con mis manazas.

Gracias.