Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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? |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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? |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
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? |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Select sheets ina workbook based on radio buttons and move them | Excel Worksheet Functions | |||
Select & Move Range | Excel Discussion (Misc queries) | |||
Cannot select single cell. Mouse move automatically creates range. | Excel Discussion (Misc queries) | |||
Open Workbook - Select Range as table for vlookup | Excel Discussion (Misc queries) | |||
RefEdit - cannot select range on another workbook | Excel Programming |