Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Delete Rows and Sheets
Is there a better way to delete row 1 in Sheet1 than this
Sheets("Sheet1").Select Rows("1:1").Select Selection.Delete Shift:=xlUp Range("A1").Select Is there a better way to delete Column B in Sheet1 than this? Sheets("Sheet1").Select Columns("B:B").Select Selection.Delete Shift:=xlToLeft Is there a better way using Sheet1, to Cut Column D and paste the cut cells in front of Column A than this? Sheets("Sheet1").Select Columns("D:D").Select Selection.Cut Columns("A:A").Select Selection.Insert Shift:=xlToRight |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Delete Rows and Sheets
When you record a macro ;each single action is recorded....the below code
does the same 3 actions/// Sheets("Sheet1").Rows(1).Delete Sheets("Sheet1").Columns(1).Delete Columns("A:A").Insert Shift:=xlToRight If this post helps click Yes --------------- Jacob Skaria "Sal" wrote: Is there a better way to delete row 1 in Sheet1 than this Sheets("Sheet1").Select Rows("1:1").Select Selection.Delete Shift:=xlUp Range("A1").Select Is there a better way to delete Column B in Sheet1 than this? Sheets("Sheet1").Select Columns("B:B").Select Selection.Delete Shift:=xlToLeft Is there a better way using Sheet1, to Cut Column D and paste the cut cells in front of Column A than this? Sheets("Sheet1").Select Columns("D:D").Select Selection.Cut Columns("A:A").Select Selection.Insert Shift:=xlToRight |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Delete Rows and Sheets
You can avoid the Workbook and sheetname..
With ActiveWorkbook.Sheets("Sheet1") ..Rows(1).Delete ..Columns(1).Delete ..Columns("D:D").Cut ..Columns("A:A").Insert Shift:=xlToRight End With If this post helps click Yes --------------- Jacob Skaria "Jacob Skaria" wrote: When you record a macro ;each single action is recorded....the below code does the same 3 actions/// Sheets("Sheet1").Rows(1).Delete Sheets("Sheet1").Columns(1).Delete Columns("A:A").Insert Shift:=xlToRight If this post helps click Yes --------------- Jacob Skaria "Sal" wrote: Is there a better way to delete row 1 in Sheet1 than this Sheets("Sheet1").Select Rows("1:1").Select Selection.Delete Shift:=xlUp Range("A1").Select Is there a better way to delete Column B in Sheet1 than this? Sheets("Sheet1").Select Columns("B:B").Select Selection.Delete Shift:=xlToLeft Is there a better way using Sheet1, to Cut Column D and paste the cut cells in front of Column A than this? Sheets("Sheet1").Select Columns("D:D").Select Selection.Cut Columns("A:A").Select Selection.Insert Shift:=xlToRight |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Delete Rows and Sheets
Perfect! Thank you
"Jacob Skaria" wrote: When you record a macro ;each single action is recorded....the below code does the same 3 actions/// Sheets("Sheet1").Rows(1).Delete Sheets("Sheet1").Columns(1).Delete Columns("A:A").Insert Shift:=xlToRight If this post helps click Yes --------------- Jacob Skaria "Sal" wrote: Is there a better way to delete row 1 in Sheet1 than this Sheets("Sheet1").Select Rows("1:1").Select Selection.Delete Shift:=xlUp Range("A1").Select Is there a better way to delete Column B in Sheet1 than this? Sheets("Sheet1").Select Columns("B:B").Select Selection.Delete Shift:=xlToLeft Is there a better way using Sheet1, to Cut Column D and paste the cut cells in front of Column A than this? Sheets("Sheet1").Select Columns("D:D").Select Selection.Cut Columns("A:A").Select Selection.Insert Shift:=xlToRight |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Delete Rows and Sheets
Excellent. Thank you for the help.
"Jacob Skaria" wrote: You can avoid the Workbook and sheetname.. With ActiveWorkbook.Sheets("Sheet1") .Rows(1).Delete .Columns(1).Delete .Columns("D:D").Cut .Columns("A:A").Insert Shift:=xlToRight End With If this post helps click Yes --------------- Jacob Skaria "Jacob Skaria" wrote: When you record a macro ;each single action is recorded....the below code does the same 3 actions/// Sheets("Sheet1").Rows(1).Delete Sheets("Sheet1").Columns(1).Delete Columns("A:A").Insert Shift:=xlToRight If this post helps click Yes --------------- Jacob Skaria "Sal" wrote: Is there a better way to delete row 1 in Sheet1 than this Sheets("Sheet1").Select Rows("1:1").Select Selection.Delete Shift:=xlUp Range("A1").Select Is there a better way to delete Column B in Sheet1 than this? Sheets("Sheet1").Select Columns("B:B").Select Selection.Delete Shift:=xlToLeft Is there a better way using Sheet1, to Cut Column D and paste the cut cells in front of Column A than this? Sheets("Sheet1").Select Columns("D:D").Select Selection.Cut Columns("A:A").Select Selection.Insert Shift:=xlToRight |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Delete rows of data in multiple sheets | Excel Programming | |||
Complex sheets - how can I delete rows without destroying formulas? | Links and Linking in Excel | |||
Delete rows in multiple sheets without loop? | Excel Programming | |||
How can I delete similar rows in excel workbook with many sheets? | Excel Worksheet Functions | |||
Delete Rows from multiple Sheets. | Excel Programming |