行の一部を別シートに転記するには？

質問

VBA初心者です。

業務でエクセルで工程管理をしているのですが、ご相談です。

　工程管理表　　　　　　　　　　　　　　作業工程表

1 佐藤　7/2　7/15　○　　　　　　　1　7/2　7/15　 ○
2 田中　7/3　7/11　□　　　　　　　2　7/3　7/11　 □
3 佐藤　7/3　7/16　○　　　　　　　3　7/3　7/16　 ○
4 伊藤　7/3　―　　▲　　　　　　　4　7/5　7/15　 ○
5 加藤　7/5　7/15　○

工程管理表は

A列には入力した人の名前
B列には入力した日
C列には作業予定日
D列には作業内容

と、複数の作業者が随時入力します。
D4の▲は工程として発生はしたのですが、他部署管轄だったため、
当部署では作業の必要がないため、ただ記録として残しているものです。そのため、Cの作業日が－（ハイフン）が入っています。

これを別シート[作業工程表]にB～D列を転記したいのですが、　
今は各作業者が範囲選択してコピーする方法をとっています。
ですが、コピペ忘れが多くこの状態を解決できないかと考えています。
なお、これは同一ブック内で行われています。

１.　工程管理表のB列、C列、D列すべてが入力されていて、
　 　C列が"-"でない場合に作業工程表へ転記する
２.　作業者が随時入力した時点で「作業工程表」に登録したい。

ということになります。
どなたかご指導よろしくおねがいします。

回答No.1

kigoshi · ベストアンサー

いくつか条件が不明なところがありますので充分な回答かどうか分かりませんが、
This Workbookに下記コードでいかがでしょうか。

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim rIdx1, rIdx2 As Long
Sheets("作業工程表").Select
Cells.ClearContents
With Sheets("工程管理表")
For rIdx1 = 1 To .Range("A65536").End(xlUp).Row
If Len(.Cells(rIdx1, 2)) * Len(.Cells(rIdx1, 3)) * Len(.Cells(rIdx1, 4)) > 0 Then
If .Cells(rIdx1, 3) <> "―" Then
rIdx2 = rIdx2 + 1
Cells(rIdx2, 1).Value = .Cells(rIdx1, 2).Value
Cells(rIdx2, 2).Value = .Cells(rIdx1, 3).Value
Cells(rIdx2, 3).Value = .Cells(rIdx1, 4).Value
End If
End If
Next
End With
End Sub

これはブック保存直前に工程管理表をもとに作業工程表を全部書き換えています。
なんらかの都合で作業工程表に工程管理表にはない記録がある場合、消えてしまいます。
これで都合が悪い場合は、補足下さい。

お礼

kigoshiさん、ありがとうございました！
試してみます！！