Column navigation by headers

[teodormircea]

Hello Forum,

I'd like to know if there is a possibility to go directly to a column in a sheet by the header name.

If a have the column serial i , the macro will point me directly to this column.

Thanks.

 

[Richard Schollar]

Hi

You could identify the column header by using the Find method eg:

Dim rng As Range
Set rng = Activesheet.Rang("1:1").Find("YourHeaderNameHere")
 
If Not rng Is Nothing Then rng.Select

 

[teodormircea]

Thanks but is giving me an error, on this line
Set rng = ActiveSheet.Rang("1:1").Find("TEST"), it doesn't support the property or method

 

[Richard Schollar]

Set rng = ActiveSheet.Range("1:1").Find("TEST")

I had a typo in the code.

 

[teodormircea]

, THANKS

 

[teodormircea]

Hello again , i have a problem with this method,

if i have in a sheet 2 columns that have :OCOST and NCOST column's header, this macro doesn't make the difference between them .

 

[teodormircea]

Found a new approach
Private Sub CommandButton18_Click()
Dim FindString As String
Dim Rng As Range
FindString = "COSTCTR"
If Trim(FindString) <> "" Then
With ActiveSheet.Range("1:1")
Set Rng = .Find(What:=FindString, _
After:=.Cells(.Cells.Count), _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
If Not Rng Is Nothing Then
Application.Goto Rng, True
Else
MsgBox "Nothing found"
End If
End With
End If

End Sub