KTF yazmıştım.
Kullanmım örnekleri

Dediğiniz aşağı olayınada sonra bakayım.

Function getirGram(aranan1 As String, alan1 As Range, _

                  aranan2 As String, alan2 As Range, _

                  aranan3 As String, alan3 As Range)



    Dim kacinci1 As Integer

    Dim kacinci2 As Integer

    Dim kacinci3 As Integer

    Const SatirBaslangic As Byte = 11

    

    Application.Volatile

    On Error Resume Next

    kacinci1 = WorksheetFunction.Match(aranan1, alan1, 0) + SatirBaslangic

    kacinci2 = WorksheetFunction.Match(aranan2, alan2, 0) + SatirBaslangic

    kacinci3 = WorksheetFunction.Match(aranan3, alan3, 0)

    On Error GoTo 0

    If kacinci1 > 0 And kacinci2 > 0 And kacinci3 > 0 Then

        getirGram = ThisWorkbook.Sheets("REÇETELER").Cells(kacinci1, kacinci3).Value

    Else

        getirGram = ""

    End If

End Function

Function getirAd(aranan1 As String, alan1 As Range, _

                aranan2 As String, alan2 As Range) As String



    Dim kacinci1 As Integer

    Dim kacinci2 As Integer

    Const SatirBaslangic As Byte = 10

    

    Application.Volatile

    On Error Resume Next

    kacinci1 = WorksheetFunction.Match(aranan1, alan1, 0) + SatirBaslangic

    kacinci2 = WorksheetFunction.Match(aranan2, alan2, 0)



    On Error GoTo 0

    If kacinci1 > 0 And kacinci2 > 0 Then

        getirAd = ThisWorkbook.Sheets("REÇETELER").Cells(kacinci1, kacinci2).Value

    Else

        getirAd = ""

    End If

End Function