If I run this in the editor sometimes it works and sometimes it does not.
If I run this in editor with F8, stepping through the code, it does work.
I can only guess that enough time is passing during the F8 presses that the page can load. But is that not the purpose of adding the wait code?
[Code] ....
When I'm manually formatting a spreadsheet I'll almost always freeze the header row for ease of navigation and to keep the headers in view. However when I attempt to do this in my code it seems no matter how careful I am it inevitably freezes the page in some peculiar location which bears no relation to the instructions I give it. Even knowing this annoying fact I'll take the extra step of turning off freeze first to clear any existing situation before setting my prefered freeze. ... and it still blows up in my face
Sheets("RTN").Select
ActiveWindow.FreezePanes = False
Range("F4").Select
ActiveWindow.FreezePanes = True
Is there any fool proof way to freeze rows?
Is it possible to load the page breaks for a range into an array without looping. Just checking, because looping is taking about 20 seconds or so.
Doesn't Work.
[Code] .....
Works but takes a second
[Code] ......
I'm in the process of continuing to build this babe (very slowly, as I have limited programming knowledge), and I wondered if there was a way to modify this code to make it refresh the data page if a server's page fails to load.
Part of my code is something like this, the first part being just the pseudo log on script.
Especially when there are over 50 pages to grab, the chances of one of the pages failing to load is VERY high, and this macro stops at the "Refreshbackground=False" command.
Is there a way to trigger a "refresh" once it fails?
I need to do a macro that will open a search window, the user would select a folder and it will search for a .csv file within it. Then after locating the file, it would automatically load it into a specific sheet in the workbook.
View 9 Replies View RelatedWhen I view a sheet under Page Break Preview, it shows the Page numbers in the centre of the Page. While I am aware that it would not print the page number I was wondering if there is an option to remove/hide the page numbers.
View 3 Replies View RelatedAccording to what I've read so far in this forum, this will be cakewalk for you guys to find out of (or at least so I hope.. :-) I don't know much about Excel, and what I do know is just logic sense, and a bit of common math.
My problem is in a sheet I use for my personal economy. (I'm a neatfreak, and a nerd...) The logic of my sheet is that I seperate the different type of monthly expenses, and sum them individually. The way I do this is that the A Column identyfies an expense (where 1 = rent, 2 = food, 3 = gas etc) while the C column is the expense itself, Example:
A B C
On account 500
1 rent -200
2 food -20
3 gas -10
2 food -10
Sum expenses -240
On account 260
I then use this formula to discern them:
{=ABS(SUM(IF(A$4:A$30=X;C$4:C$30;0)))}............
I looked around the forum for a answer but none are quite the same. AA2 contains a date. AN2 contains a Pass or Fail based on =IF(AH4<60,"FAIL",IF(AJ4<60,"FAIL",IF(AL4<60,"FAIL","PASS"))).
Now even if those above fields are empty and no date is in AA2 "PASS" still shows up in AN2. I used =$AA$5="" to make AN2 turn white if AA2 had no date in it. I am unable to copy the formatting along the rest of the AN column without it all refering to just AA2. Is there a way to make it copy and correct the formating like it does with formulas? I had planned to due the same thing with the AO column that contains "DUE" if the person has not taken a test in 180 days. =IF(AA2<=(TODAY()-180),"DUE",IF(AA2<=(TODAY()-150),"CLOSE",IF(AN2="FAIL","RETEST","")))
My nested loop works as intended without If statements, ie it counts non blank cells in a series of 17 ranges (this loop is called the CountRangesOnEachRow loop) AND then drops down a row and repeats (this loop is called the RowNo loop). The problem is that once my first If statement occurs the RowNo loop fails and it stops at the first row.
The first If statement is designed to do the following:
1. Tests to see if A4 has data. If yes, copy cell contents (pupil's name) to Sheet(2).Range("StudentName")
2. If empty skip the countranges loop and move down a row to A5.
3. Cells A4:A35 need to be tested for data in this manner.
I've included a sample workbook & code with the IF statement comment blocked so you can see what it should do AFTER it tests the A column for data. The macro should end after row 6 as A6:A35 are all blank.
Consider two columns (these columns are part of UNIT TESTing workbook).. result column shows the result of test case executed on respective date
DAte Result
17/1/2008 PASS
18/1/2008 FAIL
18/1/2008 PASS
19/1/2008 FAIL
22/1/2008 PASS
22/1/2008 PASS
How do i calculate using VBA statements :
1. the number of PASSED TEST CASES that are excuted today.
2. Number of all PASSED TEst cases till yesterday.
How do I pause my macro until the user selects a chart in the worksheet? Or Keep prompting a message to the user till he selects the chart and when a chart is selected run the macro.
Step 1: Check if a chart is Selected
Step 2: If yes, run the macro
Step 3: If no, prompt the user with a msgbox of Retry/Cancel.
Step 4: If the user selects Retry, wait till he makes a selection.
Step 5: If the selection is a chart, run the macro. If the selection is not a chart prompt the same msgbox again and keep looping it till he selects a chart.
Sub test5()
Dim chtSelected As Chart
Dim UserResponse As Integer
On Error Resume Next
Set chtSelected = ActiveChart
[Code] .....
I have a very long code with multiple functions and operations i.e. it calculate many fields. The normal running time varies from 2 minutes to 30 minutes depending on the data size.
Can any one tell me a way so that I can put a kind of status bar to show the progress or estimated time left? Basically, during operation it looks like excel is hanged and not responding but infact its not.
What is the simplest way to display a "Please Wait.." message during the execution of a macro.
Tried the WshShell.Popup but did not work.
how do I code in vba for it to wait until the user has checked the file that has been made make a few amendments and then when done one would click OK or resume for the program to carry on with the rest of the code.
View 2 Replies View RelatedI have a range of data that contains can contain either a pass or fail. what I require at the bottom of this range is a formula that says 'if any one of the range = fail then "test fail", else "test pass"'
View 2 Replies View RelatedPer the attached, I have a set of questions which must be answered by true or false. the answer to all is true. I need a pass/fail indicator on the userform to give a user realtime view based on percentage of true answers. threshold can be assumed as 80% where below it is reflected as fail
Capture_Excel Forum Query.JPG
I have a test log with PASS/FAIL. These results are logged in Excel under the column heading PASS/FAIL.
How do I count the number of PASS or FAIL using VBA macro?
So far I have tried:
[Code].....
This one did not work either:
[Code] .......
the error is at the name = Range("PASS/FAIL").Select line.
My thought process: once I had selected a range, I can now freely "look" at each string in a cell in that range. Not correct I guess.
All this is currently done in the active sheet.
I have one workbook that im running a userform. From this form i open another form that is contained in another previous opened workbook. On this second form i can update cell values in the second workbook. During this updating macro i am saving the workbook. using thisworkbook.save. Though For some reason when it hits this line. It must be doing a Save As and putting the workbook in mydocuments. There is nowhere in the code that references mydocuments.
Though if i open the workbook on its own (withough calling from another workbook) and load the userform the code runs fine and saves the workbook in its correct place.
Below is the code I currently have implemented. The first line of code creates a .csv file. The third line of code opens that file. I couldn't put the third line right after the first because it would try to open the file before it was finished being created. Hence, the second line which waits for 5 seconds. Is there a way, either in the CMD or VBA, that I can have it wait until the first line of code has completed?
VB:
Shell "cmd.exe /c M:" & "&& cd DesktopExcel Project" & Command
Application.Wait Time + TimeSerial(0, 0, 5)
Workbooks.Open("M:DesktopExcel ProjectInfo.csv")
Is it possible to insert a wait command in milliseconds- minimum I have seen is a second?
View 1 Replies View RelatedI've a userform style progress bar which stops updating if i use application.wait within my code like this:
UserForm1.FrameProgress.Caption = "0%"
UserForm1.Label1.Caption = "Starting Process.."
UserForm1.LabelProgress.Width = 0
UserForm1.OkButton.Visible = False
DoEvents
Application.Wait (Now() + TimeValue("0:00:01"))
been checking out 1/2 a second wait instead of a 1 sec wait
and would like to know it you can do this
timer thing
Dim x As Single
x = Timer
While Timer - x < 0.5
Wend
more than once
it works the first time and then it sort of skips it
or is there ANOTHER way of having a delay of less than a second?
If the addition of two cells (a1 and b1) do not add up to more than 10 then I would like cell c1 to display the word FAIL
I've tried the following
If (a1 + b1 ) < 11 then c1 = "FAIL"
But it doesn't like it
I have a source data tab laid out like this:
QC Date.......Policy#......Associate.......Pass/Fail......1stError.....2ndError.....3rdError
QC'ers can enter up to 3 different error types committed on a single failed policy, thus the reason for 3 error fields, even though all 3 fields offer the same value list selections (ie ErrorTypeA, ErrorTypeB, ErrorTypeC......). A policy, whether it has one error or three errors assigned, should only count as a single fail against the associate.
My problem comes into play when attempting to pivot the data. I would ideally like to see the pivot table in this format:
(filter)Associate
(filter)QC Date
...
ErrorTypeA.......Count
ErrorTypeB.......Count
ErrorTypeC.......Count
ErrorTypeD.......Count
Where the "count" is the total number of occurances of that error type across all three error fields - 1stError, 2ndError, 3rdError.
But since 1st/2nd/3rd error fields are different columns, I am unable to do a single count.
My pivot ends up looking something like this:
1stError.....ErrorTypeA.......Count
1stError.....ErrorTypeB.......Count
1stError.....ErrorTypeC.......Count
1stError.....ErrorTypeD.......Count
Then repeated for the 2ndError and 3rdError fields.
It's a worksheet for testing milk tanks. The issue is as follows:
Column F = Chart Error/This can be either a positive or negative whole number
Column G = Tolerance/This is always a whole positive number
Problem is I want Column H = Status to say "Pass" or "Fail" based on meeting the Column G number. But it's only the number itself (not whether it's Positive or Negative) that matters in determining the P/F status.
Examples:
Column F= -20
Column G= 15
Column H= Fails
or
F= 20
G= 15
H= Fails
The formulas I've been coming up with will show one or the other as Failing but not both + or - numbers if they fail to meet the G Column tolerance number.
I am going to use excel for test cases. I can creat a drop down list with the selections "pass", "fail", "not run". That isn't a problem using the data validation toolbar. However I would like to basically color the cell (test case) with a certain color based on the drop down selection.
for instance:
Pass = Green
Fail = Red
Not run = Orange.
I'm using a pre-made spreadsheet from my stock broker (Interactive Brokers) that retrieves and displays real-time quotes, and allows one to retrieve historical stock data, among other things. I've created a little macro within it to try and automate some common tasks I do everyday - basically I want to retrieve a year of daily stock quotes for "stock 1" from IB's servers, then have the macro wait for the retrieval to be done and written to the spreadsheet (takes anywhere between 10 and 30 secs). After that's all done, then I want to do the same for "stock 2". Then when that's done, the macro proceeds to go ahead and do some calcs on stock1 and stock2. The problem is after my stock1 data request, the macro just keep on trucking through to the next commands while stock1's data retrival is still going on.
so things are getting all balled up. How can I get my macro to wait until stock1's data retrieval is all done?
My question is if it's possible to change the code and make it work faster. When I change the ComboBox I wait about 1-3 seconds for about 40 items in the Worksheet. I still didn't test it with more items. Here's the
Private Sub ComboBox1P2_Change()
If ComboBox1P2.ListIndex = 0 Then
ComboBox2P2.Style = fmStyleDropDownCombo
ComboBox2P2.Value = sign
ComboBox2P2.Enabled = False
ComboBox3P2.Clear
ComboBox3P2.Enabled = False
ComboBox1P2.SetFocus
ElseIf ComboBox1P2.ListIndex 0 And ComboBox1P2.ListIndex -1 Then
ComboBox2P2.Style = fmStyleDropDownList
ComboBox2P2.Enabled = True...........
I have a workbook with alot of results that employees will need to wait for results to show.
While it Calculates.. can we get a cell to show "Please Wait - Searching" so they know its actually doing something for them?
When clicking the button on my userform, it goes through a quite complex process of changing the views in several pivot tables that are linked to an "report" sheet, which has all the figures the user needs in a neat format.
Changing these pivot tables takes up to a minute, so I wanted a userform, called "frmwait", to pop when clicking the command button. It would say "Generating Your Report - Please Wait". At the same time, the initial userform, which is called "frmroutedashboard", would be hidden.
This does not happen - the "frmwait" userform shows, however the "frmroutedashboard" does not hide.
Is this because the code I composed uses the values on the "frmroutedashboard" to generate the view, and it cannot hide until the report is completed? If so, there must be a way around this. Anyone know how?
The initial code so far looks like this:
frmroutedashboard.hide
Application.Cursor = xlWait
Application. ScreenUpdating = False
Application.DisplayStatusBar = True
Application.StatusBar = "Updating Route Dashboard..."
I thought if it looked like this, it would be sufficient. Unfortunately, the file is too large to attach, so I hope the code suffices.
frmroutedashboard.hide
frmwait.show
Application.Cursor = xlWait
Application.ScreenUpdating = False
Application.DisplayStatusBar = True
Application.StatusBar = "Updating Route Dashboard..."