Stop the screen from Flashing

crimlet

Board Regular
Joined
May 2, 2002
Messages
136
I have the following code

Dim Message, Title, Default, MyValue
Range("c6:g17").Select
Selection.Clear
Call boarders
Do
Message = "Please enter type of expenditure"
Title = "Please enter type of expenditure"
Default = ""
Range("f4") = InputBox(Message, Title, Default)
MyValue = Range("containing2")
Sheets("Edited Iprocurement lookup").Select
Selection.AutoFilter field:=2, Criteria1:="*", Operator:=xlAnd
Selection.AutoFilter field:=3, Criteria1:="*", Operator:=xlAnd
Selection.AutoFilter field:=2, Criteria1:=MyValue, Operator:=xlAnd
Range("A1:B66").Select
Selection.Copy
Sheets("User requested").Select
Range("C5").Select
ActiveSheet.Paste
Call boarders
If Range("c6") = "" Then
If MsgBox("You have entered an incorrect description, do you want to continue?", vbRetryCancel + vbQuestion) = vbRetry Then
Range("c6") = ""
Else
Range("C6") = "Quit By User"
End If
Else

End If
Loop Until Range("c6") <> ""
Range("C6:D18").Select
Selection.Sort Key1:=Range("D6"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("C5").Select


Is it possible to stop the screen from flicking from the sheet user requested to Iprocurment edited ?

Thanks in advance
 

Excel Facts

Excel motto
Not everything I do at work revolves around Excel. Only the fun parts.
Try adding these two lines...<pre>

Application.ScreenUpdating = False '########################

Dim Message, Title, Default, MyValue
Range("c6:g17").Select
Selection.Clear
Call boarders
Do
Message = "Please enter type of expenditure"
Title = "Please enter type of expenditure"
Default = ""
Range("f4") = InputBox(Message, Title, Default)
MyValue = Range("containing2")
Sheets("Edited Iprocurement lookup").Select
Selection.AutoFilter field:=2, Criteria1:="*", Operator:=xlAnd
Selection.AutoFilter field:=3, Criteria1:="*", Operator:=xlAnd
Selection.AutoFilter field:=2, Criteria1:=MyValue, Operator:=xlAnd
Range("A1:B66").Select
Selection.Copy
Sheets("User requested").Select
Range("C5").Select
ActiveSheet.Paste
Call boarders
If Range("c6") = "" Then
If MsgBox("You have entered an incorrect description, do you want to continue?", vbRetryCancel + vbQuestion) = vbRetry Then
Range("c6") = ""
Else
Range("C6") = "Quit By User"
End If
Else

End If
Loop Until Range("c6")<> ""
Range("C6:D18").Select
Selection.Sort Key1:=Range("D6"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("C5").Select

Application.ScreenUpdating = True '########################</pre>

Tom

_________________
Found a solution? If so, please post again so members of this board can spend their time helping others. Better still, edit your topic(intitial post), by tagging on a word or phrase such as, "Problem Solved", or "Resolved". Thanks for being courteous!
This message was edited by TsTom on 2002-05-10 00:01
 
Upvote 0

Forum statistics

Threads
1,213,534
Messages
6,114,185
Members
448,554
Latest member
Gleisner2

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top