VBA second match with two column criteria - vba

Question

I'm trying to develop a code that brings the nth matching which is selected by the user, I already found a code that execute this but only with only one column
I want to get the third occurence of string "castro" but with the row value a2 which is "19". any suggestions?
below is the code I used to get the second ocurrence but only using one column.
Sub test1()
Dim teste As String
teste = VLOOKUPNTH("prysmian", Range("B1:C22"), 2, 2)
End Sub
Function VLOOKUPNTH(lookup_value, table_array As Range, col_index_num
As Integer, nth_value)
Dim nRow As Long
Dim nVal As Integer
Dim bFound As Boolean
VLOOKUPNTH = "No Match"
With table_array
For nRow = 1 To .Rows.Count
If .Cells(nRow, 1).Value = lookup_value Then
nVal = nVal + 1
End If
If nVal = nth_value Then
VLOOKUPNTH = .Cells(nRow, col_index_num).Text
Exit Function
End If
Next nRow
End With
End Function
the table
A B C
a1 castro 1
a1 castro 3
a1 castro 4
a1 castro 5
a1 castro 6
a1 castro 7
a2 castro 17
a2 castro 18
a2 castro 19
a2 castro 20
a2 castro 21
a2 castro 22
a2 castro 23

Answer 1

I modified your code so that it will check two columns.
1. Changed the range to include column A
2. Changed the column offsets to allow for the added column.
Option Explicit
Sub test1()
Dim teste As String
teste = VLOOKUPNTH("castro", Range("A1:C22"), 3, 3)
Debug.Print "Result: " & teste
End Sub
Function VLOOKUPNTH(lookup_value, table_array As Range, col_index_num As Integer, nth_value As Integer) As String
Dim nRow As Long
Dim nVal As Integer
Dim bFound As Boolean
VLOOKUPNTH = "No Match"
With table_array
For nRow = 1 To .Rows.Count
' Must match both columns to be counted.
If .Cells(nRow, 2).Value = lookup_value And .Cells(nRow, 1).Value = "a2" Then
nVal = nVal + 1
End If
If nVal = nth_value Then
' Now we have found the nth occurence of the lookup value.
VLOOKUPNTH = .Cells(nRow, col_index_num).Text
Exit Function
End If
Next nRow
End With
End Function