| |
▼ハチ さん：
回答ありがとうございます
必要なデータはK列だけではありません、１行全部です。
実際はB2・・・・・・BO2までです。
サンプルとして転記で誤りがありました。
誤：セル”Ｂ２”＝DGET(シート２!$A$5:$AO1800＄11,シート２!B$5,$A$1:$A$2)
正：セル”Ｂ２”＝DGET(シート２!$A$5:$AO1800,シート２!B$5,$A$1:$A$2)
ハチさんの指摘はもっともだと思います。
シート間の転送とか移動なんてのが使えれば・・・一度考えてみます。
ただ、まだVBAは素人なので使えるコードも限られていて苦肉の策なんです
シート２→シート３へ指定のデータ移動後シート２の指定データが無くなればいいのですが、そんなサンプルを御伝授いただければ嬉しいのですが
>▼わんこ好き さん：
>
>>１．シート１のＢ３セルに入力したコード（例：２０３２０）でシート２のデー タを検索する。
>>２．シート２の該当のコードデータをシート３にコピーする。
>>３．シート２の該当（例：２０３２０）のコードデータを削除する。
>>
>>以上、１から３までをコマンドボタン操作で処理したいのですが
>>
>>１と２は下記、DGET関数とVBAで何とか処理しました、しかし
>>
>>”３．シート２の該当（例：２０３２０）のコードデータを削除する。”が
>>初心者のため作れません。
>>
>>よろしくお願いいたします。
>>セル”Ａ２”＝シート１!B3
>>セル”Ｂ２”＝DGET(シート２!$A$5:$AO1800,シート２!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(月) 21:32 -
