Copy, next blank row?

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Richard - 25 Mar 2008 23:24 GMT

Private Sub CommandButton1_Click()
Worksheets("Schedule").Range("d1,a3:a100,b3:B100,d3: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!!

Reply to this Message

FSt1 - 26 Mar 2008 00:49 GMT

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).Offset(1, 0).PasteSpecial
xlPasteAll
Worksheets("sheet1").Range("a3:a100,b3:B100,d3:d100").ClearContents
End Sub

regards
FSt1

> Private Sub CommandButton1_Click()
> Worksheets("Schedule").Range("d1,a3:a100,b3:B100,d3:d100").ClearContents
[quoted text clipped - 6 lines]
> 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!!

Reply to this Message

Richard - 26 Mar 2008 01:38 GMT

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?

> hi
> test this out...(before you use it on live data)
[quoted text clipped - 18 lines]
> > 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!!

Reply to this Message

FSt1 - 26 Mar 2008 02:21 GMT

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

Regards
FSt1

> 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?
[quoted text clipped - 21 lines]
> > > 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!!

Reply to this Message