
Function interseca(table As Range, find_in_row As String, find_in_column As String) As String
Dim r As Range, c As Range
Set r = table.Columns(1).Find(find_in_row)
If r Is Nothing Then interseca = "#N/D(R)": Exit Function
Set c = table.Rows(1).Find(find_in_column)
If c Is Nothing Then interseca = "#N/D(C)": Exit Function
interseca = Cells(r.Row, c.Column)
End Function |
