Matchで戻ってきた値をハイパーリンクのセル指定に使う方法

質問

ActiveSheetに入力した時、入力値と同じ値を同ブックの2つのシートから検索してハイパーリンクを設定したいです。

Matchを使ってリンクさせたいセルの行番号を取得したつもりなのですが、リンク設置の際にどのような使い方をすればいいのか分からないので教えてほしいです。

下記コードでは、入力した値が青文字になりリンクされたようになりますが、クリックすると「このワークシートの数式に、1つまたは複数の無効な参照が含まれています。有効なパス、ブック、範囲名およびセル参照が数式に含まれていることを確認してください。」とでます。

Private Sub Worksheet_Change(ByVal Target As Range)

Dim kennsaku, y, z

Set y = Worksheets("データ").Range("$C$4:$C$1003")
Set z = Worksheets("データ2").Range("$A$2:$A$65536")

kennsaku = Application.Match(Target.Value, y, 0)

If IsNumeric(kennsaku) Then

ActiveSheet.Hyperlinks.Add anchor:=Target, Address:="", SubAddress:="'" & データ & "'!range(cells(kennsaku,3))"

Else
kennsaku = Application.Match(Target.Value, z, 0)

If IsError(kennsaku) Then
MsgBox "見つからないのでリンクは貼りません", vbOKOnly + vbExclamation
Exit Sub

Else
ActiveSheet.Hyperlinks.Add anchor:=Target, Address:="", SubAddress:="'" & データ2 & "'!range(cells(kennsaku,1))"

End If
End If
End Sub

回答No.1

mshr1962 · ベストアンサー

肝心のセル番号が数式になってます。

誤
ActiveSheet.Hyperlinks.Add anchor:=Target, Address:="", SubAddress:="'" & データ & "'!range(cells(kennsaku,3))"

ActiveSheet.Hyperlinks.Add anchor:=Target, Address:="", SubAddress:="'" & データ2 & "'!range(cells(kennsaku,1))"

正
ActiveSheet.Hyperlinks.Add anchor:=Target, Address:="", SubAddress:="'" & データ & "'!" & Range(Cells(kennsaku,3))

ActiveSheet.Hyperlinks.Add anchor:=Target, Address:="", SubAddress:="'" & データ2 & "'!" & Range(Cells(kennsaku,1))

お礼

回答ありがとうございます。

さっそくいただいたアドバイスを実行したのですが、
「'Range'メソッドは失敗しました:'_worksheet'オブジェクト」
とエラーが出現し、デバッグで黄色い表示になる部分はやはり
ActiveSheet.Hyperlinks.Add anchor:=Target, Address:="", SubAddress:="'" & データ & "'!" & Range(Cells(kennsaku,3))
でした。

'Range'メソッドの失敗とはどういった意味なのでしょうか？

補足

今試しに入力した値は、"データ"シートに存在する値ですが、"データ"シートから別のシートにリンクされている値です。
ひょっとしてこれが駄目なのでしょうか？
これからそこをいじってからもう一度やってみます。