Extract subrange from a range

[azer]

Hello and thank you for your time and help,

I am trying to create a function which would extract a subset from a given range depending on the values contained in another range. The final aim is to be able to use the Percentrank function on dynamically changeable groups

	A	B	C	D
1	Country	GPB	Group	Percentrank
2	Albania	5000	1	?
3	France	28000	2
4	Romania	6000	1
5	US	34000	2

<tbody>
</tbody>

The idea would to have something like Percentrank(subset(B2:B4, C2:C4, 1), B2) with the subset function returning the subset as a range.

I have started with something like this but am stuck on a few issues:

Function Subset(x As Range, y As Range, V As String) As Range


Dim z As Range
Dim c As Range


For Each c In x

' I don't see how to refer to the equivalent cell in y:
If ??.Value = Valeur Then


If Not z Is Nothing Then
Set z = Union(z, c)
Else
Set z = c
End If
End If
Next

'Even with a simple example I am unable to return a range:

Subset = z


End Function


Thank you in advance for your help

 

[azer]

Here's my latest try which doesn't work:

Function Subs(x As Range, y As Range, V As Integer) As Range

Dim z As Range
Dim c As Cell
Dim n As Integer

    For Each c In x.Cells[INDENT]Set n = c.Row[/INDENT]
[INDENT]If y(1, n).Value = Valeur Then[/INDENT]
[INDENT=2]If Not z Is Nothing Then[/INDENT]
[INDENT=3]Set z = Union(z, c)[/INDENT]
[INDENT=2]Else[/INDENT]
[INDENT=3]Set z = c[/INDENT]
[INDENT=2]End If[/INDENT]
[INDENT]End If[/INDENT]
    Next

Subs = z

End Function

Any thoughts?