K
K1KKKA
am using the following code to pull information from a sheet and paste
into another, wanted to stop the screen updating as the macro runs and
have applied the
Application.ScreenUpdating = False - even though this is here it is
still flickering, have i missed something within the statement, i use
it on other macros and have no issues with it??????
Steve
Sub aamonupdate()
ActiveSheet.Unprotect
Application.ScreenUpdating = False
Range("k4").Select
Sheets("Mon").Select
Application.Run "openall"
Selection.AutoFilter Field:=7
Selection.AutoFilter Field:=4
Selection.AutoFilter Field:=7, Criteria1:="="
Selection.AutoFilter Field:=4, Criteria1:="<>"
Range("C11:C500").Select
Selection.Copy
Sheets("Load Input Sheet").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Application.ScreenUpdating = False
Range("M4").Select
Sheets("Mon").Select
Application.Run "openall"
Selection.AutoFilter Field:=7
Selection.AutoFilter Field:=4
Selection.AutoFilter Field:=7, Criteria1:="="
Selection.AutoFilter Field:=4, Criteria1:="<>"
Range("D11500").Select
Selection.Copy
Application.ScreenUpdating = True
Application.ScreenUpdating = False
Sheets("Load Input Sheet").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Range("O4").Select
Sheets("Mon").Select
Range("B11:B500").Select
Application.CutCopyMode = False
Selection.Copy
Application.ScreenUpdating = True
Application.ScreenUpdating = False
Sheets("Load Input Sheet").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Range("P4").Select
Sheets("Mon").Select
ActiveWindow.LargeScroll ToRight:=1
Range("W11:W500").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Load Input Sheet").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Sheets("Mon").Select
Selection.AutoFilter Field:=7
Selection.AutoFilter Field:=4
Sheets("Load Input Sheet").Select
Application.ScreenUpdating = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True _
, AllowFiltering:=True
End Sub
into another, wanted to stop the screen updating as the macro runs and
have applied the
Application.ScreenUpdating = False - even though this is here it is
still flickering, have i missed something within the statement, i use
it on other macros and have no issues with it??????
Steve
Sub aamonupdate()
ActiveSheet.Unprotect
Application.ScreenUpdating = False
Range("k4").Select
Sheets("Mon").Select
Application.Run "openall"
Selection.AutoFilter Field:=7
Selection.AutoFilter Field:=4
Selection.AutoFilter Field:=7, Criteria1:="="
Selection.AutoFilter Field:=4, Criteria1:="<>"
Range("C11:C500").Select
Selection.Copy
Sheets("Load Input Sheet").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Application.ScreenUpdating = False
Range("M4").Select
Sheets("Mon").Select
Application.Run "openall"
Selection.AutoFilter Field:=7
Selection.AutoFilter Field:=4
Selection.AutoFilter Field:=7, Criteria1:="="
Selection.AutoFilter Field:=4, Criteria1:="<>"
Range("D11500").Select
Selection.Copy
Application.ScreenUpdating = True
Application.ScreenUpdating = False
Sheets("Load Input Sheet").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Range("O4").Select
Sheets("Mon").Select
Range("B11:B500").Select
Application.CutCopyMode = False
Selection.Copy
Application.ScreenUpdating = True
Application.ScreenUpdating = False
Sheets("Load Input Sheet").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Range("P4").Select
Sheets("Mon").Select
ActiveWindow.LargeScroll ToRight:=1
Range("W11:W500").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Load Input Sheet").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Sheets("Mon").Select
Selection.AutoFilter Field:=7
Selection.AutoFilter Field:=4
Sheets("Load Input Sheet").Select
Application.ScreenUpdating = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True _
, AllowFiltering:=True
End Sub