|
シート1、シート2、シート3の3枚構成で
5行目はタイトル検索範囲(データ)は6行目から
範囲は(A6:AO1800)です。
1.シート1のB3セルに入力したコード(例:20320)でシート2のデー タを検索する。
2.シート2の該当のコードデータをシート3にコピーする。
3.シート2の該当(例:20320)のコードデータを削除する。
以上、1から3までをコマンドボタン操作で処理したいのですが
1と2は下記、DGET関数とVBAで何とか処理しました、しかし
”3.シート2の該当(例:20320)のコードデータを削除する。”が
初心者のため作れません。
よろしくお願いいたします。
シート1
A B C D E F ・・・・
1
2
3 20320
4
5
シート2
A B C D E F ・・・・
1
2
3
4
5 コード 氏名 住所 受付日 回答
6 10011 山田 東京 3月1日 OK
7 20320 佐藤 仙台 9月8日 NG
8 10030 加藤 札幌 7月7日 OK
9 30222 山本 大阪 9月8日 OK
1020001 石田 京都 8月5日 OK
1130567 大野 横浜 6月2日 OK
シート3
A B C D E F ・・・・
1 コード 氏名 住所 受付日 回答
2 20320 佐藤 仙台 9月8日 NG
3
4
5 コード 氏名 住所 受付日 回答
6 20320 佐藤 仙台 9月8日 NG
7
8
9
10
11
セル”A2”=シート1!B3
セル”B2”=DGET(シート2!$A$5:$AO1800$11,シート2!B$5,$A$1:$A$2)
Sheets("シート3").Select
Range("A2:AO2").Copy
Application.Goto Reference:="R6C1"
Range("A1800").End(xlUp).Offset(1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
|
|