Screen Flickering With ScreenUpdating Set To FALSE
Jul 8, 2007
trying to copy both the values and the format of a certain range from one worksheet to another I am faced with two problems:
a) how can I copy something without having to previously add ".select"? (in the end I want to avoid any screen flickering)
b) how can I copy both the values and the format in one line (currently I have to use two lines)
Current problem:
Below you can find a code snippet which is repitetiously launched in order to copy data(+format) from many sheets to one sheet, there is other code as well (not shown here), which is launched in between (dealing with charts and pictures). In order to avoid some screen flickering I have already included the "screenupdating=false" line, and I would like to drop the usage of any ".select" in my code, as any ".select" seems to update the screen irrespectively of "application.screenupdating=false" or not.
However, as soon as I erase any ".select" command, I get a runtime-error 1004 at the SECOND run of this code snippet here. The only way to circumvent this seems to include ".select" prior to the line causing the error. Why at the second run? Well, I think, it is because after the second run, the focus might remain with a chart and not anylonger at any cell. Is there any way executing the below code without the screen-flickering?
Sub copySample(ByVal M As Integer)
Dim wksTarget As worksheet, wksNow As Worksheet
Const maxRowsConsidered=1000
Set wksTarget=Worksheets("target")
Set wksNow=Worksheets(M)
i have an excel with two sheets containing both formula and vba code... but it will flicker when i click every command button? how will i stop flickering?
In the example included, a filter is running. (Status; Watching, Column G) Whenever you type something in the sheet, the screen is flickering. When the filter isn't running, nothing unusual happens. How can I fix this? Marco
I am using the following code to turn off the screen updating during code execution Application.ScreenUpdating = False Is there anything that would still show the screen updating desptite being set to 'False'?
i have written so code that opens a spreadsheet and runs some macro from the new speadsheet and copys info over to the other spreed sheet i have Application.ScreenUpdating = FALSE at the begininnig and turn it back on at the end but it still making the screen show everything can anyone help.
Sub save() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual
ChDir "P:OFFICERiskOPTIONSOptions Control FunctionRisk Analysis" Workbooks.Open Filename:= _ "P:OFFICERiskOPTIONSOptions Control FunctionRisk Analysis emplate euribor risk module.xls"
For some reason Application.ScreenUpdating = False has stopped working for me.
For testing purposes, I have freshly opened Excel (2003 SP3) and into the brand new workbook, added the following macro:
***************** Sub Test() Application.ScreenUpdating = False For i = 1 To 40 ActiveCell = i ActiveCell.Offset(1, 0).Select Next i End Sub *****************
When I run this macro, I see the individual values being written on the screen. Stepping through the code and using Watch, I can see that Screenupdating is set to False by the first line, but as soon as the Activecell is changed, Screenupdating is reset to True.
If I turn events off by adding Application.EnableEvents = false to the start of the macro, all works as expected, however I do not want to use this "workaround" as I use event driven macros.
I've got a listbox which populates a second listbox from cells on a hidden worksheet which is done through macros. Every time I select a value in the listbox, the screen " flickers" to the hidden worksheet. I want to be able to do the whole process without that "flickering". I tried using Application.ScreenUpdating = False, but it still flickers. Have I overlooked something?
Sub GetStaffteamQuery() Application.Calculation = xlCalculationManual Dim sConnParams, sSQL As String Dim dbFile, dbPath, dbName As String ThisWorkbook.Activate Sheet3.Select dbFile = "CounsellorData.mdb" dbName = "CounsellorData" dbPath = Sheet3.Range("databaselocation").Value selectedgroup = Sheet3.ListBox1.Value If VBA.Right(dbPath, 1) <> "" Then ' if last char in dbPath has no slash.................
I have a command button on the first sheet of my workbook that opens a Userform. The following stages are simplified so as to not confuse the problem I am having. The user enters a word into a Text Box in the Userform, and when they click OK (Command Button), the second sheet of the same workbook activates, and the macro finds the word from a list in Column A. It then makes that cell the Activecell and then activates the first sheet again before closing.
The problem is that I would like all that to happen with Screen Updating turned off, so the user doesn't see the sheets change. For some reason, I can't get it to work. From my research, I have read that Screen Updating should not be turned off until after the Userform opens, or if you move the Userform around the page it will work as an eraser. So I presumed I had to add to the Search Button Private Sub SearchButton_Click() Application.ScreenUpdating = False Sheets("Sheet2").Activate '\The rest of the code follows here so that when you click the Search Button the first thing it does is turn off Screen Updating. But for some reason this doesn't work.
I also tried adding the code into the sub that calls the Userform:
Sub OpenUserform() UserForm1.Show vbModeless Application.ScreenUpdating = False End Sub
I am using this macro to open a selected folder and apply a macro to all the file in the folder. However, I don't want the user to see what is the loaded file doing. I mean, all the selected file will be formatted by the calling macro in minimize way.
I have lots of charts in a sheet "plots" which is based on data in sheet "data Summary". Sheet "plots" have the following code, which is based on the event "actiavte". At the end my main macro, I am activating sheet "plots" and all the charts are working fine. After this if I go to any other sheet in the workbook and come back to "plots", all the charts are flickering and the cursor turns to busy mode. I don't understnad why this is happening.
Private Sub Worksheet_Activate() For Each ChtOb In ActiveSheet.ChartObjects ChtOb.Chart.PlotVisibleOnly = False Next ThisWorkbook.Worksheets("plots"). Range("e1").Activate On Error GoTo Handle With ActiveSheet.ChartObjects("s21max").Chart.Axes(xlCategory, xlSecondary) .MinimumScale = Application.Average([s21high]) + -4 * Application.StDev([s21high]) .MaximumScale = Application.Average([s21high]) + 4 * Application.StDev([s21high]) + Application.StDev([s21high]) * 0.25 .CrossesAt = .MinimumScale..........................
Some of my sheets are flickering even when there is no macro running. It blinks and flashes from time to time. It does not affect the funktion in the sheet except that its annoying as hell. Some times I have to scroll down and back up to "clear" the screen from the flicker/flash effects.
I can open an old file fresh and it flickers and flashes from start. It doesnt matter if I start it with or with out macro activated.
I have a table arranged by columns into SETS of results. I am looking for a way to mark all the columns of a set as false if any one column of the set is false.
I have written a number of macros, and I typically use Application.Screenupdating = False at the start, and set it True at the end of each macro. However, I now have some big macros which call others as subroutines. This results in the screen updating for each pass thru a called macro, as the Application.Screenupdating = True statement is executed. Is there a means to repress this at the top level, or is there a better approach to take in writing code which will stop screen update for a macro, but not restart it each time the macro is called as a subroutine?
I have VBA code that hides and display columns. I have it coded in between Application.ScreenUpdating = False and Application.ScreenUpdating = True commands thinking that it will not show all the flashing and movement of columns.
I'm just looking to prevent users from using the print screen or the alt print screen buttons on the keyboard. I have this script that works if I use "39" (Right Arrow)but wont work if I use "42" (Print Screen Button).
I have a form that i am using that I would like to update at certain points in the code. I have the screenupdating set to false but it seems that this is keeping the userform from refreshing as well. Is there a way to refresh the userform without turning the screenupdating back on (because the user cannot see what is happening behind the scenes.
If I'm starting in Sub #1 and I have turned screenupdating off, then later in the procedure I call a function that also has screenupdating off (and also back on at the end of the function), will I get a slight flicker here? I'm noticing a slight one, and I can only imagine that it's where the screenupdating is being triggered again. (removing the updating from the function isn't an option, because another procedure calls the same function & needs it turned off)
The following code is part of a much larger module. In the code I've set application.
screenupdating to false; however, it resets itself within 2 lines of unrelated code.
The first message box returns "Screen Updating = False", the second returns "Screen Updating = True". I have a suspicion that this is related to the Cube Analysis Add-in
I recently installed (Excel Add-in for Analysis Services).
Application.ScreenUpdating = False MsgBox ("Screen Updating = " & Application.ScreenUpdating) Application.StatusBar = ("Setting up report... Finding you selection...") 'get the user selected text and the column in which it can be found lookupVal = Sheets("Sales Leads").TreeView1.SelectedItem.Text lookupCol = Mid(Sheets("Sales Leads").TreeView1.SelectedItem.Key, 3, 1) 'the nodekeys are always "NK" & <column> & <count of nodes> so the third value in the key is the column. MsgBox ("Screen Updating = " & Application.ScreenUpdating)
A little context: Searching this forum for "sleep", "delay" or "animation" will bring up a host of threads referring to the kernel32 function, sleep. This is a great way of putting small delays into code without the potential "synchronisation" problems of application .ontime calls or the "ugliness" of multiple-thousands looping.
My question: When I call sleep (with values in the hundreds of milliseconds) several times in a macro, it seems like the computer just "gives up" screen updating after a few (maybe 50) iterations. The macro still takes the time I'd expect, accounting for all the sleeps, but it stops showing the intermediate steps and just shows the end result after the macro ends.
Is this something to do with RAM? Is there something about calling this command too much or too frequently that kernel32 doesn't like? Is my computer a useless bag of nails and spit?
I am trying to Sum lines of info with "True or False" and "Yes and No". I would like to assign 1 to True and Yes and 0 to False and No when I total the rows. Never tried this in Excel, on Lotus and the formula does not work. I can find and replace, but I would like to be able to use a formula.
My questions is, If I don't want the function to take any action in the case of the logical test is false, what do I write in the "value_if_false" field?
I did the restart our company required and when Excel reopened it was on my laptop rather than the big screen. I run 2 screens. Excel 2003 is now so far up on the laptop screen, I cannot move it. I can barely see File, Edit, View, etc. How can I drag Excel down so I can resize it?
I would like to end a macro with a specific cell (e.g. E50) in the first cell in the upper left hand corner of the screen. How might I accomplish this?