外部参照のリンク更新ボタン

ブックの共有で”入力用”に複数名で入力した注文内容を外部参照した”検索用”ブックを作りました。
”検索用”ではフィルターを使って商品や出荷日を検索し使用しています。

出荷場の方に、

フィルターで出荷当日の日付に出る商品に絞った状態で、
入力担当が”入力用”ブックに入力した当日の追加注文が反映するボタンを作りたいのですが

たとえば、2月３日に出る商品だけがフィルターでテーブルに表示されているブックに

（更新）というボタンを作っておいて、押せば2月3日の追加注文が行に追加されるようにしたいです


入力用と検索用のブックはネットワーク上で共有しているフォルダーに入っています
使っているエクセルは2015です
出荷場の方はＰＣの操作はあまりできないのでボタン一つおすようなわかりやすさが必要です

私自身はネット上のＶＢＡをコピーして動かす程度の知識しかありません
よろしくお願いします

No.1 ベストアンサー 回答者： ママチャリ 回答日時： 2017/02/04 13:51

こんな感じでしょうか。

リンク先のファイル名については、適宜、修正して下さい。

Sub 更新()
ActiveWorkbook.UpdateLink Name:="C:\Users\…\共有Book1.xlsm", Type:=xlExcelLinks
If ActiveSheet.FilterMode Then
ActiveSheet.AutoFilter.ApplyFilter
End If
End Sub

この回答へのお礼

<(__)>ありがとうございます！！助かりました！！

お礼日時：2017/02/06 11:37