W
Warren
Hi,
Trying to have a user form with 3 option buttons. user selects one option
then presses OK to continue running other macros.
3 Option buttons work ok
im having trouble with ok button to contine or end user form
Your help would be appreciated
Private Sub CommandButton1_Click()
End Sub
Private Sub OptionButton1_Click()
Sheets("Control").Select
ActiveSheet.Unprotect ("systemsBMCP")
Range("f11").Select
ActiveCell.FormulaR1C1 = "25"
Range("A1").Select
ActiveSheet.Protect ("systemsBMCP")
End Sub
Sub OptionButton2_Click()
Sheets("Control").Select
ActiveSheet.Unprotect ("systemsBMCP")
Range("f11").Select
ActiveCell.FormulaR1C1 = "26"
Range("A1").Select
ActiveSheet.Protect ("systemsBMCP")
End Sub
Private Sub OptionButton3_Click()
Sheets("Control").Select
ActiveSheet.Unprotect ("systemsBMCP")
Range("f11").Select
ActiveCell.FormulaR1C1 = "27"
Range("A1").Select
ActiveSheet.Protect ("systemsBMCP")
End Sub
Private Sub UserForm_Click()
End Sub
Trying to have a user form with 3 option buttons. user selects one option
then presses OK to continue running other macros.
3 Option buttons work ok
im having trouble with ok button to contine or end user form
Your help would be appreciated
Private Sub CommandButton1_Click()
End Sub
Private Sub OptionButton1_Click()
Sheets("Control").Select
ActiveSheet.Unprotect ("systemsBMCP")
Range("f11").Select
ActiveCell.FormulaR1C1 = "25"
Range("A1").Select
ActiveSheet.Protect ("systemsBMCP")
End Sub
Sub OptionButton2_Click()
Sheets("Control").Select
ActiveSheet.Unprotect ("systemsBMCP")
Range("f11").Select
ActiveCell.FormulaR1C1 = "26"
Range("A1").Select
ActiveSheet.Protect ("systemsBMCP")
End Sub
Private Sub OptionButton3_Click()
Sheets("Control").Select
ActiveSheet.Unprotect ("systemsBMCP")
Range("f11").Select
ActiveCell.FormulaR1C1 = "27"
Range("A1").Select
ActiveSheet.Protect ("systemsBMCP")
End Sub
Private Sub UserForm_Click()
End Sub