I'm working on a project that involves scheduling participants. The good news is that it doesn't have to be complicated at all. Here's some info.:
Each event can either be one person or a group of people. Also, one person could be in more than one group. The event can be either a brass, woodwind, percussion, strings, or vocal. Events are scheduled at 10 minute intervals. Since we don't take time requests, what I need is something that will plug in events (sorted by the type of event) to time slots. (Each event takes place in a different room) All it has to do is avoid scheduling a participant at the same time and there needs to be 20 minutes between when a particpant can perform again. (In other words, if they are scheduled at 8:00AM, they can't be scheduled again until 8:20.)
On the spreadsheet, Column A is the event name, Column B is the Event type (Brass, woodwind, percussion, strings, or vocal) and column C are all of the participants involved. I don't know much about VBA so this may be too much work for this kind of foum but the folks on this board always amaze me.
Im using the following code on a userform to link the spinner and a textbox:
Private Sub Marketing_spn1_Change() 'ensures the text box changes when spinner is changed Marketing_txt1.Text = Marketing_spn1.Value End Sub
Private Sub Marketing_txt1_Exit(ByVal Cancel As MSForms.ReturnBoolean) ' ensure value typed in is valid newvalue = Round(Val(Marketing_txt1.Text), 0) If newvalue < Marketing_spn1.Min Then newvalue = Marketing_spn1.Min If newvalue > Marketing_spn1.Max Then newvalue = Marketing_spn1.Max ' set the spinner value to keep in step with new value Marketing_spn1.Value = newvalue ' set the textbox to the appropriate value Marketing_txt1.Value = newvalue End Sub
I have many spinners and textboxes with the same name (marketing_txt2, marketing_spn3 etc) on both this userform and on other userforms I shall be doing. Is there any way of just writing this code once, rather than copying and pasting it for each spinner/textbox?
I have a excel sheet from a supplier of mine, that has a mixture of text, and numbers and more importantly "Custom format cells" that have prices in them. I need to apply a multiplication formula to each price, but they are all in different rows and columns, and it will take forever to type a formula into each cell.
Is there a way that if I can select all these cells, to add a global formula that will update all these cells?
The following code attempt is in a userform with one print button, one cancel button and six checkboxes refering to which sheets that are needed to print.
I have a sheet (sheet3) with a various number of checkboxes in specific cells. I create them trough 'paste'(see code at bottom). They are named checkbox'i' (in my example I use just 1 to 3). The problems now start with adjusting the value of a checkbox with specific number. It works with checkbox1.value =true/false, but I can't manage to do it for number 'i'. So how can I call number i'?
for example: I can delete them with .name property. But with the .name I didn't succeed to adjust value
Dim sh As Shape Dim rng As Range
For Each sh In ActiveSheet.Shapes If sh.Type = msoOLEControlObject Then If TypeName(sh.OLEFormat.Object.Object) = "CheckBox" Then sh.Delete End If Next sh Or for specific numbers.............
I have a workbook that has a sheet with a lot of columns. I also have a sheet before it which I want to put checkboxes on which will toggle columns on the second sheet hidden/unhidden.
I'm using an active X control checkbox form, but I can't figure out how to add multiple checkboxes. Is it possible? Or do I have to just create multiple individual checkboxes?
Here is the code that I'm using in the active X control: If CheckBox1.Value = False Then Sheets("Best").Columns("A:A").Hidden = False Else Sheets("Best").Columns("A:A").Hidden = True End If
I have several checkboxes in a form and the program will run different macros depending on what the user chooses. There are 9 checkboxes total. 1 checkbox activates all other checkboxes while the other eight are the options. If a user clicks the All checkbox, the other 8 are activated. If All is unchecked, the other 8 are unchecked. The trick is that I want the All checkbox to change to False if any of the 8 options are triggered to False. The problem I am having with the code I have is that if I trigger any of the options to False, the chkAll macro kicks in and turns all of the checkboxes to False, not just chkAll. Somehow, I've tried using the Change and the Click event with chkAll but it seems to be behaving the same using one or the other. I have pasted the code below as well as included an attachment of the file with the form.
Private Sub chkAcq_Click() If chkAcq.Value = False Then chkAll.Value = False End If End Sub
Private Sub chkAdmin_Click() If chkAdmin.Value = False Then chkAll.Value = False End If End Sub.........................
I'm having problem in managing 4000 checkboxes in a sheet. My sheet containt 2000 rows with 2 coloum of checkboxes. The question is, how to know when checkbox tick in one coloum then it will automatically tick the other one. I know how to do it with small quantity of checkboxes (i.e.: 10 checkboxes). But 4000 checkboxes make me headache.
I've finally figured out how to set up my Marlett checkboxes, but need some help with setting up multiple ranges. I can get up to 2 ranges to work with this
I have 4 checkboxes: a, b, c, and d. if all three check box a,b, and c is checked, then check box d is checked. if any of a, b, or c is unchecked, then check box d is unchecked.
I would like to be able to add a checkbox linked to each sum cell that adds the values of each of those cells.
Ex: A5=4, B5=6, C5=1, D5=7. With a checkbox linked to each cell, if i check the boxes in A5 and C5 then in another cell i would get the sum of those two cells= 5.
I've tried this but every time i link a checkbox to the sum cell it deletes the formula and puts in a True or False result.
The sunglasses (column A) are available in different colours, hence the seven colour categories (column C:I). I want to be able to sort through the colours and sunglasses through the checkboxes by looking at the "x"-mark. When all the checkboxes are marked, all rows should be visible. But when I for instance check the orange, black and white checkboxes, only the Retro and Sporty sunglasses should be visible (autofiltered by the correspondent "x") I would also like to be able to select all the checkboxes at once as well as clear them all through the buttons next to the list.
I have a worksheet with approx. 100 form checkboxes. The cell behind each box holds it's TRUE/FALSE condition, which is something I check for elsewhere on another worksheet.
I need one 'SELECT ALL' checkbox which, when selected, will 'check' every one of these 100 checkboxes (change their conditions to TRUE).
Ideally this would be done thru an excel formula, but I've looked everwhere and not found anything that will permit this.
I have for e.g. 10 VBA and 10 check boxes and an 'execute' button so, i want this button execute exactly that vba, which I will select by checking checkbox Each time there will be only one box checked also I'll need to have names for boxes like you can see attached picture.
I have an excel sheet where I can enter a text into A4, when this is valid a checkbox1 will appear if there is no value then the checkbox is invisible.
I have used a macro 'worksheet selection change' to do this but unfortunately I can only use this once in a sheet. I need to do this for upto 10 checkboxs that corrospond sequentially with text starting at A4 for checkbox1, A5 for checkbox2 etc....
The routine I have used for one check box is below. Can this be changed for multiple checkboxes?
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Range("A4") = isblank Then CheckBox1.Visible = False Else CheckBox1.Visible = True End If End Sub
I am trying to clear check boxes and list boxes on multiple worksheets within a workbook. Below is what I have,but doesn't work. Note: the "bottom " code does work to clear selected cells of their data. I tried to create a macro for the list boxes selecting "----" which I have as the last entry in the vlookup table but was totally unsuccessful at.
Sub cleardata() Dim Obj As OLEObject Dim ws As Worksheet
Basically I have a big table containing several columns for the different quarters. (Each quarter has several columns which are not all next to each other)
I would like to use 4 checkboxes which the user can select the show or hide the columns for that quarter. E.g. if Q1 and Q3 are checked only those are visible)
(if quarter 1 clicked than all columns are visible if unclicked hidden).
The code I have written workes well for the first checkbox (Q1), but for the other quarters (Q2, Q3 and Q4) the columns get hidden when checked (which should be the other way round) and don't get unhidden when unchecked.
Sub CheckboxQone() If Range("$A$1").Value = True Then Call showQ1 Else: Range("$A$1").Value = False Call hideQ1
I have many checkboxes (1 to 26) that I want visible or not, based on whether the cell states "n/a" (are in a column in a different worksheet). Rather than writing this code multiple times, I'm looking to condense the code.
I have written a code for a function in VB editor in a sample excel sheet. The UDF is working fine, but I am not able to use it in every other worksheet. I need to give the code to my managers, so even they can use the function conviniently just from the formula bar. I had declared the function as a Public function, so I thought it will be accessible in other excel sheets as well but that doesn't seem to work.
I have four cells that contain text. All have connected check boxes with TRUE FALSE.
I need to be able to select anyone one of these cells with a check box, and have it's text appear in one separate cell eg: A1.
I have no issue connecting check boxes etc. I have no issue reproducing the text from any of these cells into multiple cells with a check box. But they have to be selectable and reproducing in one cell only (eg"A1").
If I want to set a global variable when I open my workbook which will be used in code on the individual spreadsheets, how would I do this? I want to set the time the workbook is opened to a variable (constant) and then compare that time to current time on each calculation in the worksheets.
I have a holiday chart which has a summary at the end which counts holidays and sickness etc. It is in a workbook with a worksheet for each month, how can I define a range name that i can use with all worksheets, at the moment I am having to define new range names for all of the sheets and this is taking some time?
When I am in the new worksheet I can click on the range names in the top left but when i select one it takes me to the worksheet where the range is.
I would like have a input box in which a user enter a number and then I would like to be able to use that number in other worksheets within the same workbook. How do I declare the variable for use with other sheets. I know I would first use
Dim intRows As Interger But now how do I make it global.
I am trying to match up two data sets that are composed of some not very clean data. Some of my match criteria is going to include text strings.
One data set often has abbreviations for words. Example:
Massachusetts General Hospital MASSACHUSETTS GENL HOSP Or St vs Street. Mt vs Mount.
The list of criteria of subs I want to do is quite extensive so it does not make sense to try and do this with embedded replace() and substitution() formulas.
Want I want to is to write some kind of case statement in VB where I can load a list of substituions into a worksheet with the word in the A column, and the sub in the B column.
A b GENL General
And then the code would find these words and sub them out whenever they are present.
Ideas on how to get started? Maybe there is a function out there already written that I can use? I searched a bit, but I am not familar with all of the resources out there. I don't need someone to write this for me, but just maybe a best practice on how you would, or point me to examples of similar functions.
Is there any way to select things like tools - options across all worksheets in a workbook? I often want to suppress display of zeroes in an entire workbook, but so far the only way I've found to do this is to go to eash worksheet in turn and go thru the procedure on each one.
