条件分岐で入力規則を設けるマクロの複数範囲コピペについて

Question

はじめまして、ご覧いただきありがとうございます。

ExcelVBAにて条件分岐で入力規則を設けるマクロを組みました。
複数範囲のコピー＆ペーストにも対応させたつもりなのですが、「入力規則が反映される予定のセル」つまり11列目が選択範囲内に含まれてると、マクロが動かず入力規則が反映されません。
これを反映させるようにするにはどういった改変を行えばよいのでしょうか？

下記がコードになります。

Option Explicit

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

Dim ws1 As Worksheet, ws2 As Worksheet
Dim i, j As Range

Set ws1 = Worksheets("入力表")
Set ws2 = Worksheets("名簿")



    For Each j In Target
    
        With j
        
            On Error Resume Next
        
            If .Column = 9 And .Value = "本社" Or .Value = "営業所" Then
            
                i = .Row
                ws1.Cells(i, 11).Validation.Add Type:=xlValidateList, Formula1:="=OFFSET(名簿!$A$2,0,0,COUNTA(名簿!$A:$A)-1,1)"
            
            
            ElseIf .Column = 9 And .Value <> "本社" Or .Value <> "営業所" Or .Value = "" Then
            
                i = .Row
                ws1.Cells(i, 11).Validation.Delete
                                                       
            End If
                    
        End With
    
    Next
    

End Sub

わかる方いましたらご指導お願い致します。

Answer 1

全然関係ない話かもしれませんが、IF文の条件は下記が正しくないですか？

If .Column = 9 And (.Value = "本社" Or .Value = "営業所") Then

ElseIf .Column = 9 And (.Value <> "本社" Or .Value <> "営業所" Or .Value = "") Then

Comments

[i-bunta]

あ、すごい単純なミスデシタ...
直りました！ありがとうございます！！