エクセル VBA フォーム入力

すみません。どなたか教えて下さい。
シートを非表示にするとエラーになってしまいます。
多分、selectが悪いと思うのですが・・・よくわかりません。
わかる方教えてくださーい。
宜しくお願いします。

Private Sub 新規顧客入力ボタン_Click()

If 新規顧客 = "" Then
MsgBox "氏名を入力してください。"
Exit Sub
End If


With Sheets("顧客入力").Select

i = Cells(Rows.Count, 7).End(xlUp).Row + 1

Cells(i, 7).Value = Me.新規顧客.Value
Me.新規顧客.Value = ""

End With
Unload Me

End Sub

No.2 回答者： tom04 回答日時： 2019/12/01 17:59

こんばんは！

「新規顧客」シートは入力後非表示にした方が良いのですね。

※　「新規顧客入力ボタン」とはユーザーフォームのコマンドボタン
　　「新規顧客」とはユーザーフォームのテキストボックスで
それぞれオブジェクト名を変えているのですね。

コマンドボタンのコードを以下のようにしてみてはどうでしょう。

Private Sub 新規顧客入力ボタン_Click()
　Dim i As Long
　　With 新規顧客
　　　If .Value = "" Then
　　　　MsgBox "氏名を入力してください。"
　　　　.SetFocus
　　　　Exit Sub
　　　End If
　　End With

　　With Sheets("顧客入力")
　　　.Visible = True
　　　.Select
　　　i = Cells(Rows.Count, 7).End(xlUp).Row + 1
　　　.Cells(i, 7).Value = Me.新規顧客.Value
　　　新規顧客.Value = ""
　　　.Visible = False '//★//
　　End With
　　　Unload Me
End Sub

※　「顧客入力」シートを表示させておきたい場合は
コード内の「★」の行を削除してください。m(_ _)m

No.1 回答者： あつしノリノリ 回答日時： 2019/12/01 16:06

市役所などの自治体が行っているパソコン相談で相談したほうが良いと思います。