See attached file illustrating exactly what I'm trying to do.
I won't repeat the exact same things I wrote in the file, but the Summary is that I need to first make such that only certain check boxes can checked at any one time, then make the command button run certain macro(s) depending on which boxes are checked.
I have created checkbox for all the rows of items in sheet1 so that they will be able to select and then copy to sheet2.
example:
If a checkbox at row 1 in sheet1 is selected, the entire row (which the checkbox represent) will be copy into sheet2 (which would have the same column headers).
If a checkbox at row 2 in sheet1 is not selected, nothing will be done there.
If a checkbox at row 3 in sheet1 is selected, then the entire row of 3 in sheet1 will be copy again into the next avalible row in sheet2 (in this case, row 2 in sheet2)
.
.
.
There will be other informations at the beginning (top) of each excel worksheet which does not need to be touch at all. Only the data portion (starting column C row 16 in sheet1 and column A row 16 in sheet2) will need to have the above function.
I'm verrry new to editing VBA code and I've been trying to figure out how to send a column of data ("Min Data" AB3:AB21 from "Sheet1") to a worksheet ("F4" - Min) and sending another column of data ("Max Data" AC3:AC21 from "Sheet1") to a different worksheet ("F4" - Max) by using only the one button ("Record Data" from "Sheet1"
I've been trying to figure out ways to edit the VBA in "Module 1" to make this work
Can anyone help me out here? If what i'm asking for isn't clear enough, just let me know and i'll try to explain in more detail.
I have created a individual tracker spread sheet in each user system and on the spread sheet I have inserted 2 buttons in 1st sheet. when employee wants to take a break he has to click on the log out button and when he came back he needs to click on login button. I have another sheet named "timings" and I have created 2 columns, one is login and another is logout. What I need is when user click on the login button, the system time and date to be auto update under login column and when he clicks on logout button the system time and date to be auto update under logout column.
View 14 Replies View RelatedI want to display a progress bar for when those macros are run. I've read many different ways to do this when I search it on google but I would prefer to use the cleanest method where I can simply call the appropriate procedure for each different macro, without changing any of the other code of the progress bar.
View 9 Replies View RelatedContext: I have a spreadsheet that contains a list of employee names and their certifications. I want to be able to assign a button to each employee in column B with a macro that is able to zip files from a folder that contains that employees name.
The following code assigns buttons to each employee in column B. At the moment the code I have is able to assign the macro "Zip" to each button.
[Code] .....
Now, this Zip macro is able to zip the file for the employee "Anthony Tran". However I need it to be able to recognise which employee's button I've clicked and search the same files as above except with that employees name instead of "Anthony Tran".
If it makes things easier, the code for creating buttons for each employee is able to name that button as the employees name that it represents.
The user form consists of 2 pages. The second page can only be accessed from a control button on the first page (much like the next button on a wizard). I have disabled this button. I have 4 check boxes on the page and want the button to be enabled when any one of these is checked.
I managed to figure out the code for enabling the button any one box is checked:
After a user has selected the required option buttons, is there a way to disable them without deleting, so that they are still visible (for history tracking) but not modifiable?
'09-- Check metrology info
If Worksheets(" Split Lot Info").MetrologyYes.Value = True Then
Worksheets("Split Lot Info").Shapes("MetrologyYes").Enabled = False
Worksheets("Split Lot Info").Shapes("MetrologyNo").Enabled = False
If Worksheets("Split Lot Info").MetrologyNo.Value = True Then
nResponse = MsgBox("Are metrology steps set up?", vbOKOnly, "Missing information")
Worksheets("Split Lot Info").Shapes("MetrologyYes").Enabled = False
Worksheets("Split Lot Info").Shapes("MetrologyNo").Enabled = False
End
End If
End If
I have numerous hyperlinks in cells on a worksheet, next to these I have checkboxes. I am looking for a macro that will check if the boxes are checked and if not ignore them and if so run a certain macro.
View 6 Replies View RelatedContext: I have a spreadsheet that contains a list of employee names and their certifications. I want to be able to assign a button to each employee in column B with a macro that is able to zip files from a folder that contains that employees name.
The following code assigns buttons to each employee in column B. At the moment the code I have is able to assign the macro "Zip" to each button.
VB:
[COLOR=#333333]Dim Btn As Button[/COLOR]
[COLOR=#333333]Dim rng As Range[/COLOR]
[COLOR=#333333]For I = 2 To RowCount + 1[/COLOR]
[COLOR=#333333]With Worksheets("Sheet1")[/COLOR]
[COLOR=#333333]Set rng = .Range("B" & I)[/COLOR]
[COLOR=#333333]Set Btn = .Buttons.Add(rng.Left, rng.Top, rng.Width, rng.Height)[/COLOR]
[Code]....
The following code is my Zip macro:
VB:
[COLOR=#333333]Sub Zip()[/COLOR]
[COLOR=#333333]Dim strDate As String, SavePath As String, sFName As String[/COLOR]
[COLOR=#333333]Dim oApp As Object, iCtr As Long, I As Integer[/COLOR]
[COLOR=#333333]Dim vArr, FileNameZip[/COLOR]
[COLOR=#333333]Dim FName() As Variant[/COLOR]
[Code]...
Now, this Zip macro is able to zip the file for the employee "Anthony Tran". However I need it to be able to recognise which employee's button I've clicked and search the same files as above except with that employees name instead of "Anthony Tran".
If it makes things easier, the code for creating buttons for each employee is able to name that button as the employees name that it represents.
I am dealing with several very large spreadsheets using VBA to do various things. I found that my code worked well, but was taking a long time to run. The biggest time consumer was my use of the AutoFilter features. I have since turned calculations to manual before my code runs and set it back to auto when my code is done running. What are the potential consequences of my turning calculations to manual and then back to auto?
View 2 Replies View RelatedI need to create a button in an Excel workbook that does the following.
1) Asks for password
2) Uses that password to unlock the workbook
3) Runs a macro that does the following
a) Shows sheet tabs turned off via unchecking the box in options
b) Unhides 3 hidden tabs
My command buttons are moving location after I run a macro. I have a worksheet with 5 command buttons from the forms toolbar. When the macro is run, another command button is moved into the cell that the macro ends in, how can I stop this?
View 7 Replies View RelatedI have a code in my workbook that Runs another ceo on close. It is:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
EmailOFA
End Sub
What I would like to do is have a checkbox that if checked then this code will NOT run. Can this be done?
In a perfect world what would happen is that once an e-mail was sent once then the checkbox would automatically be checked so that there is no possibility of OFA being e-mailed twice with the same info.
I have a spreadsheet I use to track reprimands for our employees. Reprimand Counseling Spreadsheet Example.xlsm. Previously, I had to read the entire reprimand in order to determine the policy violation(s) and then manually enter those reasons into the cell. We have a new standardized form, where the manger selects the reason(s) for the reprimand. I wanted a drop down box that I could select multiple reasons for the reprimand and have all the reasons appear on the same line, as well as being able to remove a reason from the line by selecting it again (so I wouldn't have to start over, in case I selected the wrong reason). I was able to find this code, on [URL] .... to accomplish that.
Same Cell Add & Remove
I also need to be able to manual edit some of the reasons. For example "Missed Meal Period(s) #___". I will need to be able to edit that item to read "Missed Meal Period(s) #2". I was able to find this code, on the same website as the previous code, to accomplish that. However, this code includes a line break, which I do not want.
Edit Same Cell
[Code] .....
Since I need the code to work on each worksheet (CIVI - SOCR), will I have to enter the code on each worksheet or is there a better way to accomplish this? Is there a way to combine these two codes, while simultaneously removing the line break? I need to select multiple reprimand reasons in the same cell and edit the reasons, if necessary. I've read and reread that article for hours, but I can't get it to work.
code below whould return value "a" to specified range(s) The cells are formatted Marlett, 10pt, black, bold, center. Should return a nice tick mark to the specified range if selected shape has value of 1. I double chk'd the name of the shape referred to in code and it is correct Yet value of "a" is not returned, though the chkBox is "ticked". What else can I check?
Option Explicit
Sub cv_ReviewCheckBoxes()
Dim wbBook As Workbook
Dim wsNotesLoose As Worksheet
Dim wsCoinRolled As Worksheet
Dim wsCoinLoose As Worksheet
Dim wsSummary As Worksheet
With Application
.Calculation = xlCalculationManual
.DisplayAlerts = False
. ScreenUpdating = False
End With.........................
I am wondering how to create a macro that will untick boxes as well reset drop down menus.
I have 3 input boxes on my sheet. They are T10, T12, T14. Right now I click with mouse, but is it a way that I can use tab key to jump from one box to another?
View 2 Replies View RelatedI'm at my wits end trying to work out why I'm getting a circular reference when this code runs:
Private Sub TextBox1_Change()
Cells(Rows.Count, "K").End(xlUp).Offset(1).Value = Range(TextBox1.LinkedCell).Value
With Range("K5").Resize(40, 1)
.FormulaR1C1 = "=OFFSET(" & Cells(Rows.Count, "K").End(xlUp).Address(True, True, xlR1C1) & ",-(ROW(RC)-ROW(R5C)+1),0,1,1)"
.Value = .Value
End With
End Sub
The circular reference cell is K29. I have an "X" in K46 after which all the values in TextBox1 are copied.
I have some code to put a GIF animation into a web browser on a userform. This works fine - on its own. However, once the GIF has loaded I want to run a whole bunch of code in the background. If I run the code all at once, the userform appears but the picture doest show - but when I place a breakpoint between loading the userform and the main sub routine of my code - the GIF loads and the animation is shown all the time my code is running in the backgorund.
View 4 Replies View RelatedThis is basic but can't seem to work it out.
I have 2 text boxes and 1 label. I want -to add the numbers together I enter into the text boxes without using a button to start the sub.
Label1.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
I have a userform that has 3 option buttons (1, 2 & 3) each of these option buttons have a Label next to them, Label (1, 2,& 3) next to that I have 3 textboxes that are formatted for currency. Each label represents a dollar value $10.00, $20.00 & $30.00
OptionButtom Label TextBox
1 Month Member x $10.00 $.00
2 Month Member x $20.00 $.00
3 Month Member x$30.00 $.00
When one of the OptionButtons is selected I want the corresponding label dollar value to be multiplied by the OptionButton and that value placed in the TextBox
i.e. if OptionButton 1 is select the TextBox would have a value of $10.00
if OptionButton 2 is selected then TextBox would have a value of $40.00
if OptionButton 3 is selected then TextBox would have a value of $90.00
Lastly, if 1 Option Button is selected and then changed to another of the 2 buttons, the TextBox value would reset to $.00
I am trying to create a command button in Microsoft Excel (Office 2000) that enables me to reset the check box status for a worksheet from checked to unchecked. The worksheet contains approximately 50 check boxes and is meant to be reused. Is this possible? If so, how can I program it to do so?
View 2 Replies View RelatedI am currently running VBA when ComboBox1 is selected ComboBox2 shows specific information based on lists in the spreadsheet.
Now I would like it if ComboBox2 showed "Business Improvement" then ComboBox3 will show information set in that list.
Also, my submit button isn't working and I can't find out what's wrong using the debugger
I have some code sat in worksheet_change (or worksheet_pivotupdate):
If ActiveSheet.PivotTables("PivotTable2").PivotFields("Area").CurrentPage = "(All)" Then
ActiveSheet.PivotTables("PivotTable3").PivotFields("Area").CurrentPage = "(All)"
End If
If ActiveSheet.PivotTables("PivotTable2").PivotFields("Area").CurrentPage = "London & Essex" Then
ActiveSheet.PivotTables("PivotTable3").PivotFields("Area").CurrentPage = "London & Essex"
End If
The problem is that this code runs over and over again, as each time the pivot table updates, it constitutes another update, and so on and so on....
I am making a small push button calculator to enter data into a textbox on a userform in an add-in file and this works fairly slowly. I am trying to concatenate a list of numbers in a textbox that simulates a calculator screen when entering numbers.
Private Sub CommandButton6_Click()
Dim Val
Val = "6"
Dim valand As Range
Set valand = ThisWorkbook.Worksheets("Stageing").Range("K65536").End(xlUp).Offset(1, 0)
valand = Val
Dim A As Range, B, C, d, E, F, G, H, I, J
Set A = ThisWorkbook.Worksheets("Stageing").Range("K2")
Set B = A.Offset(1, 0)
Set C = B.Offset(1, 0)
Set d = C.Offset(1, 0)
Set E = d.Offset(1, 0)
Set F = E.Offset(1, 0)
Set G = F.Offset(1, 0)
Set H = G.Offset(1, 0)
Set I = H.Offset(1, 0)
Set J = I.Offset(1, 0)
TextBox1.Value = A & B & C & d & E & F & G & H & I
End Sub
I have written a macro which references to several different sheets and cells therein. The macro is assigned to a command button on 'Sheet 1'. When I click the command button, the screen flickers and the user can see the macro running all the commands I have written. Is there a way of stopping this - maybe replacing it with a static screen view whilst the macro runs?
View 3 Replies View RelatedOkay, I have this code and it works very well - but it only works if my WORKBOOK is unprotected. I know how to Unprotect then Protect an ActiveSheet, but I can't figure out how to Unprotect then Protect my workbook when the macro runs..
Sub BLM_RENAME_SHEET()
Dim WS As Worksheet
Application.ScreenUpdating = False
For Each WS In ActiveWindow.SelectedSheets
[Code] ......
So i don't have any events that i know of that should trigger my macros to run. But everytime i delete a cell, or hide rows, it seems all my code/macros just auto run. And i had a few times when i hid the rows, the code would start, and then my excel application would crash.
View 4 Replies View RelatedI have two combo boxes that both contain 7-12 separate search criteria for the user to choose from. The other includes months and the other value ranges in text form. Based on the selections, e.g. "August" from other and "increased by more than 5 %" from other, I'd like to have a command button to execute the appropriate macro. I've already compiled the macros for each occasion but I just can't figure out how to get the button to execute them. Can I use the Select Case statements? If so, how?
Oh, and whether it's relevant or not, the boxes and the button are from the control toolbar.
