Return Yes/No to Cell Based On Option Button

zotee98 · Aug 30th 2007

i have a user form in my spreadsheet that uses option buttons and text boxes for user entry. i need to take the values and true false entries from the option buttons and place them in cells. i am alittle lost with this. please help - ! thanks for your time

turtle44 · Aug 30th 2007

Re: Insert Data From Form Into Spreadsheet

Quote

i need to take the values and true false entries from the option buttons and place them in cells.

Could you be a little more specific? Which cells?

Is this a userform that you created?

zotee98 · Aug 30th 2007

Re: Insert Data From Form Into Spreadsheet

please see attached spreadsheet, my previous post only made sense in my head. thanks for the help

turtle44 · Aug 30th 2007

Re: Insert Data From Form Into Spreadsheet

Is this what you need?

Code

Private Sub CommandButton1_Click()
   Sheet1.Range("B11") = Me.TextBox1
   With Sheet1.Range("B10")
      If Me.OptionButton1 Then
         .Value = "Yes"
      ElseIf Me.OptionButton2 Then
         .Value = "No"
      Else
         .Value = ""
      End If
   End With
Unload Me
End Sub

Display More

nomel · Aug 30th 2007

Re: Insert Data From Form Into Spreadsheet

"i have a user form in my spreadsheet that uses option buttons and text boxes for user entry. i need to take the values and true false entries from the option buttons and place them in cells."

This should get you started.

Code

sub DoStuff()
dim row
dim col


  row = 1   'these can be any value.
  col = 1


  'for checkboxes, the .value property is true or false.
  if formname.checkboxname.value then   'check if it's true
    cells(row,col) = "Yes"   'true, so put yes in the cell on the active worksheet.
  else
    cells(row,col) = "No"    'false, so put no in the cell.
  endif
end sub

Display More

zotee98 · Aug 30th 2007

Re: Insert Data From Form Into Spreadsheet

sweet worked great - this forum is awesome - have a great one - - -thanks again

Dave Hawley · Aug 31st 2007

Re: Insert Data From Form Into Spreadsheet

Or,

Code

Private Sub CommandButton1_Click()
    Sheet1.Range("A1") = Choose(Me.OptionButton1 + 2, "Yes", "No")
End Sub

Where Sheet1 is a CodeName.

Return Yes/No to Cell Based On Option Button

Participate now!

Share