Eventos desactivados
Publicado por Inmarcesible (60 intervenciones) el 22/02/2021 16:44:43
Buenas!
Tengo eventos en una hoja de Excel que, de repente, han dejado de funcionar.
En este caso, son eventos que ocurren con cambios (change y selection.change). Consiste en que ocurra un evento en un hoja, cuando se cambia algo en otra hoja.
Pues bien, es parecido a cuando se desactiva el cálculo automático de fórmulas. Ningún evento me funciona ni se hace automáticamente.
¿Qué puede estar ocurriendo y cómo lo soluciono?
Estoy seguro de que el código está bien:
Muchas gracias!
Tengo eventos en una hoja de Excel que, de repente, han dejado de funcionar.
En este caso, son eventos que ocurren con cambios (change y selection.change). Consiste en que ocurra un evento en un hoja, cuando se cambia algo en otra hoja.
Pues bien, es parecido a cuando se desactiva el cálculo automático de fórmulas. Ningún evento me funciona ni se hace automáticamente.
¿Qué puede estar ocurriendo y cómo lo soluciono?
Estoy seguro de que el código está bien:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = True
With ThisWorkbook.Sheets("Registro-Histórico de cambios").Range("A" & Rows.Count).End(xlUp)
.Offset(1, 0).Value = Environ("Username")
.Offset(1, 1).Value = Replace(Target.Address, "$", "")
.Offset(1, 2).Value = ThisWorkbook.Sheets("Auxiliar").Cells(1, 1).Value
.Offset(1, 3).Value = Target.Value
.Offset(1, 4).Value = Date
.Offset(1, 5).Value = Time
End With
Application.EnableEvents = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = True
ThisWorkbook.Sheets("Auxiliar").Cells(1, 1).Value = Target.Value
Application.EnableEvents = True
End Sub
Muchas gracias!
Valora esta pregunta
0
