Sub getir()
Dim son As Long, i As Long, kac As Long
agitutarý.Value = ""
If cocuk.Value = Empty Or medenihal.Value = Empty Then Exit Sub
With sh
On Error GoTo son
kac = WorksheetFunction.Match(medenihal, .Range("C:C"), 0)
son = .Cells(Rows.Count, "C").End(3).Row
If son < 2 Then Exit Sub
For i = kac To son
If medenihal.Value = WorksheetFunction.Index(.Range("C:C"), i) And Val(cocuk.Value) = .Cells(i, 4).Value Then
agitutarý.Value = .Cells(i, 5).Value
Exit For
End If
Next
End With
son:
End Sub
Kodda fazlalık olmuş abey.