0

仕事用のシートに取り組んでいますが、インターネットで検索しても解決できないことに行き詰まっています。

現在使用しているシートは2枚です。

シート 1: すべての情報を含むデータベース。シート 2: シート 1 から取得されたデータを含むリストと、UserForm1 を使用して追加情報を追加するオプション。

  • Sheet2 では、ハイパーリンクを使用して、次のコードで UserForm1 を起動しています。

    Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
        If Target.Range.Column = "4" Then
            UserForm1.show
            Exit Sub
        End If
    End Sub
    

UserForm1 でコードの作業を開始するまで、これはうまく機能していました。Sheet1をターゲットにしてVBA UserForm1でVlookupを作成しました。ハイパーリンクをクリックするとすぐにエラーが発生し、デバッグは上記のコード「UserForm1」を参照します。

UserForm1 コード:

Private Sub UserForm_Initialize()
  Object = ActiveCell
  TextBox1.Value = Application.WorksheetFunction.VLookup(Object, Sheet1.Range("$B$2:$BW$622"), 1, False)
  Label3 = ActiveCell.Offset(0, 1).Value
  Label5 = ActiveCell.Offset(0, 3).Value
End Sub

Private Sub BUT_Annuleren_Click()
  Unload Me
End Sub

"Sheets("Sheet1").activate" を使用しても同じことが起こります。複数のシートから Userform1 の情報を取得するために誰かがこれを手伝ってくれますか?

助けてくれてありがとう!

ロン

4

1 に答える 1