Hi folks
I have the following code...
Private Sub CommandButton1_Click()
Dim rRange1, rRange2 As Range
Set rRange1 = Worksheets("PL").Range("E100").End(xlUp).Offset(1, 0)
Set rRange2 = Worksheets("PL").Range("E100").End(xlUp).Offset(1, 1)
If CheckBox1.Value = True Then
rRange1.Value = CheckBox1.Caption
rRange2.Value = TextBox1.Value
End If
If CheckBox2.Value = True Then
rRange1.Value = CheckBox2.Caption
rRange2.Value = TextBox2.Value
End If
End Sub
I've set the rRange values as i dont want to keep typing it in, as there are a few checkboxes to go through. however when the code runs it overtypes everything in the first row.
I thought using the END(XLUP).OFFSET part would do what it normally does, but the range set seems to be ignoring this.
Any ideas???
Thanks
Bookmarks