record any changes by macro

[kelvin_9]

greeting to all of you

i'm new to macro, and i found below code which can record any changes in excel and that's just prefect for my workbook
however i have almost 20 macros to run, so i'm wondering is there any possible way to record after that?

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim LR As Long
Dim c As Range
Application.EnableEvents = False
With Sheets("LogSheet")
    For Each c In Target
    LR = .Cells(Rows.count, "A").End(xlUp).Row + 1
    .Cells(LR, "A").Value = Sh.Name & "!" & c.Address
    .Cells(LR, "B").Value = Now
    .Cells(LR, "C").Value = c.Value
    Next c
End With
Application.EnableEvents = True
End Sub

stay safe everyone
thanks again

 

[Misca]

If you put the

Application.EnableEvents = False

at the beginning of your other macros (or if they're always run in a sequence just the first one should be enough) that turns off the events off while they're running.

The macro you posted the code of is one of the events macros, triggered by Sheet Change.

Events macros are usually located in the Sheets or Workbook modules instead of the normal modules and the name of the macro always tells you - or at least gives you a hint - of how they're triggered.

Just make sure you turn the events back on at the end of your other macros as well so that the events macros will be triggered when needed.

 

[kelvin_9]

If you put the

Application.EnableEvents = False

at the beginning of your other macros (or if they're always run in a sequence just the first one should be enough) that turns off the events off while they're running.

The macro you posted the code of is one of the events macros, triggered by Sheet Change.

Events macros are usually located in the Sheets or Workbook modules instead of the normal modules and the name of the macro always tells you - or at least gives you a hint - of how they're triggered.

Just make sure you turn the events back on at the end of your other macros as well so that the events macros will be triggered when needed.

thanks Misca for your briefly answered

i have a command button with few macros inside, should i put this code in between my macros like:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim LR As Long
Dim c As Range
Application.EnableEvents = False
Module9.Macro001
Module9.Macro002
Module9.Macro003
Module8.Macro999
With Sheets("LogSheet")
    For Each c In Target
    LR = .Cells(Rows.count, "A").End(xlUp).Row + 1
    .Cells(LR, "A").Value = Sh.Name & "!" & c.Address
    .Cells(LR, "B").Value = Now
    .Cells(LR, "C").Value = c.Value
    Next c
End With
Application.EnableEvents = True
End Sub

 

[Misca]

Your current code runs all the other macros every time the sheet is changed while the events are on.

I'd recommend adding the EnableEvents lines to the beginning & end of the code that runs from the command button and leave the original event macro as it was originally.

Unless, of course, you want to run the other macros as well whenever the sheet is changed, that is.