View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Chuckles123[_38_] Chuckles123[_38_] is offline
external usenet poster
 
Posts: 1
Default SIMPLE UserForm w/ 2 OPTION BUTTONS


Below is the code for a 'main macro' and code for each of two Optio
Buttons.
You may find this useful in situations when you want to direct contro
to either of two sections of code based upon user selection o
alternatives presented.

Public Button As String
Sub CREATE_FORM()
'
frmPricing.Show
'SHOW Pricing UserForm ON DISPLAY

'USER SELECTS BUTTON

'AFTER SELECTION, CONTROL COMES BACK HERE
If Button = "EVAL" Then
Range("A1").Select

Else
Range("C1").Select
End If

End Sub

‘BELOW IS CODE FOR EACH OF 2 OPTION BUTTONS

Private Sub optEVAL_Prices_Click()
Button = "EVAL"
Unload Me
End Sub

Private Sub optBID_Prices_Click()
Button = "BID"
Unload Me
End Sub

The only missing steps are the assignment of a programmatic name and a
UserForm name to each of the Option Buttons, a Frame around the Button
(if so desired), and the UserForm itself.

You may find this useful in lieu of a MsgBox.

Chuckles12

--
Chuckles12
-----------------------------------------------------------------------
Chuckles123's Profile: http://www.excelforum.com/member.php...fo&userid=1494
View this thread: http://www.excelforum.com/showthread.php?threadid=26805