作業ブックのシートに番号があり、その番号が該当したフォルダを指定フォルダ内に移動できるマクロを教えてください。
作業ブック名「作業管理(最新).xlsm」のシート名「物件管理」セル値「W5:W54」までに番号があります。(ただし日によっては「W5:W54」のセルにすべて数字が表示はされませんが、始まりは「W5」になります。
この数字が該当するフォルダ名を指定フォルダ内に移動をしたいと思います。
移動元のフォルダ「\\nas-sp01\share\確認部\電子申請 関連\2.審査中\◆未審査物件◆」
移動先のフォルダ「\\nas-sp01\share\確認部\電子申請 関連\2.審査中\北海」
です。
私の希望として、マクロを実行し、
1.移動元のフォルダ内に該当フォルダが無い場合は
メッセージボックスに「該当フォルダはありません」と表示され、「OK」をクリックするとマクロ終了
2.移動元のフォルダ内に該当フォルダがある場合はは
メッセージボックスに「該当フォルダがありました」と表示され、「OK」をクリックするとフォルダ移動の後、マクロ終了
3.移動元に該当フォルダが多数ある場合も2.としたいです。
例えば
セルC2に「12345678-6」表示
移動元のフォルダに「12345678-6_北海 太郎」のフォルダ名のフォルダがあり、
場合が一致した場合は、移動先のフォルダに移動
画像は参考画像となります。
親切にコード共教えてください。
よろしくお願いいたします。
No.1ベストアンサー
- 回答日時:
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) フォルダに一括でファイル振り分けるマクロについて 2 2021/10/31 17:44
- Excel(エクセル) エクセルのマクロについて教えてください。 マクロを実行すると コピー先のフォルダ名を検索して、条件に 5 2023/10/17 21:14
- デスクトップパソコン フォルダの移動 4 2021/12/07 11:27
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/01/26 09:50
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/21 09:28
- Visual Basic(VBA) エクセルのマクロコードの一部分を変更する方法について教えてください。 2 2023/02/17 08:40
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/02/21 13:29
- Visual Basic(VBA) 【マクロ】フォルダにファイルが1つも無い時に、ファイルがありませんとメッセージを表示する 4 2022/08/28 08:48
- Perl Perlのプログラムについて 3 2021/12/06 15:35
- Excel(エクセル) 【VBAファイル移動】2つのマクロを順に実行。1つ目のマクロが実行不可⇒2つ目が実行不可となる件 2 2022/07/29 12:17
このQ&Aを見た人はこんなQ&Aも見ています
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
環境が人生に与える影響は実際どれほどのものなのか、専門家の田宮由美さんに伺った。
-
Pythonのre.split()の正規表現の使い方
その他(プログラミング・Web制作)
-
行政文書を、フロッピーで渡しますと、役所から言われてるんですが、フロッピーなんていま見れますか?ネカ
その他(コンピューター・テクノロジー)
-
このURLで広告を出しているのはどこの会社ですか?
その他(プログラミング・Web制作)
-
-
4
写真のプログラムは、1からnまでの、全整数の積すなわち階乗値を求めて返却する関数を作成したいのですが
C言語・C++・C#
-
5
VBAのサブルーチンとプロシージャについての質問です。 VBAのプロシージャは,サブルーチンのsub
その他(プログラミング・Web制作)
-
6
ストリームについて。
C言語・C++・C#
-
7
Cookieは定期的に削除するべきなのでしょうか?
その他(コンピューター・テクノロジー)
-
8
フォルダを自動作成・移動を複数ファイルに対して行うバッチ処理について
その他(プログラミング・Web制作)
-
9
バッファリングについて。
C言語・C++・C#
-
10
【ChatGPT】皆さんの人とは変わったチャットGPTの使い方をしている人に質問です
その他(プログラミング・Web制作)
-
11
「10」を変換すると「13A0」となってしまいます。
Windows 10
-
12
無線のマウスってBluetooth以外にもあるのですか?
その他(コンピューター・テクノロジー)
-
13
擬似コード
C言語・C++・C#
-
14
擬似コード
C言語・C++・C#
-
15
C言語 解答について。
C言語・C++・C#
-
16
ここ5年以内に発売されているノートパソコンの画面は全て液晶なのですか?
その他(コンピューター・テクノロジー)
-
17
ノートパソコンのキーボードにホコリなどが入らないようにするためにノートパソコンのキーボードにつけるの
その他(コンピューター・テクノロジー)
-
18
openpyxlでExcelセルをクリックする方法は?
その他(プログラミング・Web制作)
-
19
Lazarus(IDE2.2.6)をインストールしたら次のようなメッセージが出てきたんですが...
その他(プログラミング・Web制作)
-
20
サブルーチンを使った再帰的なプログラム
C言語・C++・C#
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【マクロ】ファイル名の日付に...
-
Windows10でコマンドプロンプト...
-
Excelのハイパーリンクについて...
-
多量のファイルをフォルダに自...
-
VBA 最新のフォルダ取得
-
バッチファイルが保存されてい...
-
Excelvbaでブックをコピー名前...
-
サーバ内のフォルダ名と各フォ...
-
あるフォルダの中にあるファイ...
-
複数のサイト(別々のサーバー...
-
ディレクトリ名変更してコピー...
-
エクセル マクロで任意のフォ...
-
DLLの暗黙リンクの調べ方
-
同一フォルダ内の別ブックから...
-
フォルダ内のPDFファイル名を変...
-
Debug フォルダは消していいの?
-
マクロについて教えてください ...
-
フォルダを開いて、閉じるのプ...
-
ExcelVBAでフォルダへのハイパ...
-
VBSでファイル名と同じフォルダ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Windows10でコマンドプロンプト...
-
ファイル名と同名のフォルダを...
-
VBA 最新のフォルダ取得
-
【マクロ】ファイル名の日付に...
-
windowsでテキストファイルの各...
-
デスクトップの画像をhtmlに表...
-
Access VBA で フォルダ権限...
-
フォルダ内のPDFファイル名を変...
-
パス名に2バイト文字(マルチバ...
-
多量のファイルをフォルダに自...
-
Excelで指定したフォルダに保存...
-
会社のネットワーク上のファイ...
-
ディレクトリ名変更してコピー...
-
VBA フォルダ名に特定の文字を...
-
エクセルマクロで指定フォルダ...
-
保存先のフォルダ名を指定した...
-
あるフォルダの中にあるファイ...
-
ExcelのVBAでフォルダ指定がで...
-
エクセルのマクロについて教え...
-
Excel VBA で フォルダ名の一部...
おすすめ情報
自分で調べてフォルダを移動できるマクロを見つけましたが
このマクロだと指定したフォルダを指定したフォルダ内に移動となり
私の希望ではありませんでした、私の知識の限界です。
何卒、助けてください。よろしくお願いいたします。
Sub Sample2()
'※※フォルダを移動する※※
Dim FSO As Object
Dim Adr As String
'FileSystemObjectオブジェクトを作成
Set FSO = CreateObject("Scripting.FileSystemObject")
'コピー対象のフォルダパスを変数に代入
Adr = ThisWorkbook.Path
'「Dataフォルダ」を「Sampleフォルダ」内へ移動する
FSO.MoveFolder Adr & "\Data", Adr & "\Sample\"
End Sub