Я продолжаю получать сообщение об ошибке в своем заявлении if, я не совсем уверен, что я делаю неправильно, любая помощь с этим была бы очень признательна.
lr = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To lr
DynamicLR = Sheets("RA Inventory").Cells(Rows.Count, 1).End(xlUp).Row
'If Application.WorksheetFunction.IsNumeric(Application.WorksheetFunction.Match(ActiveSheet.Range("D" & i), Sheets("RA Inventory").Range("D2:D" & DynamicLR), 0)) = False Then
If Application.WorksheetFunction.IfError(Application.WorksheetFunction.IsNumber(Application.WorksheetFunction.Match(ActiveSheet.Range("D" & i), Sheets("RA Inventory").Range("D:D").Select, 0)), False) = False Then
ActiveSheet.Range("A" & i).Select
Selection.Copy
Worksheets("RA Inventory").Activate
ActiveSheet.Range("A" & DynamicLR).Select
ActiveSheet.Paste
Спасибо