userforms again...

[Jo]

Sorry I still cannot get this to work.
Private Sub CommandButton2_Click()
MsgBox userSelected
End Sub

userSelected is empty!
The result is not being saved.
Thanks
Jo

Subject: userform inputs
From: "Ed" <[email protected]> Sent: 9/19/2003
3:36:32 PM
Jo,

You would need a second routine to test it, right?
Add a second command button and try something like:

Private Sub CommandButton1_Click()
Dim userSelected as String
For Each x In Frame2.Controls
If x.Value = True Then
userSelected = x.Caption
End If
Next
Me.Hide
End Sub

Private Sub CommandButton2_Click()
MsgBox userSelected
End Sub

-----Original Message-----
Hi
Sorry I don't know how to do this.
This is the code I am using to find out which option is
selected.

'Private Sub CommandButton1_Click()
'For Each x In Frame2.Controls
'If x.Value = True Then
'MsgBox x.Caption
'End If
'Next
'Me.Hide
'End Sub

I then cannot dim and set the value (even if I use dim as
msforms.optionbutton)

Subject: userform inputs
From: "Ed" <[email protected]> Sent: 9/19/2003
2:50:11 PM

Jo,

The option box's Value property is:
-1 True. Indicates the item is selected.
0 False. Indicates the item is cleared.

You can set up a variable to hold the value and the use
the variable else where.
but


.

..

 

[Ed]

Jo,

We have to make userSelected available to the whole
wookbook.
Take out the Dim in the button and put this is in This
Workbook:
Public userSelected As String

 

[Tom Ogilvy]

Putting a global variable in the thisworkbook module makes it global only
within thisworkbook. You can see it using
thisworkbook.UserSelected (it becomes a property of thisworkbook), but more
natural is to declare it in a general module

Public userSelected as String

then you can see it in all other modules in the project.

 

[Henry]

Jo,
If you need to carry a variable over from one Sub to another
you have to set it up as a Global in your Module (General declarations)

Global gFruit As String

NB. Don't Dim gFruit anywhere else.

Private Sub CommandButton1_Click()
Dim x As Integer
For Each x In Frame2.Controls
If x.Value = True Then
MsgBox "The user has selected " & x.Caption
gFruit = x.Caption
End If
Next
Me.Hide
End Sub

gFruit is available throughout your project and will retain it's value until
changed elsewhere.

HTH
Henry