A value based on OptionButton selection

[Sony]

I have a Userform that has several fields that are then populated on various
cells. What I have a question about is I have 3 optionbuttons that I want to
tie to a specifc cell on another sheet.

Example, open Userform from Sheet 2, OptionButton1 is selected (True) then I
want "Denied" placed in a specific cell on Sheet 1.

My userforms work correctly with the exception of placing my comment when
the optionbutton is true.

Thank you in advance for your help.
--
Sony

[Tom Ogilvy]

in the control source property of the option button put in

sheet1!B9

as an example.

--
Regards,
Tom Ogilvy


"Sony" wrote:

> I have a Userform that has several fields that are then populated on various
> cells. What I have a question about is I have 3 optionbuttons that I want to
> tie to a specifc cell on another sheet.
>
> Example, open Userform from Sheet 2, OptionButton1 is selected (True) then I
> want "Denied" placed in a specific cell on Sheet 1.
>
> My userforms work correctly with the exception of placing my comment when
> the optionbutton is true.
>
> Thank you in advance for your help.
> --
> Sony

[Sony]

I want to do this based on other information, I will provide a sample of my
code that is tied to a command button. My UserForm contains this command
button, as well as a Textbox & an OptionButton.

Private Sub CommandButton1_Click()
Dim Msg, Style, Title, Response
Msg = "Request Denied"
Style = vbYesNo + vbCritical + vbSubReq
Title = "Request Denied"
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then
ActiveWorkbook.SendMail Array("xxxxxx@email.com"), ("Request Denied")
MsgBox ("The Denied Notification has been sent")
Sheets("Request").Range("f7").Value = TextBox1

If OptionButton1.Value = "True" Then
Set C = Range("h16")
C.Sheet ("Request")
C.Value = "Denied"

Unload Me
End If
Else
MsgBox "Send operation aborted."
Unload Me
End If
End Sub




--
Sony


"Tom Ogilvy" wrote:

> in the control source property of the option button put in
>
> sheet1!B9
>
> as an example.
>
> --
> Regards,
> Tom Ogilvy
>
>
> "Sony" wrote:
>
> > I have a Userform that has several fields that are then populated on various
> > cells. What I have a question about is I have 3 optionbuttons that I want to
> > tie to a specifc cell on another sheet.
> >
> > Example, open Userform from Sheet 2, OptionButton1 is selected (True) then I
> > want "Denied" placed in a specific cell on Sheet 1.
> >
> > My userforms work correctly with the exception of placing my comment when
> > the optionbutton is true.
> >
> > Thank you in advance for your help.
> > --
> > Sony

[Tom Ogilvy]

the concept is the same - qualify your range reference. See example below.

Set C = WorkSheets("Somesheetname").Range("h16")


--
Regards,
Tom Ogilvy

"Sony" wrote:

> I want to do this based on other information, I will provide a sample of my
> code that is tied to a command button. My UserForm contains this command
> button, as well as a Textbox & an OptionButton.
>
> Private Sub CommandButton1_Click()
> Dim Msg, Style, Title, Response
> Msg = "Request Denied"
> Style = vbYesNo + vbCritical + vbSubReq
> Title = "Request Denied"
> Response = MsgBox(Msg, Style, Title)
> If Response = vbYes Then
> ActiveWorkbook.SendMail Array("xxxxxx@email.com"), ("Request Denied")
> MsgBox ("The Denied Notification has been sent")
> Sheets("Request").Range("f7").Value = TextBox1
>
> If OptionButton1.Value = "True" Then
> Set C = Range("h16")
> C.Sheet ("Request")
> C.Value = "Denied"
>
> Unload Me
> End If
> Else
> MsgBox "Send operation aborted."
> Unload Me
> End If
> End Sub
>
>
>
>
> --
> Sony
>
>
> "Tom Ogilvy" wrote:
>
> > in the control source property of the option button put in
> >
> > sheet1!B9
> >
> > as an example.
> >
> > --
> > Regards,
> > Tom Ogilvy
> >
> >
> > "Sony" wrote:
> >
> > > I have a Userform that has several fields that are then populated on various
> > > cells. What I have a question about is I have 3 optionbuttons that I want to
> > > tie to a specifc cell on another sheet.
> > >
> > > Example, open Userform from Sheet 2, OptionButton1 is selected (True) then I
> > > want "Denied" placed in a specific cell on Sheet 1.
> > >
> > > My userforms work correctly with the exception of placing my comment when
> > > the optionbutton is true.
> > >
> > > Thank you in advance for your help.
> > > --
> > > Sony