VBA Loop

[raccoon588]

i have the following code, it loops through the check boxes within the user form. Id like to be able to have the message change depending on which check box is true. how could i adjust this loop to have a specific message per check box that is true and then keep going continuing the loop every time hitting a different true check box and giving a different message depending on what comes up true.

Private Sub CmdSubmit_Click()
Dim C As MSForms.Control
    For Each C In Me.Controls '<--| loop through userform controls
        If TypeName(C) = "CheckBox" Then
        If C.Value = True Then
        
            MsgBox C.Name 
            End If
        End If
        
    Next C


End Sub

 

[raccoon588]

is it possible to place "full day" into column b and the date into column c

 

[Fluff]

Try

               Case "FD"
                  msg = "Full Day," & Choose(CLng(Right(C.name, 1)), lblDayOne, lbldaytwo, lbldaythree)
                  MsgBox msg
                  Range("B" & Rows.count).End(xlUp).Offset(1).Resize(, 2).Value = Split(msg, ",")

 

[raccoon588]

this works just as expected but is there a way to get the value of the label vs breaking up the message and dumping the text?

 

[Fluff]

Fraid I don't understand what you mean.

 

[raccoon588]

my lables contain dates. when breaking up the message and dumping it into the excel sheet i get a string rather then a date.

 

[Fluff]

That's because labels contain strings, not dates

 

[Fluff]

Try

                  Range("B" & Rows.count).End(xlUp).Offset(1).Value = Split(msg, ",")(0)
                  Range("C" & Rows.count).End(xlUp).Offset(1).Value = CDate(Split(msg, ",")(1))

 

[raccoon588]

thank you for all of your help. it works great

 

[Fluff]

You're welcome