Worksheet_BeforeClick

いつもお世話になっております。
先ほどの続きですが、、頂戴しました、コードの
続きで、オートフィルターを利用して
添付ファイルのコマンドボタンを
クリックすると一行次の値になります
表示されている順番にはならないものでしょぅか。
複雑でなければおしえてくれませんでしょうか

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


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

No.1 ベストアンサー 回答者： fujillin 回答日時： 2019/10/30 16:53

こんにちは

表示されている行だけを順次選択してゆきたいってことでしょうか？
＞Selection.Offset(1).Select
の部分を
　Selection.Offset(1).Select
　While Selection.Rows.Hidden
　　Selection.Offset(1).Select
　Wend
に置き換えてみてはいかが？

この回答へのお礼

いつも大変お世話になっております。
ありがとうございました。
思い通りです。

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