screen updating = false

[cmefly]

hi,

i've got a macro that unhide and hides sheets.

i'm using:

Application.ScreenUpdating = False
Application.EnableEvents = False

at the beginning....but when i run the macro i can still see the sheets being unhidden....

any way to not see this?

Marc

 

[Smitty]

so what do i do if i have to jump between worksheets?

You don't need to, that's the point.

 

[Jaafar Tribak]

See if this works for you :

1- Add this API declaration at the top of your module :

Declare Function LockWindowUpdate Lib "user32.dll" _
(ByVal hwndLock As Long) As Long

2- Replace the line Application.ScreenUpdating with the API as follows :

Sub bringitalltogether()
'this macro brings all macros for collection together
 
[B][COLOR=Red]LockWindowUpdate Application.hwnd[/COLOR][/B]
Application.EnableEvents = False
 
 
Sheets("HIDDEN FINAL DVC").Visible = True
Sheets("HIDDEN FINAL DEF_VAR").Visible = True
Sheets("HIDDEN FINAL RATE RIDERS").Visible = True
Sheets("HIDDEN NETWORKING").Visible = True
Sheets("HIDDEN CONNECTING").Visible = True
 
 
IMPORT_DVC
IMPORT_PROPOSED_RR
IMPORT_DEF_VAR
IMPORT_networking
IMPORT_connecting
 
copyalldatatomainsheet
 
 
Sheets("HIDDEN FINAL DVC").Visible = False
Sheets("HIDDEN FINAL DEF_VAR").Visible = False
Sheets("HIDDEN FINAL RATE RIDERS").Visible = False
Sheets("HIDDEN NETWORKING").Visible = False
Sheets("HIDDEN CONNECTING").Visible = False
 
[COLOR=Red][B]LockWindowUpdate 0&[/B][/COLOR]
Application.EnableEvents = True
 
End Sub

Do the same with the other Macro.

 

[kpark91]

See if this works for you :

1- Add this API declaration at the top of your module :

Declare Function LockWindowUpdate Lib "user32.dll" _
(ByVal hwndLock As Long) As Long

2- Replace the line Application.ScreenUpdating with the API as follows :

Sub bringitalltogether()
'this macro brings all macros for collection together
 
[B][COLOR=Red]LockWindowUpdate Application.hwnd[/COLOR][/B]
Application.EnableEvents = False
 
 
Sheets("HIDDEN FINAL DVC").Visible = True
Sheets("HIDDEN FINAL DEF_VAR").Visible = True
Sheets("HIDDEN FINAL RATE RIDERS").Visible = True
Sheets("HIDDEN NETWORKING").Visible = True
Sheets("HIDDEN CONNECTING").Visible = True
 
 
IMPORT_DVC
IMPORT_PROPOSED_RR
IMPORT_DEF_VAR
IMPORT_networking
IMPORT_connecting
 
copyalldatatomainsheet
 
 
Sheets("HIDDEN FINAL DVC").Visible = False
Sheets("HIDDEN FINAL DEF_VAR").Visible = False
Sheets("HIDDEN FINAL RATE RIDERS").Visible = False
Sheets("HIDDEN NETWORKING").Visible = False
Sheets("HIDDEN CONNECTING").Visible = False
 
[COLOR=Red][B]LockWindowUpdate 0&[/B][/COLOR]
Application.EnableEvents = True
 
End Sub

Do the same with the other Macro.

Or you could completely lock it lollll.
You could still put Application.ScreenUpdating I think? or would it just be the same result except it's completely locked?

 

[Michael M]

What Kpark and Smitty are saying is, if your called macros have the correct sheet references within them, all you would need in the "bring them together " Sub would be

Sub bringitalltogether()
Application.EnableEvents = False
    IMPORT_DVC
    IMPORT_PROPOSED_RR
    IMPORT_DEF_VAR
    IMPORT_networking
    IMPORT_connecting
Application.EnableEvents = True
End Sub