Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

38426 / 76732

←次へ　｜　前へ→


	【43442】検索と削除

わんこ好き - 06/10/15(日) 23:25 -


	引用なし

	パスワード

シート１、シート２、シート３の３枚構成で
５行目はタイトル検索範囲（データ）は６行目から
範囲は（Ａ６：ＡＯ１８００）です。

１．シート１のＢ３セルに入力したコード（例：２０３２０）でシート２のデー　　タを検索する。
２．シート２の該当のコードデータをシート３にコピーする。
３．シート２の該当（例：２０３２０）のコードデータを削除する。

以上、１から３までをコマンドボタン操作で処理したいのですが

１と２は下記、DGET関数とVBAで何とか処理しました、しかし

”３．シート２の該当（例：２０３２０）のコードデータを削除する。”が
初心者のため作れません。
　
よろしくお願いいたします。

シート１
　　　　A　　　　B　　　　　C　　　　　D　　　　E　　　　F　・・・・　　　
１
２
３　　　　　　２０３２０
４
５

シート２
　　　　A　　　　B　　　　　C　　　　　D　　　　E　　　　F　・・・・　　　　
１
２
３
４
５　　コード　　氏名　　　住所　　　受付日　　　回答
６　１００１１　山田　　　東京　　　３月１日　　OK
７　２０３２０　佐藤　　　仙台　　　９月８日　　NG
８　１００３０　加藤　　　札幌　　　７月７日　　OK
９　３０２２２　山本　　　大阪　　　９月８日　　OK
１０２０００１　石田　　　京都　　　８月５日　　OK
１１３０５６７　大野　　　横浜　　　６月２日　　OK

シート３
　　　　A　　　　B　　　　　C　　　　　D　　　　E　　　　F　・・・・
１　　コード　　氏名　　　住所　　　受付日　　　回答
２　２０３２０　佐藤　　　仙台　　　９月８日　　　NG　　　
３
４
５　　コード　　氏名　　　住所　　　受付日　　　回答
６　２０３２０　佐藤　　　仙台　　　９月８日　　　NG
７　　
８　　
９　　
１０　
１１　

セル”Ａ２”＝シート１!B3
セル”Ｂ２”＝DGET(シート２!$A$5:$AO1800$11,シート２!B$5,$A$1:$A$2)

　Sheets("シート３").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

2 hits

▼

【43442】検索と削除 わんこ好き 06/10/15(日) 23:25

≪