Excel VBA質問箱 IV

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

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


8737 / 13644 ツリー ←次へ | 前へ→

【31451】新規別ブックに保存させるのは? 猪鹿蝶 05/11/21(月) 17:32 質問[未読]
【31454】Re:新規別ブックに保存させるのは? Kein 05/11/21(月) 19:09 回答[未読]
【31477】Re:新規別ブックに保存させるのは? 猪鹿蝶 05/11/22(火) 13:53 お礼[未読]

【31451】新規別ブックに保存させるのは?
質問  猪鹿蝶  - 05/11/21(月) 17:32 -

引用なし
パスワード
   オートフィルタの結果を別シートへのコピーは出来たのですが、
新規別ブックに保存させるにはどうしたら宜しいのでしょうか?

Private Sub CommandButton6_Click() 'オートフィルタ結果をコピー
  ActiveSheet.AutoFilter.Range.Copy Worksheets("Sheet1").Range("A2")
  Range("A2:K2").Copy
  Sheets("Sheet1").Range("A1").PasteSpecial Paste:=8, Operation:=xlNone, _
  SkipBlanks:=False, Transpose:=False
  Range(Selection, Selection.End(xlDown)).Select '行高指定
  Selection.RowHeight = 25
End Sub

【31454】Re:新規別ブックに保存させるのは?
回答  Kein  - 05/11/21(月) 19:09 -

引用なし
パスワード
    中略

  Selection.RowHeight = 25
  Sheets("Sheet1").Copy
  ActiveWorkbook.Close True, ここへ新規ブックのフルパスを書く
End Sub

というようなコードで、新規ブックを作成できます。

【31477】Re:新規別ブックに保存させるのは?
お礼  猪鹿蝶  - 05/11/22(火) 13:53 -

引用なし
パスワード
   Kein さんへ

分かりました。ありがとう御座います。

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