Select and move range throughout workbook
How would I select a range from column C to column E to the end of text
(all rows down where there is text), cut and move down 2 rows to Row 3, over to column A and paste through all spreadsheets that have information? Then delete row 1 in each spreadsheet? |
Select and move range throughout workbook
This is really clunky and keep in mind I'm no pro, but it worked for me and
I hope it will do what you are wanting. I grouped all the sheets together ... I think that's what you wanted(?), if not, write back, I'm sure one of the pros can help. Sub SelectNMove() Worksheets.Select Sheets("Sheet1").Activate range("c1:E1").Select range(Selection, Selection.End(xlDown)).Select Selection.Cut range("A3").Select ActiveSheet.Paste range("A1").Select Selection.EntireRow.delete range("B1").Select Selection.delete Shift:=xlToLeft range("A1").Select Selection.EntireRow.delete End Sub "ExcelBeginner" wrote in message ... How would I select a range from column C to column E to the end of text (all rows down where there is text), cut and move down 2 rows to Row 3, over to column A and paste through all spreadsheets that have information? Then delete row 1 in each spreadsheet? |
Select and move range throughout workbook
This would work if all the sheets had the same number of rows, but all the
sheets have different number of rows. Do you know how to run it so it can determine the length or ending rows in each sheet? "Annette" wrote in message ... This is really clunky and keep in mind I'm no pro, but it worked for me and I hope it will do what you are wanting. I grouped all the sheets together .. I think that's what you wanted(?), if not, write back, I'm sure one of the pros can help. Sub SelectNMove() Worksheets.Select Sheets("Sheet1").Activate range("c1:E1").Select range(Selection, Selection.End(xlDown)).Select Selection.Cut range("A3").Select ActiveSheet.Paste range("A1").Select Selection.EntireRow.delete range("B1").Select Selection.delete Shift:=xlToLeft range("A1").Select Selection.EntireRow.delete End Sub "ExcelBeginner" wrote in message ... How would I select a range from column C to column E to the end of text (all rows down where there is text), cut and move down 2 rows to Row 3, over to column A and paste through all spreadsheets that have information? Then delete row 1 in each spreadsheet? |
All times are GMT +1. The time now is 06:02 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com