プログラムこんにちはゲストさん。プログラムいつも御世話になっております。以下のことをしたいのですが、詰まってしまいました。皆様の力をお借りしたいと思い、書き込ませていただきます。・ボタン1をクリックすると、base(転記元)のG列に書かれた事項と同一のシート(転記先)へ転記する(各シートA,B,Cへ転記)・転記先のE列を見て、既存のものであれば、上書きする・転記先のE列を見て、新規のものであれば、空いている行を探し転記する。月曜50A火曜100A土曜50A水曜150A以下に作成したプログラムを記述します。IF文に関するエラーが生じております。'検索でかかったら、該当の行のアドレスを割り出し、特定の範囲を上書きする。'検索でかかったら、該当の行のアドレスを割り出し、特定の範囲を上書きする。前回の続きみたいですね。提示のコードはあちこちミスがあり(^^;;;それらをいちいち文言で指摘するのがちょと面倒なので訂正加筆したコードをアップします。以下をコピペして実行してみてください。Sub'---------------------------------------変数の型はObjectではなく明示した方がベターです。目的に合った型を宣言すること。目的にあったプログラムでした。使わせて頂きたいと思います。回答(4)ANo.3o_chi_chiたびたび失礼します。Sheets(dstSheet)そもそもこの行必要ないと思いますけど。(0)通報するANo.2o_chi_chiこれでどうでしょう。Ifは(3)のIf文の終了と判断されています。ThenこのIf文は(転記先シート名)が空白の場合も判定されTrueになりますけど大丈夫ですか。回答ありがとうございます。1で変更しましたがそれでも、IF文のところでひっかかってしまいますね。エラーが起きてうまくいきません。いつもお世話になっております。vbaについて教えてください。自分で作成したコードが、うまく動かず悩んでいます。いつもお世話になってます。以下のプログラムで外部データの更新を入れたのですがうまく作動しません。Reserved.掲載情報の著作権は提供元企業等に帰属します。