Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Deleting selective columns
Hi, I have 25 columns. I need to write a macro which goes through each column and keeps: 1) Billing 2) GM 3) Total 4) Client 5) Project Name I guess its something like this, many thks sub del() Dim i As Long Dim aryTest aryTest = Array("Billing ", "GM", "Total","Client","Project Name") For i = 25 To 1 Step -1 If Not IsError(Application.Match(Cells(1, i).Value, aryTest, 0)) Then 'Keep Else 'Delete End If Next i End Sub -- T De Villiers ------------------------------------------------------------------------ T De Villiers's Profile: http://www.excelforum.com/member.php...o&userid=26479 View this thread: http://www.excelforum.com/showthread...hreadid=567538 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
filters for selective columns? | Excel Discussion (Misc queries) | |||
Copying Selective columns | Excel Programming | |||
Selective Deleting | Excel Programming | |||
Selective stacking of columns in a chart | Excel Discussion (Misc queries) | |||
Conditional/selective deleting | Excel Programming |