|
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 |
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 |
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 |
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 |
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 |
| All times are GMT +1. The time now is 01:12 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com