Improve macro (9 macros)
Hello,
Please can you help me with this macro.
I want to put these 9 macros together in one to make it more efficient, I would also like to include a command that activates the macro when opening the book.
Regards,
Ferdinan
Sub DatePast()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
ActiveSheet.DisplayPageBreaks = False
Range("B16:B3000").Formula = "=Date_Past"
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
ActiveSheet.DisplayPageBreaks = True
Application.CutCopyMode = False
End Sub
Sub DateNew()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
ActiveSheet.DisplayPageBreaks = False
Range("C16:C3000").Formula = "=Date_New"
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
ActiveSheet.DisplayPageBreaks = True
Application.CutCopyMode = False
End Sub
Sub DueWeek()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
ActiveSheet.DisplayPageBreaks = False
Range("D16:D3000").Formula = "=Due_Week"
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
ActiveSheet.DisplayPageBreaks = True
Application.CutCopyMode = False
End Sub
Sub DueDate()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
ActiveSheet.DisplayPageBreaks = False
Range("E16:E3000").Formula = "=Due_Date"
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
ActiveSheet.DisplayPageBreaks = True
Application.CutCopyMode = False
End Sub
Sub Item()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
ActiveSheet.DisplayPageBreaks = False
Range("F16:F3000").Formula = "=IT"
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
ActiveSheet.DisplayPageBreaks = True
Application.CutCopyMode = False
End Sub
Sub StatusArea25()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
ActiveSheet.DisplayPageBreaks = False
Range("G16:G3000").Formula = "=Status_Area25"
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
ActiveSheet.DisplayPageBreaks = True
Application.CutCopyMode = False
End Sub
Sub Year()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
ActiveSheet.DisplayPageBreaks = False
Range("H16:H3000").Formula = "=Year"
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
ActiveSheet.DisplayPageBreaks = True
Application.CutCopyMode = False
End Sub
Sub IDnumber()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
ActiveSheet.DisplayPageBreaks = False
Range("J16:J3000").Formula = "=ID"
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
ActiveSheet.DisplayPageBreaks = True
Application.CutCopyMode = False
End Sub
Sub Section25()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
ActiveSheet.DisplayPageBreaks = False
Range("K16:K3000").Formula = "=Section25"
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
ActiveSheet.DisplayPageBreaks = True
Application.CutCopyMode = False
End SubHi!
What do you mean by "put them together".
I think it's better to post in french, that is the language which is used here.
It's also recommended to upload a file, to permit US to understand better what you're saying and to test it on réal data file, just a sample is enough.
Good luck!
Bonsoir,
Salut Saloum !
La plupart des lignes sont inutiles, une fusion des 9 procédures ne devrait pas en principe dépasser 10 lignes de code. Mais il faut savoir ce que représentent les noms utilisés dans les formules (du moins pour ma part je ne fais rien tant que je ne sais pas où je vais, d'autant que si l'on met des formules je tiens à vérifier que l'on ne peut pas s'en passer
Cordialement.
Salut Maréchal,
Je l'ai dit de charger un fichier tout en espérant qu'il va essayer de poster en français sinon, je peux traduire si nécessaire.
Un fichier, c'est meilleur
Hello,
Tomorrow I attach a file, good night.
Greetings,
Ferdinan