エクセル マクロでデータベース的なシートから台帳を作成したい

Question

初心者です、お世話になります。
今まで商品の写真付き台帳を手入力していたのですが、誤入力が多く、
データベース的シート（以下、Masterシート）からデータを引っ張って台帳を作成したいです。

いろいろ試したのですが、Masterシート上の新規シートで台帳を完成させ、
その台帳シートのみマクロを外し、別ブックに保存といった流れがエラーも少ないと思います。
Masterシート、台帳ともなるべくマクロを作成しやすいように考えてレイアウトしましたが、
この限りではありません。

やりたいこと、
１：台帳作成開始シートにあらかじめ台帳のレイアウトを入れておく。
そこに、「台帳作成開始」ボタンと「完成＆保存」ボタンを作る。

２：Masterシートの選択と原価の選択
Masterシートはシート名「春夏」、「秋冬」・・・と複数あります。
「台帳作成開始」ボタンでマクロ実行後、msgboxで「どのMasterシートを使用しますか？」と出て使用するMasterシートを選択。
次に、販売原価が店舗によって異なるためＯ列～Ａ店、Ｂ店というように原価を記載しています。
msgboxで「どの店の台帳を作りますか？」と出て店舗（列）を選択。

※どちらもマクロ上で名前は入力し、今後増える場合にも対処したい。

２：選択されたシートと店舗（列）を使用し、台帳を作成。
msgboxで店舗（列）まで選ばれた時点で台帳作成シートをコピーし、新規シートに貼り付け。（できれば「台帳作成開始」ボタン削除）
「品名」右の空欄をアアクティブでプルダウンメニューに品名が表示され、選択すると写真も含め、関連するデータが貼り付けられる。
空欄にするとすべて消える。
※参考になるか分かりませんが、以前作成いただいたマクロを記載します。こちらは別ブックからMasterシートを取り込むマクロを実行した後、台帳に転記するマクロです。

３：選択した店舗（列）の店名をM1に転記

４：台帳が完成したら、「完成＆保存」ボタンを押す。
保存先を指定し、保存するとマクロのない作成した台帳シートのみが保存される。
xlsx形式の保存で事足りるならそれでも構いません。

以上の流れです。
つたない説明ですが、よろしくお願いします。

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rr As Long, cc As Integer
Dim hno As String
Dim sh As Worksheet
Dim rng As Range
Dim tmp As Variant
Dim shp As Shape
Dim fname As String
'Constステートメント＝定数定義
Const fpath As String = "\\○○\○○\商品Master\"
rr = Target.Row
cc = Target.Column

If rr > Cells(Rows.Count, "C").End(xlUp).Row Or rr Mod 7 <> 4 _
Or (cc <> 3 And cc <> 9 And cc <> 15) Then Exit Sub
Application.ScreenUpdating = False
Application.EnableEvents = False

'削除
If Target.Value = "" Then
Range(Cells(rr, cc), Cells(rr + 6, cc)).ClearContents
Range(Cells(rr, cc + 1), Cells(rr + 4, cc + 2)).ClearContents
Cells(rr + 6, cc + 1).Value = ""
'画像削除
For Each shp In Shapes
If shp.Type = msoLinkedPicture Or shp.Type = msoPicture Then
If Not Intersect(shp.TopLeftCell, Target.Offset(0, -2)) Is Nothing Then
shp.Delete
End If
End If
Next shp
'登録
Else
'Inster("ABCDE","D")は、数値の「4」を返します。
hno = Left(Target.Value, InStr(Target.Value, " ") - 1)
Set sh = Worksheets("Master")
With sh
Set rng = .Range("A1:A" & .Cells(Rows.Count, "A").End(xlUp).Row)
tmp = Application.Match(hno, rng, 0)
If IsError(tmp) Then
MsgBox "画像はありません"
Exit Sub
Else

Target.Value = hno
Target.Offset(1, 0).Value = .Range("B" & tmp).Value
Target.Offset(2, 0).Value = .Range("C" & tmp).Value
Target.Offset(3, 0).Value = .Range("D" & tmp).Value
Target.Offset(4, 0).Value = .Range("E" & tmp).Value
Target.Offset(5, 0).Value = .Range("F" & tmp).Value
Target.Offset(6, 0).Value = .Range("G" & tmp).Value
Target.Offset(0, 1).Value = .Range("I" & tmp).Value
Target.Offset(0, 2).Value = .Range("J" & tmp).Value
Target.Offset(1, 1).Value = .Range("K" & tmp).Value
Target.Offset(1, 2).Value = .Range("L" & tmp).Value
Target.Offset(2, 1).Value = .Range("M" & tmp).Value
Target.Offset(2, 2).Value = .Range("N" & tmp).Value
Target.Offset(3, 1).Value = .Range("O" & tmp).Value
Target.Offset(3, 2).Value = .Range("P" & tmp).Value
Target.Offset(4, 1).Value = .Range("Q" & tmp).Value
Target.Offset(4, 2).Value = .Range("R" & tmp).Value
Target.Offset(6, 1).Value = .Range("S" & tmp).Value
'画像
fname = fpath & .Range("H" & tmp).Value
With Target.Offset(0, -2)
Set shp = ActiveSheet.Shapes.AddPicture(Filename:=fname, _
LinkToFile:=False, SaveWithDocument:=True, _
Left:=.Left, Top:=.Top, Width:=.MergeArea.Width, Height:=.MergeArea.Height)
End With
End If
End With
End If
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

Comments

[takito]

具体的にはどんな問題が起きていて何に困っているのでしょうか？

[marutoki]

前マクロでは台帳ブックにマクロを置き、別ブックのMasterというシートを取り込んでいました。何度か台帳をコピーしたり編集したりすると「読み取れない内容があります。回復しますか？」と出て「はい」とすると「削除された機能: /xl/worksheets/sheet1.xml パーツ内のデータの入力規則」と出ます。マクロは動きます。あと台帳をメールする時、Masterシートとマクロを除外して送付するのが面倒でした。今回は一度作ったものを修正する時は手修正するつもりです。

[marutoki]

根本的な話でしたら、知識不足で困っています。このイメージのマクロを自分で作ろうとするとなかなか時間が取れず１年くらい勉強しないと出来そうにないです。

[takito]

今回お作りになったマクロなりエクセルなりで何かエラーが出ているのでしょうか？それともどなたかに作って欲しいのでしょうか？

[marutoki]

この流れのマクロを作成いただきたいです。今回、まだマクロは作成してません。掲載しているマクロは参考で自分で作ってはいませんし、応用もできません。応用できるようなら使ってください。こんな手のかかるもん一から？って事でしたら諦めます。

[takito]

業務利用のためにシステムを作ってください、とおっしゃっているように思います。技術的な壁にぶつかった人の解決の手助けをするのがこのサイトの役割と思います。ソフトウェアを作れない人の代わりに作ってあげるためのサイトではないですし、それって本来はお金を払って依頼するようなものではないでしょうか。ひょっとしたら誰かが気軽にマクロを書いてくれるかもしれませんが、少々善意に頼りすぎていませんか。せっかくですから、これを機にマクロを勉強されてはいかがでしょう？（と、やりとりしているうちに誰かがせっせと作ってくれたらラッキーですね）

[marutoki]

そうですよね、初めて利用させていただいたのですが、中級者向けのサイトといった印象です。もちろんこれだけの物ですからお金を払ってでも作りたい。でもどこに頼んだらいいのか。とにかく自分なりに勉強してみるしかないですね。

Answer 1

善意に頼りすぎていました。
そもそも、知識が浅はかすぎて善意と作成依頼の判断難しいですね。
私レベルでは全て有料案件に見えます(笑)
今回で判断がざっくり付いたので次回質問の際は一線超えないよう気を付けます。

※この案件はランサーズというスキル内職サイトの職人の方に仕事として依頼することにしました。