マクロについて質問です。エクセルの挿入からフォームコントロールから保存ボタンを作りましたが、その保存ボタンにマクロを組みたいと思います。内容は、保存ボタンを押すと指定したセルの文字がフォルダ名になり、名前を付けて保存し、別の指定したフォルダに移動するといる物です。わかりにくいかもしれませんが、教えていただけないでしょうか？

\u0026gt;セルの文字がフォルダ名になり、

どのセルかわかりませんので、アクティブなシートのB1セルとしました。

またこれはフォルダ名ではなくファイル名だと思います。



\u0026gt;別の指定したフォルダに移動する

移動でなく、別のフォルダに保存すればいいのではないでしょうか。

元のファイルを元のフォルダから消したいという事ですか？



添付図のような条件でのコードです。



Sub test()

Application.DisplayAlerts = False

With ActiveSheet

ThisWorkbook.SaveAs Filename:=.Range(\u0026quot;B2\u0026quot;).Value \u0026amp; \u0026quot;\\\u0026quot; \u0026amp; .Range(\u0026quot;B1\u0026quot;).Value

End With

Application.DisplayAlerts = True

End Sub





もしこのボタンを押さないで保存した場合も、この処理をしたいなら

ThisWorkbook の Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

にこのモジュールを呼び出すコードを書く必要があります。