Pass To Cells On OptionButton Choice
Nov 8, 2006
I have the following code. I need the textbox values to pass to the cells when the option button (OB) is "moved away from"; that is, when I fill in the boxes while uner OB1, then select OB2, I want the values I put in to pass to the cells. Right now, the values passing to the cells listed under OB 1 are the values that are brought in under the enter event for OB2.
Private Sub OptionButton1_enter()
Me.TextBox1.Value = ActiveCell.Offset(0, 9).Value
Me.TextBox2.Value = ActiveCell.Offset(0, 10).Value
Me.TextBox3.Value = ActiveCell.Offset(0, 11).Value
Me.TextBox4.Value = ActiveCell.Offset(0, 12).Value
Me.TextBox5.Value = ActiveCell.Offset(0, 13).Value
Me.TextBox6.Value = ActiveCell.Offset(0, 14).Value
Me.TextBox7.Value = ActiveCell.Offset(0, 15).Value
Me.TextBox8.Value = ActiveCell.Offset(0, 16).Value
End Sub
View 9 Replies
ADVERTISEMENT
Feb 3, 2008
Ihave 2 functions which are called in my main program which should return a value due to what the user selects on a userform using option buttons and check boxes.
Function getnum() As Integer
If userform1.OptionButton1.Value = True Then
getnum = 1
End If
If userform1.OptionButton1.Value = True Then
getnum = 3
End If
If userform1.OptionButton1.Value = True Then
getnum = 5
End If
End Function
Function getlevel() As Double
If userform1.CheckBox1.Value = True Then
getlevel = 1.2
End If.......................................
View 3 Replies
View Related
Feb 6, 2008
I have two option buttons on a userform and when the user selects an option button I would like it to stay selected when the userform is called again.
View 2 Replies
View Related
Feb 6, 2008
I currently have a drop down menu in one of my worksheets, in which I have several different text values entered. What I would like to do is link each of those text values to a numerical value, which would be entered in to another cell. So if I select "Option A" from my drop down list, and Option A is equal to 200, I want "200" to show up in another cell. If I select "Option B" from my drop down list, and Option B is equal to 400, I want "400 to show up in that same other cell.
View 4 Replies
View Related
Dec 7, 2013
I want to make a lesson table which distribute the names to lesson choice priority.
You can see detail and explanation at attached file. LessonChoice.xlsx‎
View 3 Replies
View Related
May 8, 2013
I have a worksheet that has 8 activex listboxes. Each listbox is tied to the sames list of values (identified as a named range). The named range is a list of countries. Each country should only be selected once, therefore, I would like the selected country(ies) to not show up as a choice when the user makes a selection from another listbox. If this is too hard, maybe we can get a msgbx to appear anytime the users tries to select a country that has already been selected.
View 3 Replies
View Related
Oct 4, 2008
I have two option buttons on each of five spreadsheets in my Excel workbook. Selecting the first option button enables an x to be written to a cell when that cell is clicked with the mouse. Selecting the second option button disables the writing of the x when the cell is clicked with the mouse. I have these working quite well.
My problem is that I want the second option button selected (disable writing of x) when I enter the sheet. I'm pretty certain that I need the code in Sub Worksheet_Activate() but I haven't been able to find the VBA statement to set the second option button on.
Also, unlike having the option buttons on a form, when I select the option button on the spreadsheet in Design mode I can see no property sheet indicating the name, value, etc of the option button.
View 5 Replies
View Related
Jan 4, 2009
I have 5 Optionbuttons (in userform) named: Sheet1, Sheet2, Sheet3, Sheet4 and Sheet5.
When I open workbook Optionbutton1 (Sheet1) is activated, but what kind of loop(?) I need, if I want activate same named optionbutton than activate sheet.
Example: I activate sheet3 then Optionbutton3 (named sheet3) have to activated also.
I tried simple codes,
First worksheet:
Private Sub Worksheet_Activate()
OptionButton1.Value = True
End Sub
Second worksheet:
Private Sub Worksheet_Activate()
OptionButton1.Value = False
OptionButton2.Value = True
End Sub
View 9 Replies
View Related
Nov 22, 2013
I have cells that all reference from a 4x147 table, each row has one piece of data in, but only one piece from a choice of 4 cells (3 of which are blank).
the cells that are referencing this data, i would like to make them reference to all 4 cells, ignore the blanks and choose the one with the data.
View 1 Replies
View Related
Jun 6, 2014
But for the life of me, I can't get it to do what I need it to do. Excel 2010 user, and I've attached my file with the information, and descriptions.
View 5 Replies
View Related
Feb 17, 2009
If I choose 1 thing from a list I want it to then fill in many cells with info.
For example: I have a color list to choose from, once I make my choice cells near it fill in with 1.5lbs yellow, 2lbs blue, 4lbs red,.....or what ever I have established as the "recipe" for my color choice. When I choose a different color from my list these cells each fill in with different values.
View 9 Replies
View Related
Sep 12, 2006
How do I set the default optionbutton out of 5 inside a frame?
View 2 Replies
View Related
Oct 3, 2006
I have a userform on which there is a frame containing 8 option boxes. After a query, the results are displayed in the form. If I have a value of 1 in a cell, optionbox1 is checked; a value of 2 checks optionbox2, etc. It works great EXCEPT when first initialized. At that point, it checks the last optionbox, even if the number is 1. I have built a next and previous feature to scan the data, and when I return to the first entry, the correct box is checked. I tried coding blanks into the fields prior to populating them, but I still get the same results. Is there some explanation available so that I may remedy this? I'd really like the first piece of data to be correct.
View 2 Replies
View Related
Nov 30, 2007
I am trying to convert some text from a number of cells to shape in another workbook. The problem is, if the text in one of the cells is too long (from testing it by too long i pretty much mean roughly 100 characters) then it doesn't pass anything at all to the shape. Is there a way around this so that all text will be converted to the shape regardless of its size?
By the way, the code is:
ActiveWorkbook. Sheets("Sheet1").Activate
ActiveSheet.Shapes("Text Box 1").TextFrame.Characters.Text = "1. " & Priority1Range.Value & Chr(10) & "2. " & Priority2Range.Value _
& Chr(10) & "3. " & Priority3Range.Value & Chr(10) & "4. " & Priority4Range.Value & Chr(10) & "5. " & _
Priority5Range.Value
The variables 'Priority1Range' represent the cell the text is in that I am trying to pass and it's variable type is Range. I have tried declaring the Priority1Range.Value as a string variable and using this instead but this doesn't work.
View 9 Replies
View Related
Aug 22, 2008
I have a workbook containing several sheets, each sheet has a large number of ActiveX check box controls on it.
The controls are presented in groups of three to capture responses to a question (Y/N/NA). If one of the three check boxes is set to True, the other two associated check boxes must be set to False.
What I want to do is avoid having to have an On_Click event sub for every single check box.
I have written a function that will handle updating the related check boxes but I am unsure how to call this function, passing it the name of the clicked Check Box whenever any check box is clicked.
Here is my current code with an On_Click event being used to call the function:
Private Sub chk100_01Y_Click()
' Want to replace this with a dynamic sub that will be invoked
' when any Check Box is clicked and pass the name of that Check
' box to the function
Call Update(ActiveSheet.OLEObjects("chk100_01Y"))
End Sub
View 6 Replies
View Related
May 12, 2014
I have a test log with PASS/FAIL. These results are logged in Excel under the column heading PASS/FAIL.
How do I count the number of PASS or FAIL using VBA macro?
So far I have tried:
[Code].....
This one did not work either:
[Code] .......
the error is at the name = Range("PASS/FAIL").Select line.
My thought process: once I had selected a range, I can now freely "look" at each string in a cell in that range. Not correct I guess.
All this is currently done in the active sheet.
View 3 Replies
View Related
Jan 14, 2008
I have created a Group Box in Excel with 4 Option Buttons in the group. I have also created a Command Button which currently, when clicked, changes to a worksheet I specified. I am trying to have the Comand Button, when clicked, look at the selected Option Buttons in the Group Box and change to the worksheet specified by the selected Option Button. I have tried an IF..THEN statement with no success. code below that I have tried.
Private Sub CommandButton1_Click()
If AM40 = 1 Then
Sheets("Billboards(1)").Select
'ElseIf AM40 = 2 Then
' Sheets("Live Events Feedback(1)").Select
End If
End Sub
View 3 Replies
View Related
Feb 27, 2008
I've created a variable number (i) of text boxes at run time (i also named them, "txt"&i, at the same time), i'm now trying to get the values entered in these to fit into a column that has been inserted during the same sub routine. I'm having a bit of trouble refering to the text boxes though, this is the patch of code i'm struggling with:
Dim TextBox As String
For i = 0 To 2 * NumVar - 1
TextBox = "txt" & i
ActiveCell.Offset(i, 0).Value = TextBox.Value
Next i
I also tried this:
Dim TextBox As Object
For i = 0 To 2 * NumVar - 1
TextBox.Name = "txt" & i
ActiveCell.Offset(i, 0).Value = TextBox.Value
Next i
View 8 Replies
View Related
Feb 5, 2008
I have a user form with a group of several option buttons. When an optionbutton is selected, programatically, I want a worksheet's named column to be parsed through to find unique entries and then have those entries passed to the form's combobox. I've spent the last hour searching for an answer but to no success
View 3 Replies
View Related
Feb 10, 2009
Is there a simple solution, by changing something in the button properties? My current code below allows data from a userform to goto specific sheets and cells. Currently my option button named winbutton if true will display "true" in cell. i need it to be numerical value "1".
View 3 Replies
View Related
Feb 13, 2008
I have a WAY to complicated excel form that I'm going to move to Access but I need to have this working in the interim. The form has a dynamic element, the user can choose the number of items they are ordering and it unhides the required number of text boxes. To keep the scripting down a did a little work-around to update the database using a loop through the form controls:
'Save the main row
MainOrderRow = ActiveCell.Row
LastRow = MainOrderRow + (ExtraOrders - 1) ' Calculate the last row
ExtraOrderNo = 1
For DBRow = MainOrderRow To LastRow
' Save the text box name with the extra order number
k = "txtDescriptionMul" & ExtraOrderNo & ""
l = "txtQuantityMul" & ExtraOrderNo & ""
m = "txtTotalValueMul" & ExtraOrderNo & ""
n = "ComboBoxUnitMul" & ExtraOrderNo & ""...................
View 2 Replies
View Related
Feb 15, 2009
I have attached a file with VBA code. I want to be able to select more than one person in a drop down list (column C) and have those choices show up in that cell. The range you select from is called name, Column H.
I've looked at is a number of ways but my VBA code does not seem to work.
View 14 Replies
View Related
Feb 4, 2009
I have a spreadsheet which have data auto inported. (thanks to previous help on here). I have now come up against the next problem.
I wish to make the mark up variable depending on 5 options (workings I13;I17)
the choice is selected in column b after the data has been inported
then down on Rows 75 - 79 i have the totals of my choices.
Unfortunatly i do not know how to do a variable sum
I have attached a copy of the workbook.
View 6 Replies
View Related
Mar 25, 2008
I have a percentage based calculation I'm using to estimate monthly expenditures and such.
Say I have a Total Sales Dollars in cell A1
Now I have my total expenditure dollars in cell B1
In cell C1 I have the percentage of what my total expenditures are vs my Sales dollars (B1/A1)
What I would like to be able to do is either be able to enter in the Expenditure Dollars (B1) or the Expenditure % (C1) and have it calculate the other field.
For instance if I enter a value in B1 it will give me C1, or
I can enter a value in C1 and give it a value in B1.
Is it possible to just use these two cells with formulas or maybe a CF??
Not sure if it's late in the day, but my mind is drawing a blank on this.
View 9 Replies
View Related
Mar 19, 2008
I have to check boxes which when one is selected performs a function. I want when either one is selected the other is automatically deselected. How can i do this
View 2 Replies
View Related
Dec 10, 2008
is ther away of usin 1 button to open any 1 to 46 worksheets
i know i can make a button to open a sheet with the command
sheet2.activate
but this means i would have to have 46 buttons on the fron page and thats to many
View 6 Replies
View Related
Nov 25, 2007
is there a way to make a macro that runs on startup
and prompts with a yes/no question, if the user
wants to multiply all new data values time 1.0825,
and after having selected if they do or dont want
to allow that, would it be possible to have the
prompt minimize itself but still be present in
case they decide to toggle that on/off?
View 14 Replies
View Related
Feb 10, 2009
I am using an Excel Form, and trying to make the user choose a color for a new tab they are creating. I am currently forcing an input box to pop up when the user adds a new worksheet. The user inputs a name and a new box will pop up asking the user to select a color.
I can get the color box to come up using
Code:
Application.Dialogs.Item(xlDialogColorPalette).Show ' -- 56 colors
But I can not get the tab color to change to the color chosen..retrieve the information from the ColorPalette box?
I also know that this code:
Code:
Worksheets(a).Tab.ColorIndex = 56
Will change the selected "a" tab color to color "56" but I dont know how to retrieve a color from the color palette and insert it where the "56" is...
retrieving color from palette?
Also, is there any othere version of a color palette, that I could show the user? and what would the vba code be for that?
View 8 Replies
View Related
Jul 24, 2008
I have 2 option buttons and 3 userforms. The passage between those userforms are made with "next/back" command buttons.
Options buttons are € and $ and they are in the first userform.
If the user make a choice between € and $ in the userform1, the following macro plays
If Me.Dollar Then
Sheets("Data").Range("B2").Formula = "$"
Else
Sheets("Data").Range("B2").Formula = "€"
End If
Problem
The other 2 userforms contains texts that depends on the choice made in the first userform/option buttons (€ or $)
Private Sub UserForm_Initialize()
Application.ScreenUpdating = False
Text1.Caption = Worksheets("Data").Range("B2").Value
Text2.Caption = Worksheets("Data").Range("B2").Value
Text3.Caption = Worksheets("Data").Range("B2").Value
End Sub
so in theory userform initialize should change the text and get what s written in Data Sheet.B2 cell automatically and INSTANTLY. But it only gets the initial choice and when I go back/forward between userforms and even change the € to $ or vice versa the inital choice remains in the next userforms.
View 9 Replies
View Related
Nov 20, 2006
I'm trying to set up an Input Box that allows the user to have a set of options to select from. The only things I have found deal with a MsgBox with set options of Yes, No, or Cancel. I would like to allow the user to have multiple buttons, check boxes, or radio buttons to select from. (any of those will work). For example: "Select the Customer Service Representative you worked with: "
-Amy -Jill -Joseph -Christopher
View 5 Replies
View Related
