Userforms

[rhino4eva]

I am attempting to teach myself how to do userforms
I can draw them and get the code behind them but I am struggling to pull everything together . If I describe what I need could someone please help out

I have 7 tick boxes on a USER FROM lined up named CEA,HAV,ENT,MENIGO,PHM,PCP,RNASEp and one command button called GO

the boxes can be ticked in any combination and when go is pressed I would like a list on sheet 1 of the names ticked

I know I nearly there but just need a nudge over the hill

 

[My Aswer Is This]

Here is another way:

Case is the same as if.

Look how this works:

Private Sub CommandButton3_Click()
'Modified 12-14-17 8:00 AM EST
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row + 1
Lastrowd = Cells(Rows.Count, "D").End(xlUp).Row + 1
    For Each xcontrol In Me.Controls
        If TypeName(xcontrol) = "CheckBox" Then
            If xcontrol.Value = True Then
  
                Select Case xcontrol.Caption
                Case "HAV", "ENT", "MENIGO"
                Cells(Lastrow, 1).Value = xcontrol.Caption
                xcontrol.Value = False
                Lastrow = Lastrow + 1
                Case Else
                Cells(Lastrowd, "D").Value = xcontrol.Caption
                xcontrol.Value = False
                Lastrowd = Lastrowd + 1
                End Select
     
  
            End If
  
        End If
    Next xcontrol
End Sub