Retain OptionButton Choice Between UserForm Calls
Feb 6, 2008I 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
ADVERTISEMENT
Pass To Cells On OptionButton Choice
Nov 8, 2006I 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
Function To Return Value Based On OptionButton Choice
Feb 3, 2008Ihave 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.......................................
Creating Main Menu On Userform Using API Calls
Jun 17, 2011I am trying to create a "mainmenu". On a Userform using API calls.
Created a Userform and named it Form1.
Added a command button to the form and named it Command1.
In THISWORKBOOK code:
Private Sub Workbook_Open()
Form1.Show
End Sub
[Code] .........
I open the file and Form1 is shown with its command button. When I click the command button I get an error:
Run-time error 49:
Bad DLL calling convention.
What is the correct convention?
Userform Will Not Retain Changes
Sep 20, 2006I am building a large Userform and I am going back to edit some of the controls (renaming, resizing, etc). The problem is, after editing, the changes don't stick. I can open another module and then open the form again and the changes will be gone. I can save Excel, close the file, and open it again, and the changes will be gone.
View 4 Replies View RelatedRetain Data On Userform
Jun 30, 2006i am using the following code to put data into a worksheet which it does perfectly. once the data is put into the sheet it is saved. what i want to do next is to retain the data in the userform and possibly change one or two entries and put data back into the sheet to save again
Option Explicit
Dim ans As Variant
Dim MyArray(100, 4)
Public MyData As Range, c, d As Range
Private Sub cmbAmend_Click()
Application. ScreenUpdating = False
Set c = Range("b4").End(xlUp).Offset(3, 0) ' c selected by Find
c.Value = Me.DTPicker1.Value ' write amendments to database
c.Offset(1, 0).Value = Me.TextBox1.Value
c.Offset(2, 0).Value = Me.TextBox2.Value
c.Offset(3, 0).Value = Me.TextBox3.Value
c.Offset(12, 0).Value = Me.ComboBox1.Value
Set d = Range("b16").End(xlUp).Offset(1, 0)
Retain Values Of UserForm Controls Between Sessions
Aug 28, 2006how you can save the status of a userform.
I have a userform that have a series of checkboxes and i want to know if i can save the status the checkboxes when i exit the userform.
Retain UserForm Data After Close / Save
Jan 31, 2008I am trying to accomplish keeping userform data in the userform after saving & closing the workbook. I am not referring to saving the data in a worksheet. Is this possible?
View 3 Replies View RelatedMake A Choice Between € And $ In The Userform
Jul 24, 2008I 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.
Pop Up Form Within Userform To Confirm Choice
May 11, 2009pop up form within userform to confirm choice. I have a button within a userform that clears the form:
View 5 Replies View RelatedReturn Associated Data To UserForm For ComboBox Choice
Dec 11, 2007I have a combo box on my userform. The selection made in the combobox will eventually control a calculation. I would like to generate some code so that when the user makes a selection in the combo box, and fills in all the requied info on the form, they can click a button on the userform which will generate a new combobox on the worksheet which would contain the user selection, along with the array that populates the combobox on the userform.
View 3 Replies View RelatedShow UserForm Before Printing For Custom View Choice
Apr 9, 2008When I click the excel printing icon, I want a userform to pop up in which I make the choice for a certain customview that I build. This customview must then be printout. Note that I want to use the standard Excel print icon, not a custommade one in the worksheet. I figured out some code, but it doesn't work. For instance my if structure returns "false" even if I did click that commandbutton, see the code below.
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Static PrintRequest As Boolean
formMyview.Show
If formMyview.CmdCancel= True Then
MsgBox "printrequest canceled"
Unload Me
cancel=True
Exit Sub
End If
If PrintRequest = True Then
Exit Sub
End If
If formMyview.CmdOk = True Then
For Each Myoption In frameViewoptions.Controls
If Myoption.Value = True Then..........................
Texts Automatically Change The Currency Depending On The Choice Made In The Previous Userform
Jul 3, 2008I have options buttons in a userform, first is "$" the other is "€"
When somebody chooses one of them, it writes the choice to a cell in the data sheet. But when clicked on the next userform I want some of the texts automatically change the currency depending on the choice made in the previous userform.
The formula below was is example
=""&Data!$A$2&" / m³"
=""&Data!$A$2&" / kWh"
Copy Range As Paste As Values Based On UserForm Option Button Choice
Nov 3, 2009I have a frame (Frame1) on a userform added using Microsoft Forms 2.0 Frame. I have added option buttons to the frame named OptionButton1 thru OptionButton4. I am trying to add code where certain cells are copied and pasted depending on which optbutton is selected. I tried the following code but because the option button is a frame object it doesn't seem to trigger the event.
Private Sub OptionButton1_Click()
'copy level 1
If Me.OptionButton1 = True Then
Worksheets("Sheet1").Range("G10:G32").Copy
Worksheets("Sheet1").Select
Worksheets("Sheet1").Range("C10:C32").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
End If
End Sub
Lookup Data For Drop Down List Choice & Show Blank If No Choice
Feb 6, 2008I 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 RelatedDistribute Names To Lesson Choice Table By Choice Priority
Dec 7, 2013I 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‎
Removing Selection / Choice From Listbox Once Choice Has Selected
May 8, 2013I 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 RelatedA2-A14=100%: Number Of Calls Column, With Number Of Calls
Jan 18, 2009I have Problem column, with problems from A2 to A14. I have number of calls column, with number of calls from B2 to B14 and finally i have percentage column in which i want to automatically calculate problems percentage. I'm including my exel file.
View 5 Replies View RelatedSelecting Optionbutton Using VBA
Oct 4, 2008I 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.
Activate Right Optionbutton
Jan 4, 2009I 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
Set Default OptionButton To True
Sep 12, 2006How do I set the default optionbutton out of 5 inside a frame?
View 2 Replies View RelatedIncorrect Optionbutton Value On Initialize
Oct 3, 2006I 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 RelatedEnsure Only 1 OptionButton Or CheckBox Selected
Aug 22, 2008I 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
Activate Sheet Of Checked OptionButton By Caption
Jan 14, 2008I 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
Fill ComboBox With Unique Entries Based On OptionButton
Feb 5, 2008I 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 RelatedSub Calls Sub Recup Value
May 22, 2007I have two macros, Sub macro_Combs() calls Combin_6N()
In macro_Combs I must recover the values of the line in progress 500 step 28 to put them in vN(J) table of 10 élements.
The line in progress can go from 4 to 10 digits
if I make vN(J) = Sheets("feuil3").Cells(J).Value functions for 500 step 28 but with same the information of line 1 of feuil3
if I make vN(j)=cells(lig, col).value that does not function
Public lig As Integer
Public Col As Integer
>>>>1 ère macro
Sub macro_Combs()
For Lig = 1 To 100 Step 28
For Col = 1 To 1
Next..........
One Macro Calls Many
Sep 30, 2009I have this code (below) that calls a number of other subroutines. It begins the process just fine, but then gets hung up upon completing the first macro called, Run_Educator_Report. What could be causing this?
Sub Run_All()
Call Run_Educator_Report
Call Run_Non_Educator_Report
Call Construct_Database_for_Graphs
ActiveWorkbook.Save
End Sub
Trying To Chart Calls Per Minute / Per Day
Dec 6, 2013I'm trying to use some call data for some predictive staffing. I need to see the highest number of calls happening around the same time each day. I'll have to do this for a number of different lines, so working out a formula that could apply.
I have two columns, date and time stamps of the calls. A small sample is below.
7/1/13 5:50 AM
7/1/13 9:49 AM
7/1/13 10:33 AM
7/1/13 10:53 AM
7/1/13 11:19 AM
7/1/13 11:41 AM
7/1/13 12:07 PM
7/1/13 3:58 PM
7/1/13 4:03 PM
7/1/13 5:35 PM
7/1/13 6:27 PM
7/1/13 6:39 PM
7/1/13 7:37 PM
Find Non Blank Calls
Nov 25, 2008I need to create a formula that counts the number of blank cells to the right and then actually uses the value in the non blank cell.
The result requiired is that the formula will find the difference between 1 value, the next non blank cell and then will average the cells between to get the interval figures.
eg. Value1 is 50.
Value2(the next nonblank) is 60.
There are 4 empty cells in between.
I need a formula that will find the next Nonblank (Value2), calculate the difference between Value1 and Value2, then divide that by the number of blank cells + 1 and add the value to the left.
The cell in A2, calculated manually at the moment would be:
=A1+((A6-A1)/(4+1))
This would then be altered across the page so that A3 would be:
=A2+((A6-A2)/(3+1)
etc., etc.
Therefore the result returned across the blank cells would be:
A1 A2 A3 A4 A5 A6
Value1 BLANK BLANK BLANK BLANK Value2
50 52 54 56 58 60
Count Hours Where Calls Are Received?
Jan 27, 2014I am trying to count hours where calls are received between 8am and 5pm Mon-Fri. If just one call is received between 8am and 5pm Mon-Fri then only one hour would be counted. Calls in excess of one call in the same hour do not count more than one. So if two people called from 8am - 9am then that would equal 1 and if on call came in from 9-10 then that would also be 1. Attached is a sample output.
View 11 Replies View Related