I need to incorporate some vba code which will close my workbook if no key or mouse button has been pressed for about 5 minutes. I'm told that Inkey and Timer functions are not available in VBA.
View 11 RepliesI have 12 teams(rows) and would like a cell(A21) to show the team name after determining the max value of the column(O). Is there another way to do it besides "ifs", I've maxed out the function at 7, but there are 12 teams
If I could get this figured out it would be great, and a seperate question/addition problem I would also like to do is have the cell come up the same color as it is above.
I want to substitute the following "special" characters for an underscore. i need to do 9 different characters!!! is there another way?
as you are limited to 7!!!
excel 2003!
=INDIRECT("_animal_"&SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(C2," ","_"),"/","_"),"-","_"),"&","_"),"~","_"), "(", "_"), ")", "_"), "$", "_"), ":", "_"))
I have this code :
[Code] .....
Great Timer. Have this assigned to a button to start, how can I work in a button to stop or pause this code from running?
I am trying to insert a timer into a column cell range that will countdown in hours, mins, and sec, when I enter the time. example: when I enter the "time in hr,mins,sec" it will start to countdown to Zero automatically, when I hit the enter key.
View 3 Replies View Relatedi have a works order form with 6 peoples names on. when they make a order i would like my sheet to auto sum there order. so i can see how much each person has spent. i have attached a sample.
View 3 Replies View RelatedI use an Array Constant in an IF statement, rather than using OR?
I have tried the following without success:
=IF(A1={0,1},"Something","Something Else")
Which would look like this using OR:
=IF(OR(A1=0,A1=1),"Something","Something Else")
Is it possible? If so, what's the right syntax?
Below is my code to display a seconds count down timer in a textbox.
What I want to be able to do is have another textbox where I can enter the number of seconds that the timer will count down.
I don't know how to take a value from the textbox and make it like
#12:00:15 AM#
How would I do this?
Sub warmTimer()
Dim InitialTime As Single
Dim FinalTime As Single
InitialTime = Time
FinalTime = InitialTime + #12:00:15 AM#
Do
txtTimer.Text = Format((FinalTime - Time), "s")
Loop Until (Time >= FinalTime) Or (Skip = 1)
txtTimer.Text = "Time complete"
End Sub
I want the macro to run 20 seconds after data has been input to the worksheet. See below codes
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
ActiveSheet.Unprotect
For Each cell In Range(Target.Address)
If cell.Value "" Then
cell.Locked = True
[Code]....
I have spent the last 3 hours searching/researching this and I have drawn a blank,
I would like a "timer" to calculate, from the Workbook being opened to it being closed.
I would like a message to appear saying...
"You have been active for ??? minutes"
code that I can set to save the workbook every 15 or so minutes?
View 9 Replies View RelatedI have converted some code that works like a countdown timer and is perfect for my needs apart from one small aspect - it counts down in seconds only, not minutes and seconds. The format I am looking for is X:yy where x is minutes and y is seconds, eg 180 seconds = 3:00. Is there a simple format I can add to a cell that will do the trick? EDIT:I think the Dim at the top of this code is causing the problems as I don't really want to show the date - just minutes and seconds counting down. A sample workbook is included - code is in Thisworkbook, Sheet1 and module1.
Dim CountDown As Date
Sub Timer()
CountDown = Now + TimeValue("00:00:01")
Application.OnTime CountDown, "Reset"
End Sub
Sub Reset()
Dim count As Range
Set count = [A1] ' A1 contains the number of seconds for the countdown.
count.Value = count.Value - 1
If count <= 0 Then
MsgBox "Countdown complete."
Exit Sub
End If
Call Timer
End Sub
Sub DisableTimer()
On Error Resume Next
Application.OnTime EarliestTime:=CountDown, Procedure:="Reset", Schedule:=False
End Sub
I have used the function INDIRECT in 1 of my files.
The disadvantage is that both files (source and target) have to be open.
Is there a substitute for INDIRECT that works with a closed source file?
I've been looking for an alternative to SUMIFS as I have a sheet I need backwardly compatible with Excel 2003. I've looked at SUMPRODUCT which I understand is a good alternative to COUNTIFS but does not allow for summing. I've now moved on to looking at an array formula I picked up from an internet search, but it's not working properly for me. The crux of my Excel 2007 formula is:
View 2 Replies View RelatedI'm using sumif to get the total number of OT minutes/hours rendered by an employee. In a company with 1K employees, doing so proves to be tedious as I need to rename the criteria for each formula. Is there an easier way to do this? See attachment for more details. I'm using Excel 2003.
View 2 Replies View RelatedI have a lot of data that I need to have organized out but as far as I can tell an IF statement is the only thing that could work. I work at a casino and there are about 6,000 games that I need to be able to sort through. The games are classified by sections A - Q. Each section contains anywhere from 30 - 50 banks, and each bank contains anywhere from 4 - 20 games. This is what I am trying to accomplish.
Have a drop down that lists zones A - Q. If the user chooses A, for the next column to populate with a drop down of all of the banks in A. Then for the user to choose the bank they want and then have the next colum populate a drop down with the games in A>bank1. So basically...
Zone>Bank>Machine
then once you choose the machine, for the columns to the right to auto populate the information on that game such as themes ect.
Zone>Bank>Machine>Information on that machine
I have another sheet that contains the inventory of all of the games that I am using as my "database". I am able to get this working great with IF statements, but I obviously need to be able to use more than 8. Here is my current code...
=IF(A164="A",ABankList,IF(A164="B",BBankList,IF(A164="C",CBankList,IF(A164="D",DBankList,IF(A164="E" ,EBankList,IF(A164="F",FBankList,IF(A164="G",GBankList,IF(A164="H",HBankList))))))))
Exit Sub alternative. I have the following
View 5 Replies View RelatedI am trying to make an IF statement and need to enter 12 if's. Excel will only let me go to 7. Example, if Jan is in AE11 the copy the number from B96, if Feb is in AE11 then copy number from c96. Everything works up to July.
View 2 Replies View RelatedI use a spreadsheet to keep track of stock at work.
The invoices are put into rows with the stock code and qty next to each other.
IE:
Invoice No | Stock Code | Qty | Stock Code | Qty | Stock Code | Qty | Stock Code | Qty ect..
I am currently using an If function to check all the cells for an instance of each stock item in a total of four columns.
I was creating a formula in excel yesterday that used nested IF's but I soon found out that the maximum number you can use is 7. So I did a bit of digging and found out that I would be better of using a Select Case in VB.
What I want to do is this:
=IF((SEARCH("case1",A1)),"text1",IF((SEARCH("case2",A1)),"text2",IF((SEARCH("case3",A1)),"text",...etc until I have listed every possible case and I want to do this for a range of cells A1:A1000 or however many entries I have.
I am assuming I would have to use code similar to the solution in this thread:
[url]
The only thing is I cannot translate this to what I am doing. Do I need to write a loop to go through the entire range of cells I want to check? How do I determine if a specific string is contained within a cell? Once the macro is written do I refer to it from a cell or run it from within the macro menu? Please bear with me as I am new to this and have not coded in VB since school.
For each cell, instead using a comment, I need another way to show a large amount of principaly letter texts, without using hypervincules, and ofcourse comments.
By the way, the same text I enter or modify put in this "way", I need to modify in the MSWord document and viceversa.
I appreciate the linking do not open another app, because the large amount of them I need to work with.
Dim myRow As Long
Dim myCol As String
Dim Search As String
Sheets("Master Holdings").Range("H2")
Application.Screenupdating=false
mycol="E"
For myRow=6000 To 1 Step -1
If Activesheet.Cells(myrow, mycol).Value Search Then
Rows(myRow).Delete
End If
Next myRow
Application.ScreenUpdating=True
End Sub
Is there a better way to perform this code?
im trying to figure out how to loop or if there is an alternative to an if statement in this situation here...
in cell b2 i need to say
"if the height =< 12 then return 0
if 15==21 then 1
if 24==36 then 2
if height >=39 then 3"
I have a sumproduct that evaluates # of conditions and returns the count when everything is met. But with the amount of data I have it is very slow to recalculate. I'm trying to find an alternative. I've read through a bunch of threads about different ways to avoid sumproduct but I can't get them to work. Here is the criteria I'm working with (simplified) .....
View 9 Replies View RelatedI recieved on my last thread (link below), the code provided worked fine.
Previous thread I submitted
I now have a problem with the .value attribute. When comparing Excel finds two cells unequal in '.value' then writes '.values' in changes sheet. When using =A1=B1 the result is TRUE. I don't want equal valued cells to be picked up how can I stop this? (Macro code included in previous thread if needed)
I have this excel project that captures identification numbers using a scanner. once the scanner gets the info, it will mark the date/time the person was scanned. my problem is once the info scanned is not on the list, it will continue searching till i do an escape or ctrl-break.
heres the
Private Sub cmdOK_Click()
ActiveWorkbook. Sheets("list 2007").Activate
Range("F25").Select
Do
If ActiveCell.Value <> txtID.Value Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until ActiveCell.Value = txtID.Value
ActiveCell.Offset(0, 2).Value = Now()
Range("F25").Select
txtID.Value = ""
txtID.SetFocus
End Sub
am planning to create a "constant time monitor" in the cell to help monitor expiry dates of chemicals in cell.....the expiry date is predetermined and i can pull them using lookup or something (any better options?).....
I need help in creating the constant time monitors and keep them running and also changing colours as time winds down to give a visual signal to the cell that the chemical is expiring.....am attaching the sample sheet here...
I'd like to create a countdown timer to the nearest second for a project deadline. At present I have a simple formula stating the number of days, but would like it a lot more detailed.
View 1 Replies View RelatedI need to improve this project i've created. right now this project is an Exam for our agents. You can try it first if you want. I've attached the file below.
I need putting a timer that will compute the seconds or minutes it took the agent to finish the exam. timer should start after they click "Take the ETP" button. And finally, creating a screen / a pop-up that will show the ff example.
[I]EXAMPLE:[/I]
Name of Examinee
Answer:
1. A = Correct
2. B = Incorrect
3. A = Correct
4. C = Correct
5. D = Incorrect
Testv2.xlsm
In cell A1 we have the word "one", and in B1 we have the word "two". Would it be possible to have a timer function run for 5 seconds, counting from 5 to 0, and everytime the timer reaches 0, the word in A1 is copied and pasted into cell C1, the timer resets and counts again to zero, this time when it gets to zero, it copies and pastes the word in cell B1 to C1. So it's like a flip flop function, with cell C1 changing it's value every 5 seconds. Also, this code needs to start running automatically when the sheet is opened. Is this at all possible with VBA?..
View 1 Replies View Related