Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
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!! |
#2
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
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!! |
#3
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
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!! |
#4
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
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!! |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Copy Data from Row 1 to last blank row in next worksheet | Excel Worksheet Functions | |||
how to copy blank cells | Excel Discussion (Misc queries) | |||
COPY A CONCATENATE CELL TO BLANK CELL PUTTING IN THE NEXT BLANK C. | Excel Discussion (Misc queries) | |||
copy blank cells | Excel Discussion (Misc queries) | |||
copy blank cells | Excel Discussion (Misc queries) |