ScreenUpdating=False doesnt stop screen flicker??

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Simon Lloyd - 23 Mar 2006 10:18 GMT

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

Reply to this Message

PY & Associates - 23 Mar 2006 10:33 GMT

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

> 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
[quoted text clipped - 19 lines]
>
> End Sub

Reply to this Message

raymond.allan@bench.com - 23 Mar 2006 11:05 GMT

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

Reply to this Message

Simon Lloyd - 23 Mar 2006 14:10 GMT

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

Regards,

Simo

Reply to this Message

Gary Keramidas - 23 Mar 2006 16:17 GMT

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

Signature

Gary

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

Reply to this Message

JMB - 24 Mar 2006 09:05 GMT

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

> 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
[quoted text clipped - 19 lines]
>
> End Sub

Reply to this Message