仕事用のシートに取り組んでいますが、インターネットで検索しても解決できないことに行き詰まっています。
現在使用しているシートは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 の情報を取得するために誰かがこれを手伝ってくれますか?
助けてくれてありがとう!
ロン