Without using a macro?
Not a chance
"Richard" wrote:
Is there a way to make this work without using a macro? Thanks in advance!!
Private Sub CommandButton1_Click()
Worksheets("Sent to Assembly").Range("A3:B100,c3:c100").Copy
Worksheets("Parts Sent to Assembly").Range("a65000").End(xlUp).Offset(1,
0).PasteSpecial
Worksheets("Sent to Assembly").Range("a3:a100,b3:B100").ClearContents
Worksheets("Schedule").Range("d1,L1,a3:a100,b3:B10 0,d3:d100").ClearContents
End Sub
|