Excel VBA質問箱 IV

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

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


38426 / 76732 ←次へ | 前へ→

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

引用なし
パスワード
   シート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  ・・・・   


3      20320




シート2
    A    B     C     D     E     F ・・・・     




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   


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

0 hits

【43442】検索と削除 わんこ好き 06/10/15(日) 23:25 質問
【43443】Re:検索と削除 ハチ 06/10/16(月) 10:34 発言
【43472】Re:検索と削除 わんこ好き 06/10/16(月) 21:32 発言
【43476】Re:検索と削除 ハチ 06/10/16(月) 23:53 発言
【43478】Re:検索と削除 わんこ好き 06/10/17(火) 1:22 発言
【43645】Re:検索と削除 わんこ好き 06/10/21(土) 2:44 お礼

38426 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free