Need help writing UDF to determine the Row number of a value

p45cal · #1 07-29-2022, 06:48 AM

Change your formula in cell B2 to say:

=matchrow(A2,$C$1:$N$10)
copy down if you want.
Put values you're looking for in column A next to the formulae.

Remove all the Dims at the top of the code-module.

Change your function to:

Code:

Function matchrow(x, interval)
Dim a As Range
Set a = interval.Find(x, LookIn:=xlValues, lookat:=xlWhole, MatchCase:=False, searchformat:=False)
If Not a Is Nothing Then matchrow = a.Row Else matchrow = "Not found"
End Function

soroush.kalantari · #2 07-29-2022, 08:07 PM

Quote:

Originally Posted by p45cal

Change your formula in cell B2 to say:
=matchrow(A2,$C$1:$N$10)
copy down if you want.
Put values you're looking for in column A next to the formulae.

Remove all the Dims at the top of the code-module.

Change your function to:

Code:

Function matchrow(x, interval)
Dim a As Range
Set a = interval.Find(x, LookIn:=xlValues, lookat:=xlWhole, MatchCase:=False, searchformat:=False)
If Not a Is Nothing Then matchrow = a.Row Else matchrow = "Not found"
End Function

Thank you veru much. The problem was solved.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How to determine if a Section number has a field code	scienceguy	Word VBA	8	11-11-2021 05:19 AM
Word writing {PAGE} instead of inserting page number	Johanna	Word	5	07-04-2019 07:56 AM
Determine if a cell contains a 0 value	bgranzow	Word VBA	1	01-07-2016 03:50 PM
Is there a way programmatically to determine the footnote number style, if other than arabic numbers	gn4619	Word VBA	2	11-23-2015 11:00 PM
Edit number of characters per page after writing whole paper	dea	Word	1	01-04-2011 02:24 AM