So say you have a loop running a large number (on the order of 1 to 10 billion loops) and you want to exit after some amount of time x, what is the most efficient way to do this?
doing something like:
Code:
stTime=timer
do while timer-stTime < x
*do stuff*
loop
is slow...
i also could approximate the time per loop and only check when the counter passes that general area...but i dont want to use a counter either
My code is meant to ensure a string in a cell begins with three letters and ends with 5 numbers. It seems to work, but how can I exit the loop and go to the message box once the boolean variable is set to true? I was hoping to avoid using labels. Also, I would appreciate any suggestions in compacting the code if possible, but without using CreateObjects".
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("h17")) Is Nothing Then Exit Sub
Dim Ls As String
Dim i As Integer, z As Integer
Dim MyString As String
Dim MyClVal As String: MyClVal = Target.Value
Dim MyBL As Boolean: MyBL = False
I have a For Each...Next loop to read and write data from one workbook to another. Now, it's possible but unlikely that a certain "wellindex" (as defined by the Column A value) occurs more than once in the source spreadsheet, and only the most recent value should be used. And now to the actual question. Currently my macro runs a check to see if the current cell's wellindex has already been used, and if so, then it warns the user of potential double-entry. What I'd like to have it do is have it check whether the current cell's wellindex has duplicates further down (e.g., using a "findnext" method), and if so, then skip to the next cell in the For...next loop. I know that I can exit a loop with "Exit For" but I don't know how to have it go straight to "Next c" without embedding everything in an If statement.
Sub DataImport()
'Define variables
Dim sourcedata, sourcename, originname, sourcedate As String 'filename variables
Dim wellindex, ch4, co2, o2, bal, adj, com As String 'data variables
Dim cor, owp, owp2 As String, overwrite As Integer 'prompting variables
overwrite = 0
'Set up the data source
originname = ActiveWorkbook.Name
sourcedata = Application. GetOpenFilename("Data Output Files (*.csv), *.csv", , "Open the source file").........................
I have a table named INPUT and a unique list named MODELLIST. I am doing a find function for each model from the modellist to the table input. I am using a autofilter to sort data and find to collect column data. Some models from the modellist may not be present in the table input. how do I check first if there is any data and exit loop if true. The following is part of the code that I am using and the error that is displayed is NEXT without FOR
Dim rFoundIt As Range
Dim iLoop As Integer
For Each model In Worksheets("sheet2").Range("modellist")
Worksheets("input").Activate
Selection.AutoFilter Field:=3, Criteria1:=model
With Sheets("input").Range("input")
Set rFoundIt = .Cells(1, 1)
For iLoop = 1 To WorksheetFunction. CountIf _
(Sheets("input").Range("input"), model)...............
This loop is to find if there is the string "Need Parent " in the range. If so the Msgbox notifies the user.
After it finds the string, the loop needs to exit- I tried to assign a counter to the MsgBox, but no go....
For i = 6 To lLrw
If Range("D" & i).Value = "Need Parent" Then
MsgBox "Stop. Parent Records Still Need To Be Created."
End If
ii = MsgBox + 1
If MsgBox > 0 Then Exit For
End If
Next i
I am creating a time tracking tool.
I would like a macro or event, etc to round an inputted time to the nearest 15 min increment upon exit of a cell.
For example, a user inputs a raw time into cell B5. Upon exit from B5 I would like the macro to round that time to the nearest 15 minutes and keep the time in cell B5. All of the cells in column B would need to have this capability.
1. How do I call teh macro upon exit from the cell
2. What is the code to grab that data from the cell in column B, round it to the nearest 15 minute increment and then put that value back into the same cell?
I am having a little trouble with a spreadsheet I am creating, the formulas and cell formatting I should be using to enable this to work.
Here goes:
in cell E3 I have a time started (e.g 12:45 pm), In F3 i have time finished (e.g 2:30 pm)
So, what i'm wanting is the time taken in G3 and also, i have the amount of units that is entered manually in H3. I would like I3 to show the time taken per unit.
I would like to call upon a function until a certain criterion is fullfilled. Then, I would like to have the result returned to me and exit (all) open functions. For value1 = 1 and value2 = 10 I expect value1*value2 = 100. Instead, the routine returnz zero. What is the logical flaw in the code below.
Function testfunction(value1, value2)
If value1 = value2 Then
'Calculating the difference
testfunction = value1 * value2
Exit Function
ElseIf value1 < value2 Then
value1 = value1 + 1
Call testfunction(matrix1, matrix2)
End If
End Function
...A..........B
11/31........2
12/31........4
1/31..........6
2/28..........8
how do i use current date and search the above list to see how many hours a employee has to current date?
Essentially I have column A that has a result that is a sum of time, I'm looking to assign a value based upon # of minutes in violation.
So basically I want less than 0:15:00 to equal 1
0:15:00 to 0:59:59 to equal 2
1:00:00 to 2:59:59 to equal 3
and greater than 3:00:00 to equal 4.
My data looks like this:
0:00:24
0:00:56
0:45:33
0:18:36
0:36:43
0:25:15
0:17:14
0:29:21
0:49:34
0:05:28
0:04:19
0:09:08
0:29:06
0:05:39
0:02:53
1:16:18
0:14:06
0:08:01
1:01:46
field A1 & B1 are variable user input. The goal is to subtract B1 from A1, take the result and divide it by 176 (a fixed number) and display the result as minutes:sec.
For example:
A1 B1
14,000 (minus) 2,200 (= 11,800 /176 =) 67
I want to result (67) to display in field C1 as 01:07 (min:sec)
I tried (A1-B1)/176 and formatted C1 to be min:sec but the result displays as 5:27 I have no idea what that number represents.
I have been looking all over and cannot find an answer on how to do this. I work for a call center that takes inbound technical support calls. We recently added a chat support option for our end users. Our chat agents can take up to 3 chats at the same time. I need to determine the total amount of concurrent chats for each agent per day as well as the total amount of concurrent time for each agent per day. Below is a sample of my data. Notice how the start time on row 5 is earlier than the end time on row 4. I need excel to count this as a concurrent chat and then calculate the amount of time that was concurrent (in this example it would be 16 minutes). Currently I have 2000 rows of data and 30 different agents.
Start_Time
End_Time
Agent Name (Num)
6/3/13 12:13
6/3/13 12:24
14
[Code] .........
how to find the elapsed time and the amount due.
G
H
I
J
K
L
M
[code].....
Is there a way to freeze the user input when it first comes up for a given amount of time. In essence, I am trying to force the user to read before clicking.
View 9 Replies View RelatedI have a 5K Excel 2010 workbook with VBA code that until yesterday, took about 30 sec. to run.
Today, after installation of WIndows7 Home Edition automatic updates, the running time has increased to about 4 min.
I have the following code below for a timer in a userform. Right now it is configured to start when a button is clicked. I would like to have it automatically start the timer after the workbook is open for more than 5 minutes but so far have been unable to get it to do so. I have tried putting the code in the workbook module but it still won't run. It also has a button to reset the timer if they need more time in the workbook and also a button for them to save and close the workbook if they are finished. I'm running Excel 2007.
VB:
Private Sub CBReset_Click()
Dim T, E, M As Double, S As Double
T = Timer
Do
E = CDbl(Time) * 24 * 60 * 60 - T 'elapsed time in secs
M = AllowedTime - 1 - Int(E / 60)
S = 59 - Round((E / 60 - Int(E / 60)) * 60, 0)
[Code] .....
I am trying to calculate the total amount of kilos for a specific date with a given time range.
As well as the average time they have been handled with in the same specifications.
Attached is a sample sheet of the info I am working with but I cant seem to get the formulas to work.
Book1.xlsx
Is it possible that a cell contains both numeric and alphanumeric data and to do calculations on that?
For example: if a cell conatain the value "10a" or "8.5b" etc. Would it be possible to have a column that gives me the hours worked (the numeric value in the cell) and a line that gives me the amount of people that are working on shift "a" (the alphanumeric value in the cell).
Is this at all possible? Or does that require VBA/Macros and stuff (in which case this is posted in the wrong part of the forum )
I need a formula to calculate the amount due based on cumulative sales once a breakpoint amount is reached.
Example:
Breakpoint:
cum sales are > 500 pay at 3%
cum sales are >1,000 pay at 2%
month/ sales/ cumul sales/ amount due
jan/ 100.00/ 100.00/ 0
feb/ 600.00/ 700.00/ 6.00
mar/ 600.00/ 1,300.00/ 18.00
and so on...until the end of year.
I tried using an if formula by could not get it to work.
Im trying to set up an active running inventory sheet where: (A)the progressive daily sheet cells reference back to the corresponding master sheet cells fluctuating the master values, (B) the same progressive daily sheet cells reference back to a cummulative totals-cell based on whether I added or subtracted inventory. I want to make a copy of the blank "sheet 2" with all of the formulas and move it to the end of the workbook each day and enter new values which will reference back to the master sheet so that I can click on a date sheet and see an individual day's values or click on the master sheet to see the fluctuating inventory on-hand and the cummulative +/- totals of all days combined. I've got a couple hundred individual cells to reference. I've tried and tried but I can't make it work. Heres what I need to do:
I need to reference individual cells from "sheet 2,3,etc" back to a corresponding cell in a master sheet. But I need the values in each cell in "sheet 2,3,ETC" to increase or decrease the corresponding cell values in the master sheet. For example: If the value in the master sheet B5 is 200. Then in sheet 2, I enter +50 in B5, I need the master sheet cell B5 to increase by 50 to 250. I also need a way to decrease the cell value in the master sheet B5 if I enter a negative value -50 in sheet 2 B5. I also want to know if I can reference the same cell values entered in "sheet 2,3,etc cell B5" back to totals columns C5 for adding inventory or D5 for subtracting inventory in the master sheet where the master totals columns would reflect cummulative totals added or subtracted. For example: if the value in sheet 2 B5 is +50, then the value in Master sheet C5 would add 50 to a progressive total. But if the value in sheet 2 B5 is -50 then the value in master sheet D5 would add -50 to a progressive total.
For the below macro.
ABCDG
CodeTotalBaseNetA1 = 20%
A110083.3316.67A2 = 10%
A2350318.1831.82A3 = 7%
A3220205.6114.39A0 = 20%
A015015030
A1 is the code, take the total(B) and calculate the base(C) on the percentage given in the G, net = B-C. for A2 and A3 it is the same process.
For A0 the total (B) is equal to Base(C) and calculate the net on the given percentage in G.
Here is the image 1 after selecting one of element in listbox and then if I click delete material (commandbutton).
It has to delete the select material in sheet 2 and has to cut the element below and move to 1 row above as shown in figure 2.
At the same time it has to delete the entire respective column and remaining column has to be cut and place in column before in sheet 3 as shown in figure 3
For that I had wrote the program which is below
Private Sub CommandButton5_Click()
Dim i, j, k, m, n As Integer
i = ListBox1.ListIndex
j = Sheet2.Cells(1, 39).Value
k = j - i
[Code] ....
When I click the delete commandbutton5 the result is as shown in figure below
In sheet2
In sheet 3
For loop is running only one time after that it got terminated. If I split the 1st for loop and execute it.it is running nice what I meant to do. If I combine another for loop or If I add msgbox at top it misbehaving. I tried with do while loop also it also doing same thing.
I have created a macro to calculate data and add it to sheets over sheet 3. It has to do this for any number of sheets above sheet 3.
Below is the code i have created i am just getting an error at runtime which i dont know how to resolve or what i have done wrong
I use this code in Column M to convert Column N
Code:
=IF(LEN(N2)>
I am looking to loop down Column N & O and replace , insert colon for both column N and O I started with is code
Code:
Sub FixTimeFormat()
Dim TimeNumcol As Integer
Dim ConvertedTimeCol As Integer
[Code]....
I am running regression statistics for several different columns of data. In order to help me analyze the data, I am organizing the output on a specified worksheet called "Best Subset." I have stored the column names of the data used in different regression calls in a range array called Reg_Labels. The Reg_Labels array may contain one, two, or sixteen column labels in one specific location (where each column label is stored in a separate cell). All possible column names are stored in the Labels array (each name is stored in a separate location). I basically need to check to see which column names were present in a particular array location in Reg_Labels. When a column name from a cell in Reg_Labels(I-1) matches a column name from Labels(K), I am placing an "X" on the designated spreadsheet to indicate which variable(s) has been used.
My For..Each Loop will not work for some odd reason, and I need to figure out why. I keep getting an error that an object is required. I need each cell in Reg_Labels(I-1) compared with Labels(K), and I thought the For..each loop would be the easiest way to do it.
I just don't understand what's going on if C is a range object and Reg_Labels(I-1) is a range object. Wouldn't this loop supposedly cycle through every cell in Reg_Labels(I-1)?
Have I messed up some sort of object reference? ....
compare two lists of data in order to identify the possible matches considering date&time and the location stored in different columns as shown in the example file attached. The range of date and time for the comparison is one hour, but it can be changed...
View 4 Replies View RelatedI am trying to subtract an amount from a cell until it reaches 0, then move and subtract from the next amount, and so on.
AmountFixed BudgetedResult53.50Subtracted 5 tell it hit zero1.30Subtracted remaining amount until zero43.8Subtracted remaining amount until zero3.8 was left over without hitting zero is good. Is there formula for this?
In a financial environment we have a calculator which uses iteration to allow for a cost being added to loan amount where the cost is based on the total loan amount. Iteration is set to 100 iterations with max change .001
On one PC the first time the calculator is opened it gives a particular (incorrect) result. If the input cells are cleared and the data re-entered, it gives the correct result. This only happens on one particular PC. Is there some other setting , other than the iteration setting, that would cause this?
I want to use a line graph to display an amount over time - that's the easy part. On the other hand, I would like to have to group the lines based on a value.
A short example:
Imagine you own 3 different stores and you're selling oranges. So your table looks like this:
http://img179.imageshack.us/my.php?image=orangeshm4.jpg
Now I'd like to have one graph (3 different graphs won't work as the rows increase -I need to select the whole column as data source):
Date on the x axis,
Oranges sold on the y axis,
and one line per store (e.g. a green one for store A, a red one for B and a blue one of C, doesn't matter).
Exit Sub alternative. I have the following
View 5 Replies View Related