ScreenUpdating=False doesnt stop screen flicker??
 

I have posted some code below, it sorts the sheet within the rang
everytime a value is changed putting the highest value at the top, th
trouble is when it performs this the screen flickers while it
calculating no matter what i do!!!!, is there a way of doing what
need easier? or is there a way of stopping the flicker because it look
horrendous?

Regards,
Simon

Private Sub Worksheet_Calculate()
Range("A2:V40").Select
With Application
.ScreenUpdating = False
Selection.Sort Key1:=Range("T2"), Order1:=xlDescending
Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
_
DataOption1:=xlSortNormal
.ScreenUpdating = True
End With

End Su

--
Simon Lloy
-----------------------------------------------------------------------
Simon Lloyd's Profile: http://www.excelforum.com/member.php...nfo&userid=670
View this thread: http://www.excelforum.com/showthread.php?threadid=52560

ScreenUpdating=False doesnt stop screen flicker??
 

You may have left out a "dot" in front of screenupdating (two places) please

"Simon Lloyd"
wrote in message
...

I have posted some code below, it sorts the sheet within the range
everytime a value is changed putting the highest value at the top, the
trouble is when it performs this the screen flickers while its
calculating no matter what i do!!!!, is there a way of doing what i
need easier? or is there a way of stopping the flicker because it looks
horrendous?

Regards,
Simon

Private Sub Worksheet_Calculate()
Range("A2:V40").Select
With Application
ScreenUpdating = False
Selection.Sort Key1:=Range("T2"), Order1:=xlDescending,
Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom,
_
DataOption1:=xlSortNormal
ScreenUpdating = True
End With

End Sub


--
Simon Lloyd
------------------------------------------------------------------------
Simon Lloyd's Profile:
http://www.excelforum.com/member.php...fo&userid=6708
View this thread: http://www.excelforum.com/showthread...hreadid=525605

ScreenUpdating=False doesnt stop screen flicker??
 

Try putting the
Application.ScreenUpdating = False before the "WITH" statement and turn
back on after the "WITH"

ScreenUpdating=False doesnt stop screen flicker??
 

I have tried the ScreenUpdating before the with but it made no change
the flicker is there every time it sorts!

Regards,

Simo

--
Simon Lloy
-----------------------------------------------------------------------
Simon Lloyd's Profile: http://www.excelforum.com/member.php...nfo&userid=670
View this thread: http://www.excelforum.com/showthread.php?threadid=52560

ScreenUpdating=False doesnt stop screen flicker??
 

i don't see any flashing, just the updated data after it sorts

Private Sub Worksheet_Calculate()
Application.ScreenUpdating = False
Range("A2:V40").Sort Key1:=Range("T2"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Application.ScreenUpdating = True
End Sub

--


Gary


"Simon Lloyd" wrote
in message ...

I have tried the ScreenUpdating before the with but it made no change,
the flicker is there every time it sorts!

Regards,

Simon


--
Simon Lloyd
------------------------------------------------------------------------
Simon Lloyd's Profile:
http://www.excelforum.com/member.php...fo&userid=6708
View this thread: http://www.excelforum.com/showthread...hreadid=525605

ScreenUpdating=False doesnt stop screen flicker??
 

Your problem may have been selecting a range before turning off screenupdating.


"Simon Lloyd" wrote:


I have posted some code below, it sorts the sheet within the range
everytime a value is changed putting the highest value at the top, the
trouble is when it performs this the screen flickers while its
calculating no matter what i do!!!!, is there a way of doing what i
need easier? or is there a way of stopping the flicker because it looks
horrendous?

Regards,
Simon

Private Sub Worksheet_Calculate()
Range("A2:V40").Select
With Application
.ScreenUpdating = False
Selection.Sort Key1:=Range("T2"), Order1:=xlDescending,
Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom,
_
DataOption1:=xlSortNormal
.ScreenUpdating = True
End With

End Sub


--
Simon Lloyd
------------------------------------------------------------------------
Simon Lloyd's Profile: http://www.excelforum.com/member.php...fo&userid=6708
View this thread: http://www.excelforum.com/showthread...hreadid=525605