値を入力したら一致する別シートの行を自動削除

質問

エクセルVBAで
2つのシートでシート2で値を入力したらシート1で一致する行ごと自動で削除する事は可能ですか？

シート1（入荷待ち）
コード　　商品　　　　
001　　　みかん　　　　
002　　　イチゴ　　　　　　
003　　　りんご　　

シート2(入荷履歴）
日付　　コード　　商品　　　入荷数
6/1　　　001　　　みかん　　 10
6/2　　　003　　　りんご　　　10

例として上記ようなシートでシート2(入荷履歴）で（001のみかん）と（003のりんご）が入荷され
シート2(入荷履歴）に入力するとシート1（入荷待ち）から自動で削除され（002のイチゴ）だけ残る
という処理を自動で行いたいのですが、可能ですか？
（入荷履歴の入荷数「D2」以降のセルに新しく入力があった場合の処理です。一致コードがない場合は自動削除をしない）

処理のタイミングはシート2(入荷履歴）の入力のユーザーフォーム作り
入力のPrivate Sub CommandButton1_Click()した時とします。
コードと商品アイテムは今後増える予定です。

回答No.2

keithin · ベストアンサー

「何がどうなったらどうしたい」のかは，回答者じゃなく実際に使うあなたが考えることです。

その意味で
元のご相談：
＞CommandButton1_Click

これはつまり，履歴シートに記載のある範囲（を全部）ボタンクリックしたら処理したいという意図と理解されます。
履歴シートに「処理したい履歴」と［処理しなくてイイ履歴」が混在している，つまりマクロ側で何か仕分け・やるやらないの判断をしなきゃならない（それなら何をどうしたいの？），というお話では全くありませんでしたよね？

また
＞最大行数はCells(Rows.Count, 4)で大丈夫ですか？

「いまアナタが」何をどうしたくてこういうご質問になったのか，イミフメイで回答できません。

ヤリタイ事を変更して，「今記入した履歴をその都度削除したい」というのがホントの事なら，マクロは例えば

private sub Worksheet_Change(byval Target as excel.range)
　dim h as range
　if application.intersect(target, range("D:D")) is nothing then exit sub

’変更した範囲について行う
　for each h in application.intersect(target, range("D:D"))
　　if h <> "" then
　　’コードを検索し削除する
　　　worksheets("Sheet1").range("A:A").autofilter field:=1, criteria1:=cells(h.row, "B").value
　　　worksheets("Sheet1").autofilter.range.offset(1).entirerow.delete shift:=xlshiftup
　　end if
　next
　worksheets("Sheet1").autofiltermode = false
end sub

といった具合にする事になります。
やることは一緒で，「何（どこ）を」の部分だけ変えてるのが判りますね？同様にして，あなたが実際にヤリタイ事に応じて適切に応用してご利用下さい。
あんまり「やっぱこーでした」「イヤイヤ今度はこうしたいんです」と，あーでもないこーでもないと引っ張られても困りますので，お願いします。

お礼

VBAを勉強中で理解不足と内容を整理出来ないままで申し訳ありません。

回答No.1

keithin

コードだけチェックすることでいいんですね

private sub CommandButton1_Click()
　dim r as long
　for r = 2 to range("D65536").end(xlup).row
　if cells(r, "D") <> "" then
　’コードを検索し削除する
　　worksheets("Sheet1").range("A:A").autofilter field:=1, criteria1:=cells(r, "B").value
　　worksheets("Sheet1").autofilter.range.offset(1).entirerow.delete shift:=xlshiftup
　end if
　next r
　worksheets("Sheet1").autofiltermode = false
end sub

補足

すばやい回答ありがとうございます。処理的にはそういう事なのですが、
問題はコード履歴が残った場合、シート1（入荷待ち）の行がすべて消えてしまうのです。あくまでも新規入力のみに処理する方法があるのでしょうか？
CommandButton1_Click()ではなくシートにコードを入れてWorksheet_Changeすればいいのですか？
また、最大行数はCells(Rows.Count, 4)で大丈夫ですか？