Почему когда макрос находится и работает на листе пропадает возможность отменить проделанные действия:
'выставляет дату заполнения и знак "-", исправляет в двух ячейках прописные на заглавные буквы [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Target.Column = 3 Then Application.EnableEvents = False Target.Offset(, 32).Resize(, 2).ClearContents If Target Like "лак*" Then: Target.Offset(, 32) = "-": Target.Offset(, 33) = Now ElseIf Target.Column = 7 Or Target.Column = 8 Then Application.EnableEvents = False Target = StrConv(Target, 3) End If Application.EnableEvents = True End Sub
[/vba]
Почему когда макрос находится и работает на листе пропадает возможность отменить проделанные действия:
'выставляет дату заполнения и знак "-", исправляет в двух ячейках прописные на заглавные буквы [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Target.Column = 3 Then Application.EnableEvents = False Target.Offset(, 32).Resize(, 2).ClearContents If Target Like "лак*" Then: Target.Offset(, 32) = "-": Target.Offset(, 33) = Now ElseIf Target.Column = 7 Or Target.Column = 8 Then Application.EnableEvents = False Target = StrConv(Target, 3) End If Application.EnableEvents = True End Sub
Никак. Надо писать другой макрос, который будет копировать и сохранять лист до выполнения вашего макроса и в случае необходимости возвращать копию на место
Никак. Надо писать другой макрос, который будет копировать и сохранять лист до выполнения вашего макроса и в случае необходимости возвращать копию на местоSerge_007