Add data from UserForm to next empty column

[hannahfo]

I'm relatively new to VBA but I am writing a code that basically brings up a Userform with CheckBoxes. Each employee is supposed to open up and submit their form each week. I have an If code set up and an automatic date stamp for the worksheet, but how to I make it so the column switched to the next open one with each submission, instead of over writing the data already submitted.

Here is my code so far:

Private Sub CommandButton1_Click()

Range("B1").Value = Now()


If CheckBox1.Value = True Then
Sheet2.Range("B2").Value = ""
Else
Sheet2.Range("B2").Value = "X"
End If


If CheckBox2.Value = True Then
Sheet2.Range("B3").Value = ""
Else
Sheet2.Range("B3").Value = "X"
End If


If CheckBox3.Value = True Then
Sheet2.Range("B4").Value = ""
Else
Sheet2.Range("B4").Value = "X"
End If

 

[Norie]

Is it definitely the next empty column?

If it is try this.

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", "")
    End With

End Sub

 

[hannahfo]

It is coming up with an error code saying "Compile Error: Sub or Function not defined"

 

[Norie]

Works fine for me, where do you get the error?

 

[hannahfo]

Fixed the error code but now nothing is coming up in the worksheet when I test the code.

Here is what I have including all Checkboxes.

Private Sub CommandButton1_Click()Dim rng As Range
    
    Set rng = Sheet2.Cells(1, Columns.Count).End(xlToLeft).Offset(0, 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


End Sub