アプリケーションまたはオブジェクト定義のエラーです

質問

データを入力するシート「input]、データを格納するシート　「data」とがあり、
新規のレコードを追加入力するために 新規入力ボタン(CommandButton2)を作成しましたが、
実行しようとすると、表記のエラーが出てしまします。

コードの確認、とそして、どこがいけないのかをご指摘いただけないでしょうか？どうかよろしくお願いいたします。

以下コードです。

Private Sub CommandButton2_Click()
'新規入力
Dim row As Integer

row = Sheets("data").Cells(Rows.Count, 2).End(xlUp).Offset(1)
Sheets("data").Cells(row, 2).Value = Sheets("data").Cells(row - 1, 2).Value
Range("AL1") = Sheets("data").Cells(row, 2).Value

End Sub

回答No.1

keithin · ベストアンサー

まず最初の間違いは，VBAの予約語のRowを自前の変数名に使っているところです。
次の間違いは，Integerでは通常は足りません

ダメ：
dim row as integer
訂正：
dim myRow as long

エラーの直接の原因は

まちがい：これじゃ「セルの値」を取り出している。
　　　　　しかも空セルの。（＝０になる→次の行がエラーになる）
row = Sheets("data").Cells(Rows.Count, 2).End(xlUp).Offset(1)

正解：下端の空きセルの「行番号」を調べる
myRow = Sheets("data").Cells(Rows.Count, 2).End(xlUp).Offset(1).row

お礼

大変勉強になります、ありがとうございます。

回答No.2

nayuta_lot

こんにちは

全体の処理がみえませんが、エラーになる理由は

row = Sheets("data").Cells(Rows.Count, 2).End(xlUp).Offset(1)

ではなく

row = Sheets("data").Cells(Rows.Count, 2).End(xlUp).Offset(1).row

のように、最後に.rowをつけていないからだと思われます。
後ろに.rowをつけないと値を取得してくれません。　従って、変数rowの中身が0となり
エラーとなります。

あと、変数にrowのような、メソッド、プロパティで使用しているような文字をそのまま
変数として使用すると混乱の元なので、Last_row　などのように定義したほうがいいですよ。

なにかあれば補足してください。
それでは

お礼

ありがとうございます。
参考になりました。