If you search a value in a column in Excel the following method will be of use.
Source Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
' @Author - Alexander Bolte' @ChangeDate - 2013-02-23' @Param searchString - a string beeing sought.' @Param searchCol - a column in given worksheet beeing searched.' @Param searchSheet - a worksheet beeing searched.' @Description - Searches for the first occurance of a string in a given column in a given worksheet.' @Returns - 0, if the searched string was NOT found. Otherwise the row index the searched string was found in.PublicFunctionfindRowXlWhole(ByValsearchStringAsString,ByValsearchColAsInteger,ByRefsearchSheetAsWorksheet)AsLongDimmyRowAsLongDimsearchRangeAsRangeSetsearchRange=searchSheet.Columns(searchCol)SetsearchRange=searchRange.find(searchString,,xlValues,xlWhole)IfNot(searchRangeIsNothing)ThenmyRow=searchRange.RowEndIffindRowXlWhole=myRowEndFunction