Очень, очень плохо знакомый с этим, и я просто хочу создать базу данных для работы. Мне кажется, VBA не распознает номера. Кто-нибудь может мне помочь?

Question

Это ошибка, которую я получаю:

---

Это мой код:

Private Sub CommandButton1_Click()

Dim TargetRow As Integer

TargetRow = Application.WorksheetFunction.Match(ColumnB_Menu, Sheets("Data").Range("Dyn_Onsite_Number"), 0)
MsgBox TargetRow

End Sub

---

Это изображение моего рабочего листа:

Номер на месте = ColumnB_Menu

Answer 1

Позднее связать совпадение, удалив WorkSheetFUnction. и проверить на наличие ошибки:

Private Sub CommandButton1_Click()

    Dim TargetRow As Variant

    TargetRow = Application.Match(ColumnB_Menu, Sheets("Data").Range("Dyn_Onsite_Number"), 0)

    If Not IsError(TargetRow) Then
        MsgBox TargetRow
    Else
        MsgBox ColumnB_Menu & " Not Found in Range"
    End If

End Sub