Checkbox to send values to first empty row on another sheet

[csimpson24]

Hi all,

I have added a checkbox, CheckBox1, to a sheet. When checked, I am trying to send the values of E29 and D29 to the first empty row, to columns A and C on a sheet called Sample.

Any help would be greatly appreciated.

Thanks,
Chris

 

[My Aswer Is This]

Try this:
Put this script in CheckBox1

I assume CheckBox1 is in same sheet as Range("E29") and Range("D29") are

Private Sub CheckBox1_Click()
'Modified  6/10/2019  3:46:40 PM  EDT
    If CheckBox1.Value = True Then
        Dim Lastrowa As Long
        Lastrowa = Sheets("Sample").Cells(Rows.Count, "A").End(xlUp).Row + 1
        Dim Lastrowc As Long
        Lastrowc = Sheets("Sample").Cells(Rows.Count, "C").End(xlUp).Row + 1
        Sheets("Sample").Cells(Lastrowa, "A").Value = ActiveSheet.Range("E29").Value
        Sheets("Sample").Cells(Lastrowc, "C").Value = ActiveSheet.Range("D29").Value
        CheckBox1.Value = False
    End If
End Sub

 

[csimpson24]

Amazing! Exactly what I needed. Thank you very much!

 

[My Aswer Is This]

Glad I was able to help you.
Come back here to Mr. Excel next time you need additional assistance.

Amazing! Exactly what I needed. Thank you very much!