Reading the row number with VBA

Hi Johan,

Show your UDF code.

More generally, use the Row property which returns the (first) row number of
the range.


---
Regards,
Norman



"johan@durban" <johandurban.27l1zy_1147249800.9799@excelforum-nospam.com>
wrote in message
news:johandurban.27l1zy_1147249800.9799@excelforum-nospam.com...
>
> Hi Everyone
> I have a little UDF that will look for a value in a row and then return
> the value next to it.
> It works well but I need to supply the row number on which the function
> resides as an input parameter. There MUST be a way te read the row
> number automatically. Something like getrow() or whatever.
> Any sugestions would be appreciated.
>
>
> --
> johan@durban
> ------------------------------------------------------------------------
> johan@durban's Profile:
> http://www.excelforum.com/member.php...o&userid=34266
> View this thread: http://www.excelforum.com/showthread...hreadid=540570
>

Hi Johan,

see help for caller property

Regards,
Ivan

Not sure what your function does, but

Function gd()
gd = ActiveCell.row

End Function


returns the row number of the active cell at the time the value is
entered - possibly a little unsafe as for example you can't autofill it

iRow = Application.Caller.Row

HTH
--
AP

"johan@durban" <johandurban.27l1zy_1147249800.9799@excelforum-nospam.com> a
écrit dans le message de news:
johandurban.27l1zy_1147249800.9799@e...rum-nospam.com...
>
> Hi Everyone
> I have a little UDF that will look for a value in a row and then return
> the value next to it.
> It works well but I need to supply the row number on which the function
> resides as an input parameter. There MUST be a way te read the row
> number automatically. Something like getrow() or whatever.
> Any sugestions would be appreciated.
>
>
> --
> johan@durban
> ------------------------------------------------------------------------
> johan@durban's Profile:
> http://www.excelforum.com/member.php...o&userid=34266
> View this thread: http://www.excelforum.com/showthread...hreadid=540570
>

Hi everyone
That was wonderful response in such a short time.
I am now exploring rather using a range but I am going to try this caller thing first.
Here is my code:

Function linelookup(find_val As String, c1 As String, c2 As String, cur_row As Long) As String
myrange = c1 & cur_row
startcol = Sheets(1).Range(myrange).Column
myrange = c2 & 1
endcol = Sheets(1).Range(myrange).Column
For i = startcol To endcol
  If Sheets(1).Cells(cur_row, i).Value = find_val Then
     linelookup = Sheets(1).Cells(cur_row, (i + 1)).Value
     i = endcol
  End If
Next i

Hi
Activecell.row will do it.

regards
Paul