Propiedad celda cambio o modificación VBA
Hola, buen día
Estoy tratando de hacer un procedimiento para que cuando cambie el valor de una celda, agregue la fecha a la celda que está una columna antes, este es el código pero no me lo hace:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.EnableEvents = False
If Target.Row >= 21 And Target.Row <= 25 Then
ActiveSheet.Unprotect
Target.Offset(0, -3).Value = Now()
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
Application.EnableEvents = True
End Sub
Estoy tratando de hacer un procedimiento para que cuando cambie el valor de una celda, agregue la fecha a la celda que está una columna antes, este es el código pero no me lo hace:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.EnableEvents = False
If Target.Row >= 21 And Target.Row <= 25 Then
ActiveSheet.Unprotect
Target.Offset(0, -3).Value = Now()
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
Application.EnableEvents = True
End Sub
1 respuesta
Respuesta de Elsa Matilde
1
En primer lugar esto solo se ejecutará si modificás manualmente la celda, no se el cambio se debe al resultado de una fórmula.
Ahora verificá si la rutina se encuentra en el objeto ThisWorkBook (o este libro).
La rutina funciona bien. Está evaluando que si ingresas un dato en las filas 21 a 25 la fecha se colocará 3 col delante (ajustá la línea del -3 a -1 si debe quedar 1 col antes.)
Ahora verificá si la rutina se encuentra en el objeto ThisWorkBook (o este libro).
La rutina funciona bien. Está evaluando que si ingresas un dato en las filas 21 a 25 la fecha se colocará 3 col delante (ajustá la línea del -3 a -1 si debe quedar 1 col antes.)
