Pls explain the below macro.

[Vincent paul]

Hi,

Im just started to learn macros.
In below code why tempindex assigend as 1 and what is difference between exit function and end function.

Function EGLookup(SearchRange As Range, SearchValue As String, RetreiveRange As Range)
Dim TempIndex As Double
TempIndex = 1
For Each cell In SearchRange
If CStr(LCase(cell.Value)) = CStr(LCase(SearchValue)) Then
EGLookup = RetreiveRange.Rows(TempIndex).Value
Exit Function
End If
TempIndex = TempIndex + 1
Next
End Function

 

[onlyadrafter]

Hello,

having only quickly looked at the code, it seems to be some sort of looping code, which starts at Row 1.

Exit Function is there to stop the code during a specific event, in this case, when this occurs

If CStr(LCase(cell.Value)) = CStr(LCase(SearchValue)) Then

End Function is there so that particular function has an end point, if you have more than one function in the code, the program knows where to stop and start. It's basically the natural ending of the code.

 

[Andrew Poulsom]

If TempIndex isn't initialised to 1 it will be zero, and the index into RetrieveRange would be 1 less than it should be. Exit Function ends the function if a match is found - there is no point continuing the loop.