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