初心者ですいません。フォームからの受け渡しについて

Question

Private Sub CommandButton1_Click()
Backup_start
End Sub

Sub Backup_start()
Worksheets("Main").Select
Worksheets("Main").Activate
Dim myRange1 As Range
Dim mymmdd As String
Set mymmdd = UserForm1.TextBox1.Value
For Each myRange1 In Range("B1:B30000")

If myRange1.Value Like mmdd And myRange1.Offset(0, 1).Value Like "symatomfs21" And myRange1.Offset(0, 6).Value Like "30233" Then
    Debug.Print Right(myRange1.Value, 11)
End If

Next

End Sub

↑を実行するとSet mymmdd = UserForm1.TextBox1.Valueの部分で必ず
”コンパイルエラー　オブジェクトが必要です。”と表示されます。

解決策を教えてください！

Comments

[meg_]

コードは「コードの挿入」で記入してください。

[m.ts10806]

>初心者ですいません。
こういった但し書きを避けるために「初心者アイコン」があります。

質問は調整できますので、適宜ご対応ください

Answer 1

下記コードで良いと思います。

mymmdd = UserForm1.TextBox1.Value

上記よりもBackup_start()に引数として、TextBox1.Valueを渡した方がより良いと思います。

Comments

[hanju8810tt]

ありがとうございました。解決できました。