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