How To copy A Certain cell Into A New Sheet When Check Box Is Checked In Excel?

[Michelle05]

Hello Everyone,

I know this one pretty easy for you guys but I hope you can help me. I have a list of inventory stocks. Everyday I need to fax a list of stocks that needs to be taken out from the warehouse and I cannot avoid having a mistake of writing the wrong number. So I was wondering if I could just tick a check box and it copies the number to another sheet, then it would be efficient for me instead of copying the numbers one at a time. Thank you very much.

 

[SteveO59L]

something along the lines of

Sub CheckBox1_Click()
Dim lr As Long
Dim part_no As String

part_no = Range("a4").Value
Sheets("sheet2").Activate
lr = Range("a" & Rows.Count).End(xlUp).Row + 1
Range("a" & lr) = part_no
Sheets("sheet1").Activate
End Sub

 

[Michelle05]

Yes, It doesn't work. I just tried it.

something along the lines of

Sub CheckBox1_Click()
Dim lr As Long
Dim part_no As String

part_no = Range("a4").Value
Sheets("sheet2").Activate
lr = Range("a" & Rows.Count).End(xlUp).Row + 1
Range("a" & lr) = part_no
Sheets("sheet1").Activate
End Sub

 

[SteveO59L]

send me a pm with your e-mail, and I will send you a sample sheet