Гиперссылка - выдает ошибку времени выполнения 5 "Недопустимый вызов процедуры или аргумент"

Question

Я пытаюсь создать гиперссылки для диапазона в таблице «Таблицы», если только совпадает со значениями в строке «лист2» ​​«b», но выдает ошибку «неверный вызов процедуры или аргумент».я искал интернет-источники для решения, но не мог ничего найти.Может ли кто-нибудь помочь мне в следующем коде, пожалуйста:

  Sub Macro1()
  For i = 4 To 23
  If Cells(i, "A").Value <> "" Then
  k = Sheets("TABLES").Cells(i, "a").Value
  c = Application.Match(k, Sheets("Sheet2").Range("B11:B500000"), 0)
  If IsError(c) Then
  Else
  Sheets("tables").Hyperlinks.Add Anchor:=Sheets("tables").Cells(i, "A"), _
                          Address:="", _
                          SubAddress:="sheet2!F" & c, _
                          TextToDisplay:=k
  End If
  End If
  Next i
  End Sub

Answer 1

Кошмар гиперссылки

Option Explicit

Sub Error5()

    Dim i As Long
    Dim k As Long
    Dim c As Variant

    With Sheets("Tables")
        For i = 4 To 23
            If .Cells(i, "A").Value <> "" Then
                k = .Cells(i, "A").Value
                c = Application.Match(k, Sheets("Sheet2") _
                        .Range("B11:B50000"), 0)
                If IsError(c) Then
                  Else
                    .Hyperlinks.Add _
                            Anchor:=.Cells(i, "A"), _
                            Address:="", _
                            SubAddress:="Sheet2!F" & c, _
                            TextToDisplay:=CStr(k)
                End If
            End If
        Next
    End With

End Sub

Answer 2

Изменение If Cells(i, "A").Value <> "" Then к If Sheets("TABLES").Cells(i, "a").Value <> "" Then ~ Надеюсь, это сработает. Он не распознает объект в первой строке.