ネットが遅くてイライラしてない!?

お世話になります。今まで登録ボタンで行っていたものが出来なくなりました。
Private Sub CommandButton1_Click() '登録
Dim i As Long
Dim 最終行 As Long
Dim サーチ行 As Long

Sheets("入荷済").Activate
最終行 = Range("A1").End(xlDown).Row
サーチ行 = 0
For i = 1 To 最終行

If UserForm2.TextBox1.Value <> Range("A" & i) Then
Cells(最終行 + 1, 1) = UserForm2.TextBox1.Value 'No   ★ここでエラーがでます
Cells(最終行 + 1, 2) = UserForm2.TextBox2.Value '送状No
Cells(最終行 + 1, 3) = UserForm2.TextBox3.Value '入荷日
Cells(最終行 + 1, 4) = UserForm2.TextBox4.Value 'パレットNo
Cells(最終行 + 1, 5) = UserForm2.TextBox5.Value '受付No
Cells(最終行 + 1, 6) = UserForm2.TextBox6.Value '個数

サーチ行 = i
Exit For
End If
Next
'-----------------------クリア
UserForm2.TextBox1.Value = ""
UserForm2.TextBox2.Value = ""
UserForm2.TextBox4.Value = ""
UserForm2.TextBox5.Value = ""
UserForm2.TextBox6.Value = ""
UserForm2.TextBox7.Value = ""
UserForm2.TextBox8.Value = ""
UserForm2.TextBox9.Value = ""
MsgBox "登録終了しました。"
End Sub

Private Sub UserForm_Initialize()
Dim 行 As Long
Dim 列 As Long
UserForm2.TextBox11 = Range("B3").Value '------送り状
TextBox1.Value = Date '------本日
UserForm2.TextBox2.SetFocus
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address
'入力したセルが C8 ならば Sub Find を Call します
Case "$B$3"
UserForm2.Show vbModeless
End Sub
宜しくお願い申し上げます。

「Excel vbaで今まで動いていたもの」の質問画像

質問者からの補足コメント

  • はい。1048576になっています。

    No.1の回答に寄せられた補足コメントです。 補足日時:2020/03/11 23:46

A 回答 (2件)

デバッグ実行してみてください。


おそらくですが、「最終行+1」がエクセルの行数の最大値を超えてるのでは?
この回答への補足あり
    • good
    • 0
この回答へのお礼

連番がうまく動いていませんでした。ありがとうございます。

お礼日時:2020/03/11 23:53

1048576+1行は存在しない。


そういうエラーです。
IF文でも入れて回避してください。
    • good
    • 1
この回答へのお礼

なんとかやってみます。ありがとうございました。

お礼日時:2020/03/12 00:18

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています


このQ&Aを見た人がよく見るQ&A

このカテゴリの人気Q&Aランキング