post this code
// Enter here the actual content of the snippet.
Dim lrow As Long
//Specifies that when a run-time error occurs, control goes to the statement immediately following
//the statement where the error occurred, and execution continues from that point. Use this form rather than On Error GoTo when accessing objects.
On Error Resume Next
lrow = Application.WorksheetFunction.Match(Simpson_son_tarih, Worksheets("Data").Range("a1:a5000"), 0)
//Disables enabled error handler in the current procedure and resets it to Nothing.
On Error GoTo 0
If lrow > 0 Then
GetRowNum = lrow
If you want to be updated about similar snippets,
and follow our Channels