excelでのシート別条件比較

質問

別シートでの項目の比較を行い等しければデータをコピーしたいのですがうまくいきません。教えて下さい。

現状
シート１・１日の各項目のデータ入力及び集計
シート２・３１日分のデータ（シート１で入力・集計した）及び累計
　シート１でのデータをシート２へコピーしています。

シート１に日付指定項目を設けて、シート２の該当日にマクロボタン
で転送できるようにしたいのですが、出来ないので困っています。

シート１からシート２へコピーするマクロは作ったのですが
それにＶＢＡで日付どうしの比較を付けたいのですが構文エラー
が出ます。

If Range("B1").Value & "日" = Sheets("シート２").Select
Range("J2").Value Then
マクロ記録のコピー処理
End If

ＶＢＡど素人です。宜しくお願い致します。

回答No.3

GGL · ベストアンサー

なんとなーくわかってきました。状況が。
なにをしたいのかは今のところ掴めませんが。。。汗

If Range("B1").Value & "日" = Sheets("シート２").Select
Range("J2").Value Then(←↑もちろん一行で書いていますよね？)
構文エラーってでているのは確かに「単純な文法違い」ですね。
今見て、わかりました。。。
Rangeは自分は非常に扱いにくく、Cellsを使います。(ここでは説明しませんが)
Sheets("シート２").Select Range("J2").Value
これでは値は持ってこれません
Sheets("シート２").Range("J2").Value
とやってみてください。

使っているPCにエクセルがないので確認できないのですが、
とりあえず、「値が持ってこれているか？」から確認したほうがよろしいかと。

お礼

構文エラーは消え、思いのＩｆ文は成立しているようです。
説明不足で伝えたいことが伝わらず歯痒い気持ちですが前に向いて一歩進むことができました。有難うございました。

回答No.2

imogasi

質問の意味が（内容が)良くつかめない。
一部実例でも挙げて説明してもらえませんか。ＶＢＡ以前の問題です。
＞別シートでの項目の比較を行い
なぜ別シート？
この質問で出てくるのはシート１・シート２・シート３（仮称）ですか・。
データのシート・行・列が判らないとＶＢＡはコードは他人には作れません。

補足

「シート１」で１日の各項目ごとにデータを入力し集計。
「シート２」には１ヶ月分（３１日分）の各項目の毎日のデータ（シート１で集計した）と縦横合計。
それぞれ入っています。
「シート１」で集計したデータを、「シート２」の同じ各項目に
コピーしたいのです。シート２」の各セルにＩＦ文を入れたのですが
循環参照エラーが出るので使えません。

SHEET1**************************************
"B1"
　　　　データ１　データ２…項目別合計 6 日分
項目1　　　入力　　　　　　項目1計
　・　　　　　　　　　　　　　・
　・　　　入力　　　　　　　　・

項目20　　　　　　　　　　項目20計

SHEET2********************************
項目別　"F2" "AJ2"
　　　　累計　１日・・・３１日
項目1 　31　　　1 ・・・　1　　　
　↓　　↓　　　↓　　　　↓
項目20 31　　　1 ・・・　1
　日計 620 20・・・ 20

SHEET1の日付("B1")とSHEET2の日付("F2"～"AJ2")が一致した列に
データをコピーしたいのです。
説明が足らなくて申し訳ありません。

回答No.1

GGL

構文エラー内容はなんでしょ？
その文法から察するに、
If文の判定部分に難があるように思えます。
具体的には「型違い」かと思っていますが。。。

補足

早速の回答有難うございます。
構文エラーとだけ出るのですが・・・型違いとは何でしょうか。
If文をどのようにすれば良いのでしょう？

因みに「Ｂ１がシート１」・「Ｊ２がシート２」の日付項目です。
シート２コピー先で関数If文を各項目に入れると縦横でSUM関数を使っているので循環参照エラーとなり、よく分からないＶＢＡを使おうとしています。