【VBA】雛型を使って取引先ごとに別シート転記【DictionaryとCopyを使う】

[@syouzama]

これは実務でやりたかったやつです、すぐ使えますね。ありがたいです。
dictionaryの使い方がイマイチわかってなかったのですが、こんなふうに
使うんだというイメージはわきました。ありがとうございます☺

[@内田貴博]

VBAについてはじめて知りました。手作業でやっていたので業務改善できてます。
雛形が複数ページある場合、DBの値をどのようにしたら反映できるか教えて欲しいです。

[@おいおい-w5n]

何時も勉強させいただいてます。現在雛型を作り、データー入力後、その雛型を、顧客別シートに転記しております。例えば新しい月となったときに、新しい月のシートを追加して転記したい。その時の日付データーをどの様にコーデングすればいいのか、教示下さい。全く分からず止まっています。

[@IT-gx8sf]

コメントありがとうございます！
ご質問の内容としては、雛型を使って「月ごと」に別シートに転記する方法になるかと思います。
雛型を使って「月ごと」に別シートに転記するVBAコードを作成してみましたので、参考になればと思います。
例えば、次のような月ごとのデータを「DB」シートに保存しているとします。
A B C
1 日付 商品 売上
2 2022/1/1 モニター 100
3 2022/1/2 ノートPC 200
4 2022/1/3 マウス 300
5 2022/2/1 モニター 400
6 2022/2/2 ノートPC 500
7 2022/2/3 マウス 600
8 2022/3/1 モニター 700
9 2022/3/2 ノートPC 800
10 2022/3/3 マウス 900
「ベース」シートには、雛型を作成しておきます。
そして、次のVBAコードを実行すると、雛型のデータを「月ごと」に別シートに転記することができます。
Sub TEST1()
'リストをループ
For m = 1 To 3
'シートをクリア
Sheets("ベース").Range("B3,A6:F9") = ""
Dim A, B
A = DateSerial(2022, m, 1) '1日の日付
B = DateSerial(2022, m + 1, 0) '月末の日付
'年月を入力
Sheets("ベース").Range("B3") = Format(A, "yyyy年m月")
j = 5
'商品をループ
For i = 2 To Sheets("DB").Cells(Rows.Count, "A").End(xlUp).Row
'指定月のデータを取得
If A

[@おいおい-w5n]

@@IT-gx8sf
早速の返信有難うございます。早速作って見ます、今は、雛型にデーターを入力当月シートに転記しています当月シートの最終の曜日が金曜日ならば、横にずらして転記しています。
又不明なことが出ましたら、ご教示お願いします。