Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10255 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 さん：こんばんわ。
度々スミマセンでした。
無事解決しました。
ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10255 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free