Need to delete columns based on Column header
Solved/Closed
Related:
- Vba code to delete columns based on header
- Www.gameloft.com unlock code ✓ - Phones, PDA & GPS Forum
- How to get whatsapp verification code online - Guide
- Samsung keypad reset code - Guide
- Battery reset code - Guide
- Samsung volume increase code - Guide
5 responses
TrowaD
Posts
2921
Registration date
Sunday September 12, 2010
Status
Moderator
Last seen
December 27, 2022
552
Nov 30, 2010 at 09:56 AM
Nov 30, 2010 at 09:56 AM
If you want to use this for other workbooks as well, you will have to define more ranges like:
Note that "cell", "MR" (My Range) and "MRB1" (My Range Book 1) can be changed into anything to make the code more understandable/readable for you.
Best regards,
Trowa
Sub test() Set MR = Range("A1:E1") Set MRB1 = Workbooks("Book1").Worksheets("Sheet1").Range("A1:E1") For Each cell In MR If cell.Value = "Address1" Or cell.Value = "Address2" Then cell.EntireColumn.Delete Next For Each cell In MRB1 If cell.Value = "Address1" Or cell.Value = "Address2" Then cell.EntireColumn.Delete Next End Sub
Note that "cell", "MR" (My Range) and "MRB1" (My Range Book 1) can be changed into anything to make the code more understandable/readable for you.
Best regards,
Trowa