Good Day!
I have a multiple checkbox with corresponding string on it, if the user check the first checkbox then click the submit button, the specific string will move to a specific Row(G5), but if the user check multiple checkbox the string will move to ROW(G5, G6, G7) depending on how many checkbox were check.
Here is my code:
Private Sub CommandButton4_Click()
Dim RowCounter
RowCounter = 0
RowCount = Worksheets("Sheet1").Range("A1").CurrentRegion.Rows.count
With Worksheets("Sheet1").Range("A1")
If CheckBox1.Value = True Then
.Offset(RowCount + RowCounter, 6).Value = .Offset(RowCount + RowCounter, 6).Value & vbCrLf & "Unable to remove footer"
RowCounter = RowCounter + 1
Else:
.Offset(RowCount, 6).Value = ""
End If
If CheckBox2.Value = True Then
.Offset(RowCount + RowCounter, 6).Value = .Offset(RowCount + RowCounter, 6).Value & vbCrLf & "Unable to use PMSectionHead as First Level header/section"
RowCounter = RowCounter + 1
Else:
.Offset(RowCount, 6).Value = ""
End If
End With
End Sub
The only problem here if I check the first check box the string doesn't transfer for first Available Row (G5).
Thank you and hoping for a response.
Bookmarks