Option button

[ojhawkins]

Hi all,

I have this simple code (in a Module) that currently references "A2" & "A3" for either "buy" or "sell". Instead I want it to use the OptionButton for either true or false to determine if it is a buy or sell.

I don't want the OptionButton to put a value in a cell to determine if it is true or false (hope this makes sense) example "if optionbutton1 = true then range x = 1 etc" then use this to determine if is a buy or sell.

I am really stuck on how to do this.

Cheers,
O


Sub test()

Dim x As Double
Dim y As Double

Dim strOrder1 As String
Dim strOrder2 As String

strOrder1 = Range("a2").Value
strOrder2 = Range("a3").Value

If strOrder1 = "buy" Then
x = Range("d2").Value * -1
Else
If strOrder1 = "sell" Then x = Range("c2").Value
End If

If strOrder2 = "buy" Then
y = Range("d3").Value * -1
Else
If strOrder2 = "sell" Then y = Range("c3").Value
End If

Range("e2") = x + y

End Sub

 

[bensonsearch]

Hi,
under the change event you could do something like

if optionbutton1.value = true then
sheets("Sheet1").range("A1").value = "1"
end if

 

[ojhawkins]

Hi,
under the change event you could do something like

if optionbutton1.value = true then
sheets("Sheet1").range("A1").value = "1"
end if

Is there any way it can be done with out putting a value in a cell? Can the OptionButton store a value to it can called in the program some how?

 

[Sektor]

I don't understand what you mean "store a value to it can called in the program". What you want to determine basing on Optionbuttons?

 

[ojhawkins]

I don't understand what you mean "store a value to it can called in the program". What you want to determine basing on Optionbuttons?

Example below. How can I use the OptionButton by

Sub test()

Dim x As Double
Dim y As Double

Dim strOrder1 As String
Dim strOrder2 As String

strOrder1 = Range("a2").Value
strOrder2 = Range("a3").Value

If Optionbutton1 = True Then
x = Range("d2").Value * -1
Else

If Optionbutton2 = True Then x = Range("c2").Value
End If


Instead of the below referencing a cell

If strOrder2 = "buy" Then
y = Range("d3").Value * -1
Else
If strOrder2 = "sell" Then y = Range("c3").Value
End If

Range("e2") = x + y

End Sub

 

[bensonsearch]

You dont have to referance a cell but what do you want it to do? eg if I tick Buy what happens?