Kodu alttaki gibi deneyin abey.

Sub getir()

    Dim son As Long, i As Long, ind As String, kac As Long

    agitutarý.Value = ""

    If cocuk = Empty Or medenihal = Empty Then Exit Sub

    With sh

        kac = WorksheetFunction.Match(medenihal, .Range("C:C"), 0)

        ind = WorksheetFunction.Index(.Range("C:C"), kac)

        son = .Cells(Rows.Count, "C").End(3).Row

        

        If son < 2 Then Exit Sub

        For i = kac To son

            If medenihal = WorksheetFunction.Index(.Range("C:C"), i) And Val(cocuk) = .Cells(i, 4).Value Then

                agitutarý.Value = .Cells(i, 5).Value

                Exit For

            End If

        Next

    End With

End Sub