Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to find a column
In VBA, how would I find a specific column ? I want the function
to return the column number of a column named "Sample" Many Thanks |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to find a column
Hi Jon
If it is a named range MsgBox Range("Sample").Cells(1).Column If you have a header with that name Try this for the first row in Sheets("sheet1") Sub test() Dim FindString As String Dim Rng As Range FindString = "Sample" Set Rng = Sheets("sheet1").Range("1:1").Find(What:=FindStrin g, _ After:=Range("A1"), _ LookIn:=xlFormulas, _ LookAt:=xlWhole, _ SearchOrder:=xlByRows, _ SearchDirection:=xlNext, _ MatchCase:=False) If Not Rng Is Nothing Then MsgBox Rng.Column End Sub -- Regards Ron de Bruin http://www.rondebruin.nl "Jon Turner" wrote in message ... In VBA, how would I find a specific column ? I want the function to return the column number of a column named "Sample" Many Thanks |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to find a column
Ron addressed one possibility - here is another:
If you mean sample is text contained in the first row Dim rng as Range set rng = rows(1).Find("Sample") if not rng is nothing then rng.Entirecolumn.Select else msgbox "Sample not found" End if -- Regards, Tom Ogilvy "Jon Turner" wrote in message ... In VBA, how would I find a specific column ? I want the function to return the column number of a column named "Sample" Many Thanks |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
FInd common data in one column then add number in adjacent column | Excel Worksheet Functions | |||
How to find duplicate cells in Column a & retrieve column B | Excel Discussion (Misc queries) | |||
find last row value in column when using MATCH to find column | Excel Worksheet Functions | |||
Find something in column a then find if column B matches criteria | Excel Discussion (Misc queries) | |||
Find First Non blank cell than find column header and return that value | Excel Worksheet Functions |