Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
program ok command button
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
program ok command button
hi
something like this might work..... Private Sub CommandButton1_Click() Call MyOtherMacro End Sub regards FSt1 "Warren" wrote: 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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
program ok command button
If you are experiencing problem with your OK Button Click Event you should
post it so we can see what the issue may be. If you are just wanting the UserForm to Unload when the user is done then do this: Private Sub CommandButton1_Click() Unload Me End Sub Hope this helps! -- Cheers, Ryan "Warren" wrote: 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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Hyperlink or Command Button Program | Excel Programming | |||
Wanting to Create A Command Button Command | Excel Programming | |||
VB's Command Button vs Form's Command Button | Excel Programming | |||
Another approach - Program Command Button | Excel Programming | |||
running a command button from a program | Excel Programming |