エクセル VBAエラー 91、1004

Question

はじめまして。
エクセルのVBAを始めたばかりで、短いものを作ってみたのですがエラーが出て途方にくれています。
workbookやsheetの指定、setをつけるなど、先輩方の過去の答えも見つかる限り試したのですが、どこが悪いのかエラーが出続けてしまっています。
悪いところだらけなのかもしれませんが、ご助言だけでもいただけると助かります。

Sub 時間__加算()

Sheets("時間").Select
Dim timeplus As Range
Set timeplus = Range("G:G").Find("r5")

Range("t5").Copy
timeplus.Offset(-1, 0).PasteSpecial Paste:=xlValues, Operation:=xlAdd

Application.CutCopyMode = False
End Sub

シート「時間」のR5にある値を列Gから見つけて、
T5の数字をコピーして、
先に見つけたセルの右隣にある数字にT5の数字を足す。

そういうつもりで書いたのですが、ペーストのところで
エラー 91 「オブジェクト変数または With ブロック変数が設定されていません。」となって止まってしまいます。
急いでいるわけではないので自分なりに数時間きちんと知らべてやったつもりなのですが、どうしてもわからなかったため、質問させていただいています。
初心者の質問で申し訳ありませんが、どうか、よろしくお願いいたします。

Answer 1

Set timeplus = Range("G:G").Find("r5")
のコードでは、"r5"という文字列が見つからなければtimeplusはNothing（何もないという意味かな）となります。

その後
timeplusに対して、Offsetしているので、何もないNothingに対して処理をさせているということで
「オブジェクト変数または With ブロック変数が設定されていません。」のエラーが出ます。

まぁ。。。
どうするのがいいかは、わかりませんが
とりあえず、質問文を読むと
Set timeplus = Range("G:G").Find("r5")
ではなく
Set timeplus = Range("G:G").Find(Range("R5"))
という事をしたいのかなぁ。という印象があります。

であったとしても
if timeplus is Nothing then
とかして、値が見つからなかった時の処理を記載した方が良いかもしれないですね。

Comments

[0629happy]

xail2222さん、
丁寧に教えていただいてありがとうございます。
まだ入り口にも立っていないような初心者ですが、頂いたアドバイスも含め少しづつ頑張っていこうと思います。
ありがとうございました。