Unable to stop screen updating

[Cyd]

I've tried using this code, 'Application.ScreenUpdating = False' and then 'True' at the end of my code, but it doesn't stop the flashing screens. The code switches between two separate files copying and pasting values from a file to the other.

 

[cgcamal]

Hi CyD,

It would be better if you show your code.

Regards

 

[Cyd]

Here's the code.

Sub Button3_Click()
'
' Button3_Click Macro
' Macro recorded 3/14/2010 by Cy D
'
'
ActiveWindow.ActivateNext
Sheets("Data").Select
Range("O21:Q25").Select
Selection.Copy
ActiveWindow.ActivateNext
Range("D31").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.ActivateNext
Range("O8:Q9").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ActivateNext
Range("D36").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D31:D37").Select
Application.CutCopyMode = False
Selection.Copy
Range("B31").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("E31:E37").Select
Application.CutCopyMode = False
Selection.Copy
Range("B39").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("F31:F37").Select
Application.CutCopyMode = False
Selection.Copy
Range("B47").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B31:B53").Select
Application.CutCopyMode = False
Selection.Copy
Range("B2").Select
ActiveWindow.ActivateNext
Sheets("SSCSRpt").Select
ActiveWindow.ActivateNext
Sheets("Data").Select
End Sub

 

[cgcamal]

I'm not sure what you need with the code, but below is a little bit modified version.

Sub Button3_Click()

Application.ScreenUpdating = False

ActiveWindow.ActivateNext
Sheets("Data").Range("O21:Q25").Copy

ActiveWindow.ActivateNext
Range("D31").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

ActiveWindow.ActivateNext
Range("O8:Q9").Copy

ActiveWindow.ActivateNext
Range("D36").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Range("D31:D37").Copy

Range("B31").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Range("E31:E37").Copy

Range("B39").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Range("F31:F37").Copy

Range("B47").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Range("B31:B53").Copy
Range("B2").Select

ActiveWindow.ActivateNext

Sheets("SSCSRpt").Select
ActiveWindow.ActivateNext
Sheets("Data").Select

Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

Hope this helps.

Regards

 

[Cyd]

Hmmmm....it didn't stop the screen updating. I appreciate the try, thank you.

 

[cgcamal]

It's strange, is not showing screen updating for me trying with 2 open files.

How many files do you have open?

 

[ISY]

Hallo

If you do not find alternatives that will block the entire Windows code
Be careful to put at the end: LockWindowUpdate 0

Declare Function LockWindowUpdate Lib "user32" (ByVal hWnd As Long) As Long

Declare Function FindWindowA Lib "user32" (ByVal lpClassName As String, _
    ByVal lpWindowName As String) As Long
    
Sub Test()
LockWindowUpdate FindWindowA("XLMAIN", Application.Caption)
'----------------------------------------------------------
'Code....
'----------------------------------------------------------
LockWindowUpdate 0
End Sub