|
▼わんこ好き さん:
>1.シート1のB3セルに入力したコード(例:20320)でシート2のデー タを検索する。
>2.シート2の該当のコードデータをシート3にコピーする。
>3.シート2の該当(例:20320)のコードデータを削除する。
>
>以上、1から3までをコマンドボタン操作で処理したいのですが
>
>1と2は下記、DGET関数とVBAで何とか処理しました、しかし
>
>”3.シート2の該当(例:20320)のコードデータを削除する。”が
>初心者のため作れません。
>
>よろしくお願いいたします。
>セル”A2”=シート1!B3
>セル”B2”=DGET(シート2!$A$5:$AO1800$11,シート2!B$5,$A$1:$A$2)
必要なデータはフィールド11(K列?)だけでですか?
>
> 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
自分はDGETをあまり使ったことがないのですが、
このコードでいくと削除するのに、
もう一度シート2のどこにデータがあるのか
検査しなければならないと思います
(もっと良い方法があるのかもしれません・・)
二重にデータチェックがかかってあまり良くないですね。
削除も行いたいならデータを引っ張るコードから見直したほうが良いかも。
|
|