Deleting Columns Via Macro

[trainer75]

Hi,
Hope someone can assist me, i have am new to the whole macro/formula experience and have spent 5 hours today trying different methods of trying to do this.

I have to run reports every week and need to streamline how long it take me to do, so i want to delete out columns in excel that i do not need, only thing is week by week the number of columns changes so cannot use a fixed formula/macro, so started looking at deleting via certain text in one of the cells, which i done by the following:-
Ctrl F chose find and entered the data, then Find All, Selected Ctrl A to highlight all values with the data required, closed down dialog box and then right click delete entire column, job done but when i done this in a macro it deleted the whole sheet.

Hope someone can help me,
Thank you in advance

 

[InfoH]

Hi..

You would do something like the following:

Columns("F:N").Select
Selection.Delete Shift:=xlToLeft

 

[trainer75]

Thank you for a quick response.

Would i use this in the visual basics part?
its very weird what i am trying to do, i need the info from columns A,B,C,D then there is 2 more columns that this week will be in AM & AN but next week might be in BA & BB.

does that make sense?

 

[steve the fish]

What is the criteria for deleting the columns?

 

[trainer75]

there are 4 criteria
Adj Qty
Adj Crac
Gross Qty
Gross Value

these are a constant on every report and the ones i want to delete out

 

[steve the fish]

These are headers? Always in row 1?

 

[trainer75]

Hi Steve,
yes these are the headers
and in row 1 as i have another macro running to sort it to be in row 1

 

[steve the fish]

Try this on a COPY of your book:

Sub DeleteHeaders()

lastCol = Cells(1, Columns.Count).End(xlToLeft).Column

For i = lastCol To 1 Step -1

Select Case Cells(1, i).Value
Case "Adj Qty", "Adj Crac", "Gross Qty", "Gross Value"
Columns(i).Delete shift:=xlToLeft
End Select

Next

End Sub

 

[trainer75]

Hi Steve,

Thank you for this

It has worked apart from deleting out the Gross Value columns, will i need to adjust the column (i) to another value?

Your assistance is greatly appreciated

 

[steve the fish]

It didn't delete them? Click the cell that didn't delete. Does it have a space after the word?