Posts by hmf1996

hmf1996 · Nov 15th 2018

I have a code written so that when the user clicks submit, their data from the CheckBoxes in the userform should jump in to the next column, with the date as the column header. Unfortunately, it just keeps overwriting the data in the first column and is not adding to it.

Here is the code I have:

Code

Private Sub CommandButton1_Click()
Dim rng As Range
    
    Set rng = Sheet2.Cells(1, Columns.Count).End(xlToLeft).Offset(, 1)


    With rng
        .Value = Now()
        .Offset(1).Value = IIf(CheckBox1.Value, "", "X")
        .Offset(2).Value = IIf(CheckBox2.Value, "", "X")
        .Offset(3).Value = IIf(CheckBox3.Value, "", "X")
        .Offset(4).Value = IIf(CheckBox4.Value, "", "X")
        .Offset(5).Value = IIf(CheckBox5.Value, "", "X")
        .Offset(6).Value = IIf(CheckBox13.Value, "", "X")
        .Offset(7).Value = IIf(CheckBox12.Value, "", "X")
        .Offset(8).Value = IIf(CheckBox16.Value, "", "X")
        .Offset(9).Value = IIf(CheckBox9.Value, "", "X")
        .Offset(10).Value = IIf(CheckBox14.Value, "", "X")
    End With

Display More