What I need: find certain string in header's row and get column number.
Yes, of course, I can make loop for examine each column in first row:
Function getFieldColumn(s As Worksheet, ByVal sName As String) As IntegerDim iCol As Integer iCol = 1 While s.Cells(1, iCol) <> "" If UCase(s.Cells(1, iCol)) = UCase(sName) Then getFieldColumn = iCol Exit Function End If iCol = iCol + 1 WendEnd Function
2. Please explain how to setup limit for search only in 1st (or in Nst) row?
3. How to make Excel 2003 compatible code?
Thanks again!
redmondb
Thanks, Last_Free_Man!
1. Why "LookIn:=xlFormulas,"? (not LookIn:=xlValues)
Good question - probably because I had just finished working on something where it was important to use formulas rather than values.
2. Please explain how to setup limit for search only in 1st (or in Nst) row?
In the Find statement, Range("1:1") already limits it to row 1 - simply change the "1:1" to whatever address you wish to use instead.
3. How to make Excel 2003 compatible code?
I don't see anything in my code that would cause issues with 2003. Are you getting an error?
Very nice code! Thanks!
Quetions:
1. Why "LookIn:=xlFormulas,"? (not LookIn:=xlValues),
2. Please explain how to setup limit for search only in 1st (or in Nst) row?
3. How to make Excel 2003 compatible code?
Thanks again!