Excel VBA質問箱 IV

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

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


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

47273 / 76736

←次へ　｜　前へ→


	【34423】Re:ファイルを開く

RL - 06/2/2(木) 11:14 -


	引用なし

	パスワード

お世話になります。
Statisさん、お返事ありがとうございました。
お返事が遅くなりすみませんでした。
せっかくコードを掲載して頂いたのに、昨日の会議でレイアウトを
また考え直さなければいけなくなりましたε=ε=ε= 。・゜(゜ノT-T)ノ
(これで何度目だろう=3)
Statisさんに頂いたコピーの部分を参考にしつつ、下記のコードを作りました。
(せっかく作っていただいたのにご気分を害されたらごめんなさい)
しかし、コピーして貼り付けはできるのですが、出荷管理表のコピーモードが
解除されず、範囲指定されたままになっています。
それを解除するにはどうしたらいいでしょうか？

また、出荷管理表のデータが更新されていたら、新たにライセンス管理表にコピー、
更新されていなかったら、そのまま。
という、条件(?)をつけたいのですがどぅすればよいでしょうか?

Private Sub Workbook_Open()
　　test().Show
End Sub

Sub test()
　 MsgBox "データを更新しています", vbinfomation
　　　　Worksheets("出荷管理表").Range("B5:E65536,I5:K65536,P5:AA65536,AC5:AC65536").Copy
　　　　　　ActiveSheet.Paste Destination:=Worksheets("ライセンス管理表").Range("B5")
　　　　　　
End Sub

お手数をおかけ致しますがよろしくお願い致します。

0 hits

▼

【34365】ファイルを開く RL 06/2/1(水) 11:48