J
javaeboy
I posted a question a few days ago, and Brian was nice enough to answe
quickly. Unfortunately, his answer didn't seem to do what I needed.
The middle code either didn't work, or does something else.
I want to go to Manual Calculation when I open my workbook (That par
works) I need the workbook to recalculate on Close (that part als
works). I need employees to use their respective worksheets containe
in that workbook, but I don't want any calculations on the workbook t
occur until/unless they choose another worksheet in that workbook.
There are really only 3 worksheets out of 60+ that I need t
automatically recalculate if they are selected. In this case MTD
Individual & Daily. The rest of the worksheets are named afte
individual employees. (Each has their own worksheet to enter thei
sales information into). Each of these worksheets has a number o
calculations that don't really need to be done until the user i
finished entering ALL their information. I don't want to have to hav
them hit F9 when they are done. They need to enter their sale
information on their page and then be able to either go to one of th
following worksheets: Individual, MTD or Daily and see how thei
numbers look for the Day, Month or as an Individual for the month.
The code Brian gave me is to put into ThisWorkbook module is:
'-----------------------------------------------------
'- set to manual on opening
Private Sub Workbook_Open()
Application.Calculation = xlCalculationManual
End Sub
'-----------------------------------------------------
'- calculate single sheet when sheet changed
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Sh.Calculate
End Sub
'-----------------------------------------------------
'- set to automatic on closing
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.Calculation = xlCalculationAutomatic
End Sub
'-----------------------------------------------------
I need it to recalcualte either if the user chooses a differen
worksheet than the one he/she opens to (so something in the OpenEven
of each worksheet, or at least when they open one of these
worksheets. So maybe on the OpenEvent of these 3 worksheets MTD
Individual or Daily.
I hope that makes sense. Thank you in advance..
quickly. Unfortunately, his answer didn't seem to do what I needed.
The middle code either didn't work, or does something else.
I want to go to Manual Calculation when I open my workbook (That par
works) I need the workbook to recalculate on Close (that part als
works). I need employees to use their respective worksheets containe
in that workbook, but I don't want any calculations on the workbook t
occur until/unless they choose another worksheet in that workbook.
There are really only 3 worksheets out of 60+ that I need t
automatically recalculate if they are selected. In this case MTD
Individual & Daily. The rest of the worksheets are named afte
individual employees. (Each has their own worksheet to enter thei
sales information into). Each of these worksheets has a number o
calculations that don't really need to be done until the user i
finished entering ALL their information. I don't want to have to hav
them hit F9 when they are done. They need to enter their sale
information on their page and then be able to either go to one of th
following worksheets: Individual, MTD or Daily and see how thei
numbers look for the Day, Month or as an Individual for the month.
The code Brian gave me is to put into ThisWorkbook module is:
'-----------------------------------------------------
'- set to manual on opening
Private Sub Workbook_Open()
Application.Calculation = xlCalculationManual
End Sub
'-----------------------------------------------------
'- calculate single sheet when sheet changed
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Sh.Calculate
End Sub
'-----------------------------------------------------
'- set to automatic on closing
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.Calculation = xlCalculationAutomatic
End Sub
'-----------------------------------------------------
I need it to recalcualte either if the user chooses a differen
worksheet than the one he/she opens to (so something in the OpenEven
of each worksheet, or at least when they open one of these
worksheets. So maybe on the OpenEvent of these 3 worksheets MTD
Individual or Daily.
I hope that makes sense. Thank you in advance..