- ベストアンサー
※ ChatGPTを利用し、要約された質問です（原文：Excel2003VBA）
Excel2003VBAで12月1月の店舗を抽出し新しいブックに移動する
このQ&Aのポイント
- Excel2003VBAで記録した手作業マクロの修正についての質問です。
- 特定の条件で12月と1月の店舗を抽出し、新しいブックに移動する方法を教えてください。
- また、アクティブシートが必ずしも「Sheet1」ではない場合、移動後にデスクトップに保存するコードも教えてください。
- ookami1969
- お礼率94% (290/306)
- オフィス系ソフト
- 回答数2
- ありがとう数2
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
＃１です。 ＞＞Worksheets("Sheet1").Move ＞もし よろしければ こちらを「アクティブシート」にする方法も ＞ご教示いただけませんでしょうか。 アクティブなシートを移動なら、 ActiveSheet.Move ですが、その時に”目的のシート”がアクティブであるかどうかは検証できません。 ＞Sheets.Add ＞ActiveSheet.Paste このシートと ＞Worksheets("Sheet1").Select ＞Worksheets("Sheet1").Move このシートが違うのならば「.Moveしたいシートはどれなのか」を明確にされる必要があるかと。
その他の回答 (1)
- n-jun
- ベストアンサー率33% (959/2873)
回答No.1
ブック・シート・データの構成などがわからないので、何に対して「マクロの自動記録」を 取ったのか手順を明記された方がいいようにも感じました。 ＞あと出来ればこれも移動させた後でデスクトップに名前を付けて保存までしたいのですが デスクトップのパスを表示する http://www.moug.net/tech/exvba/0060052.htm 「ファイル名を付けて保存」の保存先フォルダを変更する http://moug.net/tech/exvba/0060048.htm デスクトップパスを取得し、保存先フォルダとする。 の参考として。
質問者
お礼
ご回答ありがとう御座います。 ＞Worksheets("Sheet1").Move もし よろしければ こちらを「アクティブシート」にする方法も ご教示いただけませんでしょうか。 宜しくお願いします。
お礼
再回答ありがとう御座います。 ＞ActiveSheet.Move これで うまいこといきました。 ドット入れたりアンダーバーを入れたりブランクを入れたりと 色々やりましたが結論何も入れないのが正解だったんですね。 ありがとう御座いました。