deleting column automatically

[ehsas69]

Can I have formula or macro to automatically assigned to a button on the worksheet to delete the column A-M from worksheet 2.

Thanks.

 

[JohnDouglas]

paste the middle line into the code for the button

Sub deleterange()
Range("A:M").EntireColumn.Delete
End Sub

this will just work on the active worksheet though.

 

[JohnDouglas]

maybe this would be better to make sure you activate the right sheet.

Sub deleterange()
Sheet1.Range("A:M").EntireColumn.Delete
End Sub

 

[ehsas69]

THANKS.

IT DELETING ALL THE COLUMN WITH CONTENTS.I WANT TO DELETECONTAINS ONLY.

 

[JohnDouglas]

i don't quite understand.

maybe this will help
http://www.ozgrid.com/VBA/VBACode.htm

 

[ehsas69]

The link is deleting rows and not column.

Thanks

 

[marnie]

Do you want to clear the data leaving columns A-M blank and leaving column N the same or do you want do delete the columns so that column N becomes column A?

 

[ehsas69]

I want to clear the data leaving columns A-M blank and leaving column N the same

 

[Von Pookie]

In all fairness, your original post did request how to delete the columns--not the contents.

To remove the data from the columns, use ClearContents:

Sheets("Sheet2").Columns("A:M").ClearContents

 

[ehsas69]

Thanks a lot.It worked