Excel VBA質問箱 IV

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

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


10257 / 13646 ツリー ←次へ | 前へ→

【22796】頑張る予定が・・・・(抽出データの移動) じん 05/3/3(木) 15:52 質問[未読]
【22797】Re:頑張る予定が・・・・(抽出データの移... G-Luck 05/3/3(木) 16:02 回答[未読]
【22798】Re:頑張る予定が・・・・(抽出データの移... じん 05/3/3(木) 17:26 お礼[未読]
【22800】無能なのは承知の上です。ごめんなさい。お... じん 05/3/3(木) 18:32 質問[未読]
【22801】Re:無能なのは承知の上です。ごめんなさい... G-Luck 05/3/3(木) 18:57 発言[未読]
【22803】Re:無能なのは承知の上です。ごめんなさい... じん 05/3/3(木) 19:45 発言[未読]
【22850】再度おねがいできませんか? じん 05/3/4(金) 22:10 質問[未読]
【22856】Re:再度おねがいできませんか? G-Luck 05/3/5(土) 8:26 回答[未読]
【22886】Re:再度おねがいできませんか? じん 05/3/5(土) 22:18 お礼[未読]

【22796】頑張る予定が・・・・(抽出データの移動...
質問  じん  - 05/3/3(木) 15:52 -

引用なし
パスワード
   オートフィルタで抽出したデータを別シートに移したいのですが
マクロの記録で試してもよくわかりません。
スミマセンがヒントだけでもいいのでお願いします。

【22797】Re:頑張る予定が・・・・(抽出データの...
回答  G-Luck  - 05/3/3(木) 16:02 -

引用なし
パスワード
   ▼じん さん:
Me.AutoFilter.Range.SpecialCells(xlCellTypeVisible).Copy

Worksheets("Sheet2").Range("B1").PasteSpecial

でどうでしょう?

【22798】Re:頑張る予定が・・・・(抽出データの...
お礼  じん  - 05/3/3(木) 17:26 -

引用なし
パスワード
   ▼G-Luck さん:
たびたびスミマセン。
うまくいきません。けど、先ほどの記述を参考にやってみます!!
ほんと申し訳ないですが、また質問します。同じことで・・・多分。
G-Luck様様様様、宜しくお願いいたします。
店には偉いさんが来てて、なかなかパソコン触れませんでした。

【22800】無能なのは承知の上です。ごめんなさい。...
質問  じん  - 05/3/3(木) 18:32 -

引用なし
パスワード
   ▼G-Luck 様・・・・
1時間運営をほったらかしにして悩みましたが、
敗北です。
さきほど頂いた記述ではコピーされませんでした。
自分で何を試したのかもわかりませんが・・・
ど素人でスミマセン。
帰ってきてください。
神様 仏様 G-Luck様・・・・

【22801】Re:無能なのは承知の上です。ごめんなさ...
発言  G-Luck  - 05/3/3(木) 18:57 -

引用なし
パスワード
   ▼じん さん:
私以外の方でも、わかる方は多数いると思いますが、・・・

問題点の発見方法として、
ワンステップずつの実行「F8」等で確認しながら進むといいですよ。

Me.AutoFilter.Range.SpecialCells(xlCellTypeVisible).Copy

Worksheets("Sheet2").Range("B1").PasteSpecial

さしあたって間違えてそうなのは、Me
これは、データシート上での記述なので、フォームに記述する時は、
Worksheets("Sheet1")とかに置き換えないと、取得できませんよ。

【22803】Re:無能なのは承知の上です。ごめんなさ...
発言  じん  - 05/3/3(木) 19:45 -

引用なし
パスワード
   ▼G-Luck さん:
帰ってきていただけると信じておりました。
再度、運営無視でやってみます!!!

【22850】再度おねがいできませんか?
質問  じん  - 05/3/4(金) 22:10 -

引用なし
パスワード
   こんばんは
>Me.AutoFilter.Range.SpecialCells(xlCellTypeVisible).Copy
>Worksheets("Sheet2").Range("B1").PasteSpecial
>さしあたって間違えてそうなのは、Me
>これは、データシート上での記述なので、フォームに記述する時は、
データシート上に記述したので変更しておりません。
>Worksheets("Sheet1")とかに置き換えないと、取得できませんよ。
置き換えも大丈夫と思います。
実際にオートフィルタで条件を指定してもSheet2にはコピーされません。
マクロの実行を押すとコピーはされますが、コピー元のシートの
コピーする範囲?が点滅したままです。
できれば、
1)条件を指定するたび自動にコピーされる
2)現状、繰り返すとsheet2のコピーされたものの上から
上書きされるのですが、前の条件で指定したデータにヒット
した件数が多いと次に条件を指定した場合、少なければ
以前の抽出されたデータが残ったままになります。
以前のデータは都度消したいのですが・・・
勝手なのは承知の上です。
お付き合い願えませんか?
宜しくお願いします。

【22856】Re:再度おねがいできませんか?
回答  G-Luck  - 05/3/5(土) 8:26 -

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

>マクロの実行を押すとコピーはされますが、コピー元のシートの
>コピーする範囲?が点滅したままです。

Application.CutCopyMode = False

>1)条件を指定するたび自動にコピーされる

データシート上に書いたのであれば、
Private Sub ABC 〜

Public Sub ABC 〜
に変更して
ユーザーフォームのコマンドボタンのクリックイベントで
Call ABC '呼び出し
としては?

>以前のデータは都度消したいのですが・・・

Sheet2の全体を選択して、削除 or クリア をマクロ記録して、適切な場所に記入したらいかがですか?

【22886】Re:再度おねがいできませんか?
お礼  じん  - 05/3/5(土) 22:18 -

引用なし
パスワード
   ▼G-Luck さん:こんばんわ。
度々スミマセンでした。
無事解決しました。
ありがとうございました。

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