|
こんばんわ
Jakaさん いろいろとご指導ありがとうございます。
確かにマクロの記録と我流のマクロを組み合わせて
作ったのでおかしなことになってるかもしれません・・・
そもそも これを作ったのは 抽出してコピーして
他のシートに貼り付ける作業がめんどくさくて作った
ものですから・・・(^。^ゞ
ご指摘頂いた 内容を直してみたいと思います。
あと、エラートラップですが、抽出キーでデータベースに
ない物を選択して抽出してコピーしようとすると
エラーになったので つけたような・・・・気がします。
(すいません、あいまいで)
>・↓を修正しようと思いましたが、何でエラートラップしてあるのでしょうか?
> この辺は、上記したことが判明しないと修正できませんけど
> なんとなく、データ量が多すぎる、SpecialCells(コードには書いてないけど)の最大認識数に
> 関係しているのかな?と思います。
>> Range("B2:BP2").Select
>> On Error GoTo tugi
>> Range(Selection, Selection.End(xlDown)).Select
>> Selection.Copy
>> On Error GoTo tugi
>
|
|