delete rows based on optionbutton criteria

[Jam_Ica]

I need to create a macro where a userform is populated with differnt option buttons. Once the user has made their selections, the buttons that were not selected need to erase rows in an excel spreadsheet. So if one option button was "french fries" and it was not selected, any row with "french fries" in column C needs to be erased. Any help would be great. Thanks!

 

[Warship]

Welcome to the Board.
Maybe this is a start...

Private Sub CommandButton1_Click()
  Dim r As Long, Ctrl As Object, Rng As Range
  'set the data range to erase rows in
  Set Rng = Sheets("Sheet1").Range("A1").CurrentRegion
  For Each Ctrl In Me.Controls
    If TypeName(Ctrl) = "OptionButton" And Ctrl = False Then
      For r = 1 To Rng.Rows.Count
        If LCase(Rng.Cells(r, 3)) = LCase(Ctrl.Caption) Then
          Rng.Rows(r).EntireRow.ClearContents
        End If
      Next r
    End If
  Next Ctrl
End Sub

 

[Jam_Ica]

I keep geeting an error at set Rng......also i have 8 different optionbuttons set up as choicea. Is there a way to be able to select more then one? Or should i use check boxes?

 

[Joe4]

I keep geeting an error at set Rng......also i have 8 different optionbuttons set up as choicea. Is there a way to be able to select more then one? Or should i use check boxes?

I am guessing that your sheet isn't named "Sheet1".
If not, change that line of code to suit the name of your sheet.