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

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