Control Macro With Times
Nov 6, 2006
I am looking for code that will start a macro by counting in seconds prior to an event according to it's due time.
Cell Value A4, A12 A20,( more could be added, depending on how many workers are present at the office at the time)
So if worker A is due to start a task at 1.00 pm, then 45 seconds prior to that event the worker can be notified.
( Cell Values A4 and D4 )
Then there are multiple tasks to be performed and each task is reminded in seconds after or before the set times the events ( Act) is due to start.
The code would keep checking every 1 minute for a new list of events between the hours of 9-5 (Variable)
View 9 Replies
ADVERTISEMENT
Apr 1, 2009
I'll try to explain this the best I can. What I have here is a time study. Teachers (which are the control numbers) fill out bubble sheets, then I run them through a scanner. After dissecting the data from the scanner and formatting it to my liking i get this below.
Each teacher/staff member fills out three sheets per quarter. Each letter (bubble) counts as a 0:15 min period of time. Only K thru Q counts as billable time, which I've created a formula to count those letters (column 3). But to be countable each control number has to have three cycles 201,202,203.
So I need something that can take each control number that has three cycles and add their # of 0:15 together.
The italic row below only has one cycle for that control number, so that needs to be deleted or ignored.
Ultimately I would like the results on a separate sheet.
This is only a part of the file, there are over 1000 different control numbers.
View 14 Replies
View Related
Oct 23, 2006
I have made a userform where I calculate how long time an operation takes. If the time fe.g. is 25 hours and 24 minutes then I get the result 1:24. I have attached my userform as it looks now. If you write 540 in the bar and 550 in volume and press "Beregn" then "Norm tid + 10%" will write 1:24 and not 25:24. Is it possible to have the Userform to write 25:24 or 1day and 1 hour and 24minutes?
View 2 Replies
View Related
Feb 23, 2010
In my workbook I have about 20 sheets (less in the attached sample), and on most sheets I’d like to query data for each day and find an average value based on the time and then copy that result into another sheet. I’m not sure if I’ll need 2 macro’s for this or if one can be used.
Here’s a quick description:
Assuming that I am currently in the sheet I want to run the macro, then I will either input “1:45” or “0:45” into a popup box, or I could always simply input the 1:45 or 0:45 in the code itself. I’m flexible
1:45:
If I input 1:45, then I’d like the macro to find the first 1:45 in Column B and the value in the same row in Column F will be used in the calculation. Once 1:45 is located, then the macro moves up to find 22:45 in Column B and the value in the same row in Column F will be used in the calculation.....
View 11 Replies
View Related
Jan 26, 2009
I have a macro that I found somewhere on the net to look within a folder and list all the files of a certain file extension.
The macro to do this is in the attached example and is called 'Get_File_Names_Within_Dir_ext'.
I have created a basic userform outline, 'UF1' for the user to define:
Select File Extension
Select Folder to Search
Destination Sheet
I just don't have any idea how to sync the two.
If you type 'exe' into 'TB1_File_Extension' of 'UF1' the macro should search for '*.exe' files within the specified folder.
The search folder 'RefEdit1' box should open a windows explorer box (or some such) so that the user can select the directory in which to search for the previously specified file extension.
'TB2_Destination_Sheet' is a text box for the user to type the sheet within the workbook in which to list the files found within the specified directory.
'CB1_Find_Files' should activate the macro to find any files for the specified criteria.
There is also a Button 'Find File Types' in Sheet1 of the file which should activate the userform 'UF1'.
View 14 Replies
View Related
Jul 16, 2007
I have written two VBA programs around the same time. Both run on open and pull external data and create graphs. My problem is that I want the end user to be able to run the report multiple times by choosing the name of the macro from the Excel macro menu (i.e. Tools>Macro>Macros) but only one of the workbook macros shows up on the menu. why the other macro is not visible on this menu???
View 2 Replies
View Related
Aug 22, 2008
I have created a macro that copies the outcome of a specific calculation (that is driven by random numbers) and pastes it (as values) into a seperate table. It then recalculates the sheet, copies the new outcome and pastes it into the same table at a row beneath the previous one.
However, I would like to be able to determine how many times this loop is repeated (i.e. how many rows of outcomes will be generated) without having to change the macro each time. Is this possible? Maybe by just linking it to a cell where the number of outcomes/repeats is specified.
View 9 Replies
View Related
Oct 9, 2007
I record a macro that copy a portion of a tab to another, but when my data changes the destination get data one above the other. I think it is because instead of sending Control Donw it goes to the cell that I recorded the macro with.
I probably just need to send Control downkey....
View 12 Replies
View Related
Oct 28, 2009
the below macro choose the row number that is entered into textbox on a userform
frmUnHide
View 2 Replies
View Related
Nov 9, 2013
I am venturing off on to my 2nd Macro Formula. This one is a little different than my first and I am not sure where to start, to correct the piece I am missing. I am able to create the basics, I have added the "Last Row" formulas. The piece I am missing, when I control end & "paste", it is pasting on the last row with content. I need it to paste to the row BELOW the populated content. Here is my current smaller sample of what it is doing.
Sub Macro2()
'
' Macro2 Macro
[Code].....
View 2 Replies
View Related
Nov 15, 2007
I am trying to build a macro to insert a row or two rows under an existing row if a formula returns a '2' or a '3' in the first cell of the existing row. This is what I've come up with so far and the first bit works fine but when it comes to inserting the rows it just spirals out of control, inserting never-ending rows.
Private Sub Labels1_Click()
Columns("A:A").Select
Selection.Insert shift:=xlToRight
Range("A3:A2000").Formula = "=ROUNDUP((Q3/300),0)+1"
With Sheets("Sheet1")
' Test Condition 1
For Each c In Worksheets("Sheet1").Range("A3:A2000")
If c.Value = 2 Then
c.EntireRow.Select
Selection.Insert shift:=xlDown
End If
Next c
View 9 Replies
View Related
Apr 24, 2009
I have a Macro that I wanna run 53 times. Is this gonna be possible without running it manually that many number of times.
View 9 Replies
View Related
Mar 4, 2014
Is there any way in VBA to refer to a control in its own event procedure without referring to it by name/hard-coding?
It might be clearer to explain by a dummy code example:
[Code] ......
I'm seeking what I would need to replace Line1 with.
View 11 Replies
View Related
Feb 16, 2013
Just want to know if is possible control a popoup window through a VBScript Macro in excel? I don't know if I could click a button from a PopUp when it appears? I mean I cant go forward because a popup message appears and I dont know how take the control of it.
I mean how can the parent window take the control of the child window (popup window)
View 2 Replies
View Related
May 30, 2013
I have many Form Control Check Boxes that all link to another sheet on row 3.
I have many changes to make but only want to implement the change related to the check box.
This code works perfect when you manualy type true or false on row 3 but not if the check box makes the change.
Private Sub Worksheet_Change(ByVal Target As Range)
ThisCol = Target.Column
If Target.Row = 3 Then
RESULT = MsgBox(Cells(1, ThisCol) & " = " & Cells(3, ThisCol), vbOKOnly, "CLICK RESULTS")
End If
End Sub
Why does this not work when a check box changes the value in row 3?
View 5 Replies
View Related
Jan 11, 2008
the macro simply copies a master sheet, then re-organizes/re-sorts the raw data in the new sheet. At the end, I'm trying to set a print range to 1 page wide and inifinity pages long, figure out where the end of the fourth page is, then reset the print range to accommodate four pages. In case it matters, the macro starts with a form that allows the user to input a company ticker and name used in output.
The problem is that when I use the debugging step function (very tedious), it works perfectly. But when I run it normally, it locks up for about 30 seconds when setting the print range to 1 page wide, and cuts off the print range vertically at just over 2 pages tall. Brief explanation of a couple variables:
ColLetter is a function as follows:
Function ColLetter(ColNumber As Integer) As String
ColLetter = Left(Cells(1, ColNumber).Address(False, False), 1 - (ColNumber > 26))
End Function
ActiveSheet.PageSetup.PrintArea = "$A$1:$" & ColLetter(j + 3) & a + 7 .............................
View 2 Replies
View Related
Apr 24, 2008
Id like to run a Sub Macro a certain number of times, dependant on the amount of data provided. It could be that I need to run it say 290 times today, but 500 tomorrow.
Is there a bit of code to say, run the macro '500' times?
At the moment, if I set it to run more than it would need to it debugs and gives a compile error, procedure to large.g
View 9 Replies
View Related
Jan 9, 2008
Within the ComboBox properties, is there anyway to control after "enter" his hit, you move to the right instead of down (similar to the edit under Tools/Options)?
View 9 Replies
View Related
Jul 22, 2009
Is there a way to call a subroutine anytime any control is changed within a userform?
For example,
I have a userform that needs to go through and add/multiply almost every value in every textbox and also add together values associated with checkboxs. I need this to happen anytime a textbox value is changed or a checkbox is checked.
View 4 Replies
View Related
Jun 25, 2014
I've seen a lot of traffic around running macro's on a clock at regular intervals. But what if I want to run a Macro (Macro1) at 8:55, 9:55, 11:55, 12:55, 13:55, 16:55 and another Macro (Macro2) at the top of each of those hours? The string of times is not consecutive, so I have built a table to define the release times. At each of these times I need to run a macros, and I'm not sure where to begin.
View 3 Replies
View Related
Jan 24, 2014
At the moment I have a macro that is assigned to a button. When clicked, it creates a newline, create and copy a column in another sheet. This code works fine :
[Code] ......
What I now want to do is make a cell called "Total Number of Sites" and allow user to input data into "D3" manualy. eg if 3 sites, user input 3 in D3 so D3 = 3.
Since total number of sites = 3, Instead of clicking that button I made 3 times, I want to call the macro 3 times using a nother button.
However it doesn't work. This is what I used:
[Code] ..........
View 5 Replies
View Related
May 11, 2012
I'm trying to repeat a macro a set number of times depending on the number a person inputs into cell B3.
Here it is currently:
Columns("C:D").Select
Range("C4").Activate
Selection.Copy
Columns("E:E").Select
Range("E4").Activate
Selection.Insert Shift:=xlToRight
Range("C3:D3").Select
View 4 Replies
View Related
Apr 17, 2013
Is there a way to restrict a macro to run only a specified number of times during a user designated time period, for example run no more than 3 times during a 24 hour period?
We have a macro that runs to alert maintenance personnel if a certain temperature condition is met in machinery. This condition may happen numerous times during a day but we only need to alert the mechanics once a day if the condition is true.
View 2 Replies
View Related
May 22, 2007
I am trying to subtract from a collumn 14 seconds from the time that is in the cell. I do not want to manually enter in a formula, or copy and forula into the cell as there is a large amount of data for this. The report will be updated daily and will need to always subtract 14 seconds from the time, and the result should be populated in the cells that the time is subtracting from.
View 6 Replies
View Related
Jul 9, 2007
I have search and searched the forums, and maybe am not entering the right info to get an answer, BUT I'm trying to do the following and have no idea where to begin... Workbook2: go to Workbook1, lookup c4:n43 and enter the cell value1 (if any) into I4, Workbook2
THEN
In the row the value1 was found, go to column A, retrieve it's value and return it to D4, Workbook2
THEN
Look at row 1 Workbook1, if the column that value1 was found = Jun-Aug then return 01/2008 to B4, Workbook2.
Of course I need this to go down line by line in Workbook2 to fill in all the info.
View 3 Replies
View Related
Jul 13, 2007
I have a problem with multiple charts in one sheet. The problem is really weird because when i add the charts to the sheet where all the values are then there is no problem, but when i set the position of the charts to another sheet and specific position it gives me an error
Here is my sub for making the chart:
Sub chartFormat(FChart As Chart, Hø As Integer, Bre As Integer)
With FChart
.ChartType = xlLine
With .Parent
.Height = Hø
.Width = Bre
End With
With .SeriesCollection(1) ' THIS IS WHERE THE ERROR OCCURS
.Border.ColorIndex = 10
.Border.Weight = xlThick
End With
With .Axes(xlCategory)
With .TickLabels
.Alignment = xlCenter
.ReadingOrder = xlContext
.Orientation = xlUpward
End With
End With
are the sheets where I wanna place the chart and where I get the data.
Now if I change profVis to sag all places then it works fine and it places all the charts and make them perfect. But when profVis is there, it makes and error 1004 :
Method 'SeriesCollection' of object '_Chart' failed.
But the error first occurs after the first 2 chart have been made. I've tried switching them, so the last chart becomes the second, and it can make it. It seems as if there is a limit of 2 chart?
View 5 Replies
View Related
Apr 8, 2014
I'm looking for a formula that will calculate the difference in times between specific times while working with a 24 hr clock. Please see details below:
E3 provides the start time of 4:00
H3 provides an end time of 15:30
If an employee works betwen the hours of 0:00 (midnight) to 5:59, this is considered DIFF hours and is therefore the number I am seaking. So for the data noted above, the total DIFF hours worked is 2 hours.
View 7 Replies
View Related
Oct 9, 2012
So I have a sheet with a lot of formulas and form control buttons that have been assigned macros.
When I go to protect certain cells and lock them and the activate sheet protection, suddenly my form control buttons with the assigned macros don't work.
I still need to protect some cells with formulas and don't want to leave the whole worksheet unprotected, but in order to allow the form control button macros to run, it appears that's what I have to do....or, is there another way to do this?
View 3 Replies
View Related
Feb 20, 2014
Can Active-X control button macro be placed in a regular module, or does it always have to reside in the sheet module?
Or is the only way to accomplish this is to have the macro in the regular module being called from the button macro in the sheet module?
I somehow seem to remember a way to move/assign an Active-X ControlButton macro to a regular module, but maybe I'm wrong?
View 1 Replies
View Related
Jan 25, 2007
I have a bunch of Option Buttons in a worksheet whose properties i need to change by running a macro. For example, I created an OptionButton1 in a worksheet using control toolbox. Now I want to run a macro to change it's name, groupname, linkedcell and caption. I did this macro but it doesn't work:
Sub Label()
Dim Code1 As String
Dim Link1 As String
Dim Form1 As String
Dim GroupName1 As String
Dim Caption1 As String
Worksheets("Section1").Select
Form1 = "OptionButton1"
Code1 = "FButton1"
Link1 = "FLink1" 'Defined in worksheet
GroupName1 = "FGroup1"
Caption1 = "Choose Function 1"
With Worksheets("Section1").Form1
.Name = Code1
.LinkedCell = Link1
.GroupName = GroupName1
.Caption = Caption1
End With
End Sub
View 3 Replies
View Related