連番で管理させるには

Question

前提・実現したいこと

D列に入力されたらA列に「シート名+連番」が入るようにする

発生している問題・エラーメッセージ

マクロを有効にしてなかったため作業者がのちほどD列をコピーペーストすると連番ではなくなってしまいます

重複する場合が出てきてしまい困っております。

D列をコピーペーストした場合でも連番にする方法はありますでしょうか
ご教授宜しくお願いいたします。

該当のソースコード

一部抜粋でしてます
必要でしたら全文載せます

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)

        Dim MyRNG As Range
        Dim k As Long
        Dim sn As String

        Application.EnableEvents = False


        k = Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Row
        sn = ActiveSheet.Name

If Not Intersect(Target, Range("D5", Cells(Rows.Count, "D"))) Is Nothing Then

            For Each MyRNG In Intersect(Target, Range("D5", Cells(Rows.Count, "D")))
                If MyRNG.Value = "" Then
                    Cells(MyRNG.Row, "A").Resize(, 3).Value = "" 
                Else
                    If MyRNG.Offset(, -3).Value = "" Then MyRNG.Offset(, -3).Value = sn & k - 10
                End If
            Next MyRNG

        End If

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Comments

[sinzou]

A列は蓄積される？
貼り付けはD5列のみ？　
　　A列からE列まで貼り付けたら
　　k = Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Row
　　貼り付けた最終行なの？

Answer 1

色々とご相談にのって頂きましてありがとうございます。
当初とは違うか形での解決になってしまいましたが、マクロが無効の場合は
sheetを開かせないようにいたしました。

最後までお付き合いいただきまして感謝いたします。

Answer 2

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Row < 5 Then Exit Sub
    If Intersect(Me.Range("D:D"), Target) Is Nothing Then Exit Sub
    
    Application.EnableEvents = False
    With Application.Range(Me.Range("A5"), Target.Offset(, -3))
        .Cells(1).Value = Me.Name & "_" & 1
        .Cells(1).AutoFill Destination:=.Cells, Type:=xlFillSeries
    End With
    Application.EnableEvents = True
End Sub

わ。
途中に空白があった場合は、
空白の行を除外して連番ですか？

Comments

[ichigo15]

説明が下手でご迷惑をおかけしております

D列を入力するとchangeイベントでA列に「シート名+連番」が入るようにしてます
マクロを無効で作業すると「シート名+連番」が入らず、のちの作業に影響が出てきてしまい困っております

ですのでD列をコピーペーストするマクロをPrivate Sub Workbook_Open()で実行させたのですがA列が連番にならず重複も出てきてしまいました

いっそ無効で開いたらファイルを閉じさせようと思いましたが上手くいきませんでした。
何かよい方法等ございましたら教えてください
宜しくお願いいたします。

10行目が見出し（9行目にはセルの結合があります）
シート名が"ああ"の場合

　　　　　　　A列　　　　D列を貼り付け後の希望
11行目　　　ああ1
12行目　　　空白　　　　　　→ああ2
13行目　　　空白　　　　　　→ああ3
14行目　　　ああ4
15行目　　　空白　　　　　　→ああ5

[ichigo15]

色々と相談にのって頂きましてありがとうございます。

別な方法で無事に解決することができました。