Excel VBA質問箱 IV

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

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


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

36261 / 76738

←次へ　｜　前へ→


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

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


	引用なし

	パスワード

かみちゃん様
返信ありがとうございます。

>であれば、以下のコードが転記の部分なのですが、このコードは処理されないはずです。
>
>　　　 .Range("H3", .Cells(Rows.Count, 8).End(xlUp)).Resize(, 1).Copy _
>　　　Workbooks("集約表.xls").ActiveSheet.Range("E2")

という事は意味のないコードと言うことでしょうか。

>>With ws1
>>'2だとH列から取り込みE列に表示するが店所情報に何も入っていないと題字が取り込まれる。8だと取り込まない。このようなのようない状態になります。
>

少し整理してみます。
>>　 If .Cells(Rows.Count, 2).End(xlUp).Row > 3 Then　
　　　　　　　　　　　　　　―
　　　　　　　　　　　　　　この2の部分を先ほど言っていたのですが
　　　　　　　　　　　　　　2のままだとちゃんと店所情報から取り込んで
　　　　　　　　　　　　　　くるのですが、店所情報に何も書いてないと
　　　　　　　　　　　　　　題字を取り込んでしまいます。
　　　　　　　　　　　　　　8にすると、何も取り込まなくる。
　
現在、こうできたらいいなと言うイメージですが
（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
（取り込みした時に題字が入らないようにする）

このようなイメージでおります。
もう少しお知恵をお貸し下さい。よろしくお願いします。

0 hits

▼

【45528】年度情報を集約ファイルに書き込むには？ vang 06/12/29(金) 14:42