Worksheet_BeforeRight(ByVal Target As Range)のやり方

いつもお世話になっております。
以前、頂戴しました、コードの
続きで、
Private Sub Worksheet_BeforeClick(ByVal Target As Range, Cancel As Boolean)
　If Intersect(Target, Range("B:B")) Is Nothing Then Exit Sub
　　If Target.Row > 5 And Target <> "" Then
　　　Cancel = True
　　　　With UserForm1
　　　　　.TextBox1 = Target.Offset(, 1)
　　　　　.TextBox2 = Target.Offset(, 2)
　　　　　.TextBox3 = Target.Offset(, 3)
　　　　　.TextBox4 = Target.Offset(, 4)
　　　　　.Show
　　　　End With
　　End If
End Sub

添付ファイルのようにコマンドボタンを押すと
次の行に移りBeforeClickのイベント発生する
ことはできますでしょうか。
よろしくお願いいたします。

No.1 ベストアンサー 回答者： tom04 回答日時： 2019/10/30 14:03

こんにちは！

単純に　Call　で呼び呼び出せるのは　Publicで定義されているプロシージャ―なので
手間でもコマンドボタンに↓のコードをもう一度右クリックのイベントを記載してみては？

Private Sub CommandButton1_Click()
　Selection.Offset(1).Select
　　With Selection
　　　TextBox1 = .Offset(, 1)
　　　TextBox2 = .Offset(, 2)
　　　TextBox3 = .Offset(, 3)
　　　TextBox4 = .Offset(, 4)
　　End With
End Sub

こんな感じで・・・m(_ _)m

この回答へのお礼

いつも大変お世話になっております。
有難うございます。
わたしの場合は、activecell.offset(1)で
やりたぶんだけかな、と思ったら
やっぱりだめでした。
ありがとうございました。

お礼日時：2019/10/30 14:40