Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
optionbutton with worksheet change
Hi guys I have a work sheet with 2 input cells (for sizes) and about optionbuttons in pairs i am using the code (see below) but the proble i have is that for the worksheet change event to work you need to inpu into the cell (and this cell is writen in the code) and press return fo the change event to work but in D11 i have this formula =IF(D8="mm",D9,IF(D8="in",D9*25.4)) mm for millmeters and in fo inches. Is there any way to change the code to make the code work wit D11 even if the iput cell is in fact D9 Many thanks Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("D11")) Is Nothing Then Exit Sub Dim check As Boolean check = Range("D11") 6500 With OptionButton10 .Enabled = check .Value = check End With With OptionButton9 .Value = Not check End With End Sub Private Sub OptionButton9_Click() If Sheets("b28pricing").Range("D11") 6500 Then OptionButton10.Enabled = False OptionButton10.Value = False OptionButton9.Value = True Else OptionButton10.Enabled = True End If Private Sub OptionButton10_Click() If Sheets("b28pricing").Range("D11") < 6499 Then OptionButton10.Enabled = True OptionButton10.Value = True OptionButton9.Value = False Else OptionButton10.Enabled = False End If Many thank -- ra ----------------------------------------------------------------------- raw's Profile: http://www.excelforum.com/member.php...fo&userid=2831 View this thread: http://www.excelforum.com/showthread.php?threadid=52386 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
optionbutton with worksheet change
If Intersect(Target, Range("D9,D11")) Is Nothing Then Exit Sub
-- Regards, Tom Ogilvy "raw" wrote in message ... Hi guys I have a work sheet with 2 input cells (for sizes) and about 6 optionbuttons in pairs i am using the code (see below) but the problem i have is that for the worksheet change event to work you need to input into the cell (and this cell is writen in the code) and press return for the change event to work but in D11 i have this formula =IF(D8="mm",D9,IF(D8="in",D9*25.4)) mm for millmeters and in for inches. Is there any way to change the code to make the code work with D11 even if the iput cell is in fact D9 Many thanks Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("D11")) Is Nothing Then Exit Sub Dim check As Boolean check = Range("D11") 6500 With OptionButton10 Enabled = check Value = check End With With OptionButton9 Value = Not check End With End Sub Private Sub OptionButton9_Click() If Sheets("b28pricing").Range("D11") 6500 Then OptionButton10.Enabled = False OptionButton10.Value = False OptionButton9.Value = True Else OptionButton10.Enabled = True End If Private Sub OptionButton10_Click() If Sheets("b28pricing").Range("D11") < 6499 Then OptionButton10.Enabled = True OptionButton10.Value = True OptionButton9.Value = False Else OptionButton10.Enabled = False End If Many thanks -- raw ------------------------------------------------------------------------ raw's Profile: http://www.excelforum.com/member.php...o&userid=28312 View this thread: http://www.excelforum.com/showthread...hreadid=523868 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
for each optionbutton | Excel Programming | |||
optionbutton | Excel Programming | |||
optionbutton takes two clicks to change value | Excel Programming | |||
Better Way to Use OptionButton | Excel Programming | |||
Can't dynamically add withevents OptionButton to worksheet | Excel Programming |