Uygulama tanımlı veya Nesne tanımlı bir hata alıyorum?

İf if ifadesinde hatayı almaya devam ediyorum, neyi yanlış yaptığımdan tam olarak emin değilim, bununla ilgili herhangi bir yardım çok takdir edilebilir.

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

Teşekkürler

Eğer uncommented hakkında konuşuyorsanız if- seçmenize gerek yoktur ve sentaktik şekeri kullanabilirsiniz:

If [iferror(isnumber(match(A1,B:B,0)),false)] = True Then
     MsgBox ("True")
     Else: MsgBox ("False")
end if

Mesafeleri tıpkı fonksiyonlarla olduğu gibi yapın, örn. Sheet1!B:B

Ayrıca, worksheetfunctionhangisinin hatalara izin vereceğini de çıkarabilirsiniz (formülünüz hata verirse)

With Application
   if .iferror(.isnumber(.match( ... 
end with

Temel olarak, 'eşleşmeniz' verileri doğru şekilde göstermiyor. Hata 2015 - bu belgeye bakın

Daha büyük bir sorun bununla ilgili nasıl olacağınız olabilir . Hatayı işlemek için hata işleme kullanmanız gerekir. Bu daha iyi olurdu -

Sub test()
lr = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

For i = 2 To lr

    x = Application.Match(ActiveSheet.Range("B" & i), Sheets("Sheet1").Range("B1:B" & lr), 0)
    If IsNumeric(x) Then
         MsgBox (x)
    End If
Next


End Sub