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?
Is it possible to insert a wait command in milliseconds- minimum I have seen is a second?
View 1 Replies View RelatedI have a macro where I manually select a cell then the macro kicks in to copy and paste the contents into the Find function. From there it goes to another work sheet, clicks on a cell in column one and searches for matching cell contents. Then If false it manually goes back to the original worksheet/cell and then I input a N in the left adjacent cell. If true I enter a Y. Right now I can only run this for the specific cell the macro was recorded for. I would like to expand this.
What I would like to do create a loop in the macro that waits for my cell choice input then continues with the with the Find function. If false the macro should just loop back to the original worksheet/cell and wait for input, ie the next cell selected. However, if true a worksheet/cell is selected, a Y is input and it loops back to the original cell and waits for input.
where i can get this download for Excel?
My husband sent me this program in Excel where you type in your birthdate and not only does it give you your age to the millisecond, but it also gives you a list of traits the person has. For example, I was born on November 20, 1987 and this popped up:
Age in years 19.61
Age in months 235
Age in days 7157
Age in hours 171760
Age in minutes 10305599
Age in seconds 618335921
Age in Milli seconds 61833592095
Age in weeks 50097
You born on Friday
I have a cell that has data formatted in this style:
0:00:08:412
h:mm:ss:ms
I was wondering how I might go about writing a formula that would subtract say 2 seconds, or 400ms from that value.
the data is as follows:
Data ABC1Timestampname 21/31/2012 11:07:13abc931/31/2012 11:07:50def 41/31/2012 11:10:03a 51/31/2012 11:17:12b 61/31/2012 11:17:14a 71/31/2012 11:17:15a 81/31/2012 11:17:16a 91/31/2012 12:39:41cv 101/31/2012 13:04:00k 112/1/2012 7:26:53k 122/1/2012 7:26:56dg 132/1/2012 7:41:05Gw 142/1/2012 8:01:19cg 152/1/2012 9:32:14CB 162/1/2012 9:32:15CB 172/1/2012 9:32:15CB 182/1/2012 9:32:17CB 192/1/2012 9:32:26kw 202/1/2012 10:24:54jw Spreadsheet FormulasCellFormulaC2=SUMPRODUCT(--(MONTH(A2:A20)=1)*(YEAR(A2:A20)=2012))
if you see the cell a6 to a8 happened in millisecond same person has punched i want to count it as one only
I have done a measurement with the labview programm and I have saved it in a txt file, but I need to open it with excel to finish my work. When I open it with excel the time column shows the time that each measurement was taken, like the time in a digital clock. I need to change that form to appear the time between 2 measurements (Δt) in milliseconds (which of course has to be the same Δt every time). I've been told that I can change that, but I don't know how...
View 1 Replies View RelatedI set the time format to hh:mm:ss.000 to show also the milliseconds.
How can I get the milliseconds to another cell for making some calculations?
If the time is not less than 0.001 seconds, then multiply it by 1000, and express it in milliseconds. Otherwise: If the time is not less than 0.000001 seconds, then multiply it by 1000000, and express it in microseconds. Otherwise: multiply it by 1000000000, and express it in nanoseconds and this all has to go in a chart like this one. I was wondering what the code would be to get this
Sub MAcro3()
Function secnum(seconds)
If seconds > 0 Then
secnum = seconds
Else
Milliseconds = seconds / 1000
If Milliseconds > 0.001 Then
Value (Substitute(0.001, 0.001 * 1000))
secnum = Milliseconds
Else
Microseconds = seconds / 1000000
If Microseconds > 0.000001 Then .............
My challenge is discovering the difference in time between two rows of data that is imported with milliseconds in the time slot. In my example below I would like to see how I can subtract the time listed in line 4 from line 3 (11:18:59.566 - 11:18:59.550). When I try now I get either 1.85185E-07 or 00:00.0 or 0.000000 depending how the cell is formatted.
2012 02 17 11:18:59.050|081,999999999999~999999999999
2012 02 17 11:18:59.550|082,MCTO05222CZ0~999999999999
2012 02 17 11:18:59.566|082,1
2012 02 17 11:19:00.144|083,MCTO05246CK0~999999999999
2012 02 17 11:19:00.160|083,3
I am using a VBA macro (Using mouse clicks as inputs for neuroscience experiment?).
What the macro does is it inputs a timestamp every time a keyboard combination is used (alt+right arrow in this case).
The part of the macro which inputs the timestamp is like this:
Sub AltRight_Sub()
On Error Resume Next
Cancel = True
Cells(Rows.Count, 2).End(xlUp).Offset(1) = Format(Now, "HH:MM:SS")
End Sub
I would like the timestamp to be displayed as HH:MM:SS.00, i.e. show the milliseconds. I tried playing around with the timestamp format (changing it to = Format(Now, "HH:MM:SS.00" or = Format(Now, "HH:MM:SS.0;@")) or = Format(Now, "MM:SS.000") and I tried using = Evaluate("=NOW()") instead of = Format(Now, "HH:MM:SS".
I have 2 fields formatted like this:
1) Date: "30/10/2013"
2) Time: "10:56:39:000"
I need it to read/merge into: "30/10/2013 10:56:39:000" and then be able to be able to be converted intp seconds as a UTC Unix epoch example formula =(A1-25569)*86400.
What I am trying to do is have a macro that do a comparison between 2 cells every 100 milliseconds. One of the cell is constant updating from RTD (Real Time Data). And if its false, to nothing. However if true, I would want it to run some codes and exit the macro/procedure. I also need some way of stopping the macro at any time.
View 6 Replies View RelatedHow 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 RelatedBelow 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")
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] ....
I'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"))
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..."
Situation:
At two places in the middle of my code I need to specify a particular variable; usually this is done by some autodection-method, but whenever this fails a userform gets loaded and the user needs to do some clicks which finally specifies that variable.
Problem:
So far my code does NOT wait for the userform (and the user-input), but continues running until it fails, cause that particular variable (see above) had not been initialised with the correct value for this run.
My Question:
How can I force the code to wait until the userform has been closed? Or what other way do you usually solve that problem when wanting to use a userform in mid-code? Below you find the place where I load the User form 'UsrFormSpecifyFormat' ....
I can download my data from the web. I can set it to download every so many minutes. But, I have to select run on my vb program to complete calculations and put data in correct format/sheets. I am trying to put a delay/timer in the program so it will refresh on itself and I will not have to keep selecting program run. If I put this in program it appears to refresh in a timely manner however I do not get any data on the sheets ? I have tried the wait routine and the if now = time + routine
View 11 Replies View RelatedI'm downloading data from a database that takes sometimes up to a minute to download the data. However I have a sum function in the macro that calls the cells that the downloaded data will be in. The problem is the sum function is occuring before the data is downloaded so the sum is always 0. Any way to build in a delay timer?
is it possible to put a delay of 1 second between these 2 lines?
Private Sub cmdsave_click()
Sheet14. Range("c1000").End(xlUp).Offset(1, 0) = Sheet14.Range("c1000").End(xlUp)
1 second delay here
Sheet14.Range("c1000").End(xlUp).Offset(1, 0) = Sheet14.Range("c1000").End(xlUp)
End Sub
Hi everyone I am having a little trouble with a sheet i'm currently working on. Having exhausted what i believe to be every avenue trying to do this without VBA, i've finally had to sucomb to it as i can't see an alternative and i'm no VB expert by any means! This is what i have so far:
View 7 Replies View Relatedwhen I run a macro, it takes me to a different sheet, clicks on a cell, and then goes to data--> form to automatically generate a form so I can make a new entry. I want the macro to wait until I have completed the form, and on completion to do something else. I'd prefer it if I could indicate completion of the firm by just a keystroke, but a mouse click will do as well.
View 2 Replies View Related