Selecting rows depending on checkboxes

Hi all,

my question is probably quite simple for the veterans around here: I've got 10 Checkboxes on a userform. The userform contains two textboxes as well. The text in the textboxes is being used to find the values in another sheet and save its row numbers. Then I'd like to select those columns, for which the appropriate checkbox is "checked". So if only the 5 first contain a "tick", i only would like to select those 5. If any other combination is "ticked" (for example 1,3,5,6,7,10) I'd like to select the appropriate columns. I think I'm able to do it but in a very odd way: I'd have to list every possible case - which would be something like 1024 if im not mistaken lol.

cheers

threadtitle is wrong: should be columns ofc

Hi, Bishonen,

if the checkboxes are named CheckBox01, CheckBox02 etc.:

Private Sub CommandButton1_Click()
Dim obj As Object
Dim rngBig As Range
For Each obj In Controls
  If Left(obj.Name, 8) = "CheckBox" Then
    If obj Then
      If rngBig Is Nothing Then
        Set rngBig = Cells(1, Right(obj.Name, 2) * 1).EntireColumn
      Else
        Set rngBig = Union(rngBig, Cells(1, Right(obj.Name, 2) * 1).EntireColumn)
      End If
    End If
  End If
Next obj
If Not rngBig Is Nothing Then
  rngBig.Select  'only check out, no need for Selection otherwise
End If
End Sub

Ciao,
Holger

Vielen Dank Holger,

in meinem Fall haben die Checkboxes andere Namen als 1,2,3 usw. Dank deines Codes kam ich auf eine Idee wie ich es nun schaffen kann. Vielen Dank
---
Thanks Holger!