VBA - Select column if value in row 1 equals

[martin_j_king]

Hi All,

Have a csv file which is a data dump from a db. Unfortunately, can't query the db direct because no sybase drivers.

certain columns are copied from the csv to the workbook which has summary reports.

Currently, my macro selects specific columns, or at the moment all the columns, because the column positions are changing constantly.

Is there a way which I can basically:
Search row 1, starting from A untill the last cell with data (no point searching blank) and if i find the word "total_p&l", select that column. I don't need it to store this info, just select the column.

I've been playing around with loops, if cell equals then select active column, if not move right on but i'm still not quite at the level to write full code without some help from the recorder.

thanks

 

[AlphaFrog]

Search row 1, starting from A untill the last cell with data (no point searching blank) and if i find the word "total_p&l", select that column. I don't need it to store this info, just select the column.

<font face=Courier New>    Range("1:1").Find(What:="total_p&l", _<br>                      LookIn:=xlValues, _<br>                      LookAt:=xlWhole, _<br>                      MatchCase:=False).EntireColumn.Select</FONT>

The .Find method

 

[martin_j_king]

Thanks for that, never knew there was a find method. The article was very useful, given me ideas for other processes. Back ground as to how it works was much appreciated