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
Bookmarks