VBA Make formula into a Function for Pairs

[Stephen_IV]

Good afternoon,

I am looking for some help with VBA code that will make a function for Matched Scores (Pairs). Column A is a pre test and Column B is a Post test. I would like to count how many matched scores there are in A1:B15 ( there are 11) . I am looking to use this as an add-in function.

Thanks in advance Stephen

Book1
	A	B	C	D	E	F	G
1	23	79					11
2	32	3
3	42	76
4	43	68
5		3
6	3	68
7	46	65
8	46
9	56	45
10	57	56
11	76	57
12	6	44
13		43
14	87	35
15		2
Sheet1

 

[shg]

How about ...

Function MatchedPairs(r1 As Range, r2 As Range) As Long
    MatchedPairs = Evaluate("sumproduct(isnumber(" & r1.Address & ")*isnumber(" & r2.Address & "))")
End Function

 

[Stephen_IV]

Thanks shg that will work just wondering if there is another way to do it without the Evaluate Sumproduct approach? Just trying to learn. Thanks in advance.

 

[shg]

There are many stories in the Naked City. This is just one.