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.
View 7 RepliesI have now seen a few codes, both from my instructor and on the web that is using code like this;
Application.ScreenUpdating = False
...... CODE HERE .....
Application.ScreenUpdating = False
Would there be any reason to this madness. Can't see why you wouldn't set it back to true and absolutly no reason to double false it?
Excel 2003, Windows XP SP3
I cannot solve problem 1, thus I tried workarounds, however there are also problems with them (problem 2, problem 3). I do not use .activate or .select in my code. I have recreated the problem in sample workbook.
Problem 1:
I get a blink when I call another sub from Worksheet_SelectionChange event.
Event is located in Sheet module, CellChange procedure - in seperate module
Sample ...
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)
columnNow = ((m-1)*8)+1
Application.ScreenUpdating =False
Is there a way to disable updating to the screen but have a message displayed to the user while a macro is running? Something like a userform displayed on the screen or a message in the status bar. I vaguley remember you could "print" message to the status bar in LotusScript, wondering if there is something similar in Excel.
Application.ScreenUpdating = False
"the macro is running, hang tight"
...macro code in here...
Application.ScreenUpdating = True
I have a personal.xls macro that basically does a comparison of two different workbooks. One of these workbooks ihas it's own macros (which are there in case the user wants to run them separately)...anyways my main macro calls these other macros one at a time.
It seems that at each call, the screen updates, alternating sheets and/or workbooks....
I know about the Application.Screenupdating=True / False statements....but I am not sure where I should be putting them to get the whole thing to work seamlessly.... I tried them at the start and end of my main macro, but that doesn't do the job.
i have a code (Below) using icolor that changes the colour of the cell depending on critiria, the problem i have is when i input into the sheet using a drop down box the color remains the same, without a drop down box it works but i really need to to work with the drop down boxes,
View 14 Replies View RelatedI have a macro that opens many excel documents. I used the application.screenupdating to turn off viewing these excel documents opening unfortunately they are still viewable. I counted the number of trues and falses in the module and there are 4. I believe the 2 pairs are unrelated. I keep both subs in the same module since they share functions.
Code:
Application.ScreenUpdating = False 'turbospeed
Debug.Print Application.ScreenUpdating 'shows true in break mode
I have some code that opens several different spreadsheets, copies data and pastes it to the main sheet (that contains the code)
I have added the Application.screenupdating = False line of code, but it still does not seem to freeze the screen.
The following short macro moves data into an area from where a series of graphs can either be displayed on the screen or printed. It may not be the most elegant of code and the way in which I "jump" around the hard copy option may raise some eyebrows, however except for what follows, it generally works.
When the "S"creen option is taken only the first graph is displayed, subsequent ones are not shown, (the screen does not refresh). What do I need to add to the coding to ensure each graph is shown? .....
Using the following to open a sheet
Sub Sheet1Print()
Windows("RS1.xls").Activate
Workbooks.Open Filename:=ActiveWorkbook.Path & "" & "Sheet 1.xls"
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Windows("Sheet 1.xls").Activate
ActiveWindow.Close
End Sub
I still however get a promt asking me if I want to update, and a message if i want to save the changes when I close
How do I turn of these alerts.
I need a method of updating a set of data held on tab1 from tab2 where details of one record is shown using VLOOKUP, possibly via a macro? For example:
Sheet 1 holds info on various companies - (Column headers: Name, address1,
address2, postcode, " DATE LETTER SENT")
Sheet 2 Uses a drop down menu to select the desired company and some VLOOKUP
formulas show the info from sheet1 on that one particular company. Sheet 3 There is a printable standard template letter which draws info from the record selected on sheet 2 (using standard =Sheet1!A1 formula) formated so the letter is addressed to the specific company selected. Back to: Sheet 2 - At the bottom there is a button which says 'Print' This runs a macro which selects sheet3, prints it then returns to sheet2. I need this macro to also go back to sheet1 and update the relevant record with ideally todays date (the date the letter was printed) in the "DATE
LETTER SENT" column mentioned before but can just be an 'X' to show a letter
has been printed for this company/record at some point. So in the future, by looking at sheet1 you can easil determine which companys have had letters printed against, and which havn't.
i was wondering if there is a way to display a pop up message that a stating that the spreadsheet is currently updating.
What i have is a macro running on Auto_Open when workbook is opened. I have switch off the screen updating. What i want now is for maybe to have a pop up stating the spreadsheet is updating. Setting screen updating to false means that my excel freezes for a few seconds. I think users might be thinking that excel has crashed and therefore would like to include the message that the spreadsheet is updating its information.
I think it may be somthing to do with the loop?
The macro is run off a toggle button which then selects a range of cells for the source data for my chart.
Sub ChartDynamic()
Dim x As Integer
Dim r1, r2 As Long
Application.ScreenUpdating = False
'H30 is the Period number
x = Range("H30").Value
Range("W:W").Select
Selection.Find(What:=x, After:=ActiveCell, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True).Activate........................
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 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.
View 4 Replies View RelatedI'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).
View 5 Replies View RelatedI 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.
View 2 Replies View RelatedI have a workbook in excel 2003 which I had been running the following macros (listed below). We recently upgraded to Excel 07, and neither are working. When I try to run them, the "debug" option highlights the following line in the sort macro "Range("A2:z" & lastcell).Sort key1:=.Columns(1)". This is driving me crazy, as the macros worked perfectly under the older version of Microsoft. Is there an issue with crossfunctionality between '03 and '07'.
Private Sub Worksheet_change(ByVal target As Excel.Range)
If target.Column = 1 Then
ThisRow = target.Row
startRow = 1
i = 1
Set ws = ActiveSheet
maxRow = Cells.SpecialCells(xlLastCell).Row
maxCol = Cells.SpecialCells(xlLastCell).Column
ActiveSheet.UsedRange.Interior.ColorIndex = xlNone
Do While i
The IF function has the following syntax:
IF(logical_test,value_if_true,value_if_false)
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?
View 4 Replies View Relatedwhat size monitor do you use?
I'm thinking about upgrading my 17" to a 23" monitor so I can see more cells without zooming
Anyone currently use a 23" for Excel?
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?
View 3 Replies View RelatedI cant get my screen to go all the way to the top of the page! & there is a 2 inch or so area at the bottom of the worksheet as well. I need to get my display back to normal!
View 4 Replies View Relatedmacro minimizes excel takes a print screen of the application behind excel then pastes it in a word document then maximizes excel screen again
View 9 Replies View RelatedI have never created a splash screen and would like to do so now, I am in the VB editor, i have inserted a userform, i would like to insert my company logo on to the userform, how do i do this?
View 9 Replies View RelatedI have a large workbook with about 20 worksheets that I have used for several years without problems. Recently, I have been getting strange behavior when the screen refreshes. The biggest problem is that I get images of other worksheets covering my current worksheet when I change a cell. I can make them go away by scrolling or flipping between another worksheet and back. I have tried using manual recalc and this has helped somewhat but I can still get the images sometimes. The workbook contains VBA that performs various tasks on every worksheet (unlock, update pivots...) but these have been in there forever. There is also one piece of code that performs advanced filtering. I can only think there was something changed with a security patch, but I wanted to know if anyone else has had this issue and might be able to provide some advice on how to prevent it.
View 9 Replies View RelatedI have the following cells set up in a worksheet.
I have the following formula set for each of the cells -
=IF(U5>1,U5-1,T5)
=IF(T5>1,T5-1,S5)
=IF(S5>1,S5-1,R5) and so on.
Serial No.1 Serial No.2 Serial No.3 Serial No.4 Serial No.5 Serial No.6
#VALUE!#VALUE! #VALUE! #VALUE! 1005 1006
The T5, S5 and R5 are (I thought) the "False" value which would be returned, but all I am getting (if for example T5 was blank) is #Value
Is it possible through code to disable calculating when typing characters such as: 3 / 4 ? I need to accomplish this without a dependency on cell format. I am looking to have the above example value as "3 / 4"
View 6 Replies View Related