Copy, next blank row?
 

Private Sub CommandButton1_Click()
Worksheets("Schedule").Range("d1,a3:a100,b3:B100,d 3:d100").ClearContents
Worksheets("Sent to Assembly").Range("a3:a100,b3:b100").ClearContents
End Sub

I'm trying to send the results from these to sheets to another sheet named
"Parts Sent to Assembly" then clearing these two sheets. Then the next time
these two sheets are cleared those results are sent to the next blank row on
the "Parts Sent to Assembly" and so on. Some kind of row count, next blank
row. Thanks in advance. I'm really having a hard time with this!!

Copy, next blank row?
 

hi
test this out...(before you use it on live data)
Private Sub CommandButton1_Click()
Worksheets("Sheet1").Range("A3:B100,D3:D100").Copy
Worksheets("sheet2").Range("a65000").End(xlUp).Off set(1, 0).PasteSpecial
xlPasteAll
Worksheets("sheet1").Range("a3:a100,b3:B100,d3:d10 0").ClearContents
End Sub

regards
FSt1

"Richard" wrote:

Private Sub CommandButton1_Click()
Worksheets("Schedule").Range("d1,a3:a100,b3:B100,d 3:d100").ClearContents
Worksheets("Sent to Assembly").Range("a3:a100,b3:b100").ClearContents
End Sub

I'm trying to send the results from these to sheets to another sheet named
"Parts Sent to Assembly" then clearing these two sheets. Then the next time
these two sheets are cleared those results are sent to the next blank row on
the "Parts Sent to Assembly" and so on. Some kind of row count, next blank
row. Thanks in advance. I'm really having a hard time with this!!

Copy, next blank row?
 

Thank you so much!!! Thats exactly what I needed, I get an error with the
xlPasteAll, so I took it out, do I need it?

"FSt1" wrote:

hi
test this out...(before you use it on live data)
Private Sub CommandButton1_Click()
Worksheets("Sheet1").Range("A3:B100,D3:D100").Copy
Worksheets("sheet2").Range("a65000").End(xlUp).Off set(1, 0).PasteSpecial
xlPasteAll
Worksheets("sheet1").Range("a3:a100,b3:B100,d3:d10 0").ClearContents
End Sub

regards
FSt1

"Richard" wrote:

Private Sub CommandButton1_Click()
Worksheets("Schedule").Range("d1,a3:a100,b3:B100,d 3:d100").ClearContents
Worksheets("Sent to Assembly").Range("a3:a100,b3:b100").ClearContents
End Sub

I'm trying to send the results from these to sheets to another sheet named
"Parts Sent to Assembly" then clearing these two sheets. Then the next time
these two sheets are cleared those results are sent to the next blank row on
the "Parts Sent to Assembly" and so on. Some kind of row count, next blank
row. Thanks in advance. I'm really having a hard time with this!!

Copy, next blank row?
 

hi
if it works, take it out.
it didn't cause an error for me.

Regards
FSt1

"Richard" wrote:

Thank you so much!!! Thats exactly what I needed, I get an error with the
xlPasteAll, so I took it out, do I need it?

"FSt1" wrote:

hi
test this out...(before you use it on live data)
Private Sub CommandButton1_Click()
Worksheets("Sheet1").Range("A3:B100,D3:D100").Copy
Worksheets("sheet2").Range("a65000").End(xlUp).Off set(1, 0).PasteSpecial
xlPasteAll
Worksheets("sheet1").Range("a3:a100,b3:B100,d3:d10 0").ClearContents
End Sub

regards
FSt1

"Richard" wrote:

Private Sub CommandButton1_Click()
Worksheets("Schedule").Range("d1,a3:a100,b3:B100,d 3:d100").ClearContents
Worksheets("Sent to Assembly").Range("a3:a100,b3:b100").ClearContents
End Sub

I'm trying to send the results from these to sheets to another sheet named
"Parts Sent to Assembly" then clearing these two sheets. Then the next time
these two sheets are cleared those results are sent to the next blank row on
the "Parts Sent to Assembly" and so on. Some kind of row count, next blank
row. Thanks in advance. I'm really having a hard time with this!!