Excelにて、テキストボックスとコマンドボタン作り、コマンドボタンでカソールを移動させたい

Excelにて、ﾕｰｻﾞｰﾌｫｰﾑを作り　その中に、テキストボックスとコマンドボタン作成して、
テキストボックス（TextBox2）に、数字を入力、コマンドボタンでカソールを移動させたい
のですが、マクロが分からず苦慮しております。

sheetのBX列を検索して、同じ数字の行のE列セルへカーソルを移動させるようしたい
※BX列のセルは、空セルもあります。

ﾕｰｻﾞｰﾌｫｰﾑは出来たのですがその後が進まず、お分かりになる方ご教授願います。

画像参照願います

No.1 ベストアンサー 回答者： mygoonickname 回答日時： 2021/11/15 18:52

こんばんは。

例えば、下記の様な感じでしょうか？

Sub myFindTest()

Dim myRng As Range
Set myRng = ActiveSheet.Range("BX1:BX99") _
.Find(What:=1, LookAt:=xlWhole, SearchOrder:=xlByRows)
If myRng Is Nothing Then
MsgBox "対象のセルが見付かりません！"
Else
Cells(myRng.Row, 5).Select
End If
End Sub


What:=1に、textbox2.value の様に、値を入れる様にすれば良いかと。
What:= textbox2.value　の様な感じでしょうか？

この回答へのお礼

早々の対応ありがとうございます。
思っていた通りにできました。

お礼日時：2021/11/15 19:10