Excel VBA質問箱 IV

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

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


38404 / 76738 ←次へ | 前へ→

【43472】Re:検索と削除
発言  わんこ好き  - 06/10/16(月) 21:32 -

引用なし
パスワード
   ▼ハチ さん:

回答ありがとうございます
必要なデータはK列だけではありません、1行全部です。
実際はB2・・・・・・BO2までです。
サンプルとして転記で誤りがありました。
誤:セル”B2”=DGET(シート2!$A$5:$AO1800$11,シート2!B$5,$A$1:$A$2)
正:セル”B2”=DGET(シート2!$A$5:$AO1800,シート2!B$5,$A$1:$A$2)

ハチさんの指摘はもっともだと思います。
シート間の転送とか移動なんてのが使えれば・・・一度考えてみます。
ただ、まだVBAは素人なので使えるコードも限られていて苦肉の策なんです
シート2→シート3へ指定のデータ移動後シート2の指定データが無くなればいいのですが、そんなサンプルを御伝授いただければ嬉しいのですが


>▼わんこ好き さん:
>
>>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,シート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のどこにデータがあるのか
>検査しなければならないと思います
>(もっと良い方法があるのかもしれません・・)
>
>二重にデータチェックがかかってあまり良くないですね。
>削除も行いたいならデータを引っ張るコードから見直したほうが良いかも。

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 お礼

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