|
お世話になります。
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
お手数をおかけ致しますがよろしくお願い致します。
|
|