Determining Column Number 1

[sabascal]

Given a line containing column title. Is there a build in VBA function that takex as argument a string an that return the column number where this string is?

 

[acron]

I'm not sure I understand what you want, but

[tab]Cells.Columns("B&quot.Column

will return 2.

Does that help ?

A.C.

 

[sabascal]

Sorry for my approximate description
Row 1 contains names: "Attribute 1", "Attribute 2",....
Given an attribute name how can I get the column number?

 

[SQLBI]

A variation on AC's answer would be.

ActiveCell.Column

This will return the column ref of the active cell.

Leigh Moore
Solutions 4 MS Office Ltd

http://www.solutions4msoffice.co.uk

 

[sabascal]

This is not addressing my problem.
I need a function that take as argument my attribute name and that return to me the column number where it is stored

 

[SQLBI]

This should do the trick. It assumes that your titles are in Row1 of Sheet1, but can be modified to suit your WorkSheet.

Public Sub PassArg()

Dim strArg As String
Dim intColumn As Integer

strArg = ""

'Code to assign the value which you're looking for.

intColumn = ColumnRef(strArg)

End Sub

Public Function ColumnRef(strArg As String) As Integer

Sheet1.Select
Cells(1, 1).Select

Do Until ActiveCell.Value = strArg

    ActiveCell.Offset(0, 1).Select

Loop

    ColumnRef = ActiveCell.Column

End Function

Hope this helps.

Leigh Moore
Solutions 4 MS Office Ltd

http://www.solutions4msoffice.co.uk

 

[acron]

Try ,

Function ColumnNumber(rng As String, str As String) As Integer
    With Worksheets(1).Range(rng)
        Set c = .Find(str, LookIn:=xlValues)
        If Not c Is Nothing Then
            ColumnNumber = c.Column
        Else
            ColumnNumber = 0
        End If
    End With
End Function

In your example you would use

[tab]=ColumnNumber("1:1","Atribute 1&quot

Where "1:1" is the range (row 1, in this example) you wnat to search in.

A.C.

 

[SkipVought]

Function LookupCol(str As String) As Integer
  LookupCol = Range("1:1").Find(str).Column
End Function

Skip,
Skip@TheOfficeExperts.com

http://www.TheOfficeExperts.com

 

[sabascal]

I like this one thanks