Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

36254 / 76732

←次へ　｜　前へ→


	【45661】Re:年度情報を集約ファイルに書き込むには？

かみちゃん

- 07/1/9(火) 13:36 -


	引用なし

	パスワード

こんにちは。かみちゃん　です。 >>であれば、以下のコードが転記の部分なのですが、このコードは処理されないはずです。 >> >>　　　 .Range("H3", .Cells(Rows.Count, 8).End(xlUp)).Resize(, 1).Copy _ >>　　　Workbooks("集約表.xls").ActiveSheet.Range("E2") > >という事は意味のないコードと言うことでしょうか。そんなことは申し上げていません。事象がおかしいと思っています。 >>>　 If .Cells(Rows.Count, 2).End(xlUp).Row > 3 Then　 >　　　　　　　　　　　　　　― >　　　　　　　　　　　　　　この2の部分を先ほど言っていたのですが >　　　　　　　　　　　　　　2のままだとちゃんと店所情報から取り込んで >　　　　　　　　　　　　　　くるのですが、店所情報に何も書いてないと >　　　　　　　　　　　　　　題字を取り込んでしまいます。 >　　　　　　　　　　　　　　8にすると、何も取り込まなくる。逆ではないでしょうか？そのときの対象シート（ws1）は処理したいシートになっていますよね？ > 2のままだとちゃんと店所情報から取り込んで店所情報.xlsのB列（2列目）の3行目より下に値が入っていれば、データの転記がされます。店所情報.xlsのB列（2列目）の3行目より下に何も書いていないと、データの転記はされません。 > 8にすると、何も取り込まなくる。何のために 8 にするのか、 2 ではいけないのでしょうか？下記のご提示のイメージで、B列（2列目）とH列（8列目）の値が入っている最終行が違うのでしょうか？値が入っている最終行が3より大きいければ、（～.Row > 3）、転記するコードが処理されるはずなのですが・・ >現在、こうできたらいいなと言うイメージですが >（H18店所情報.xls） >　　A　　B　　C　　D　　E　　F　 G　 H >1　　 >2　　　（２行目までは題字や枠組みなど） >3　　　 ○　 ▲　 ■　 ×　　　　　 ◎　　（３行目より入力開始） >4　　　あ　い　う　え　　　　　さ >5　　　か　き　く　け　　　　　た　 >6 > >　　　↓　集約表のボタンを押す。 > >（集約表.xls） >　　A　　B　　C　　D　　E　　F >1　　（１行目は題字や枠組みなど） >2　　（２行目より入力（集約）が始まっています。） >3　　　 >4　　　　（過去の情報が入っています） >5 >6　　　 ○　 ▲　　　◎ >7　　　あ　い　　　　さ >8　　　か　き　　　た >9 >（取り込みした時に題字が入らないようにする）