VBA 실행시 오류가 뜨네요,,

[칼칼]

'컴파일오류 블록if가 없는 end if' 라는 오류가 계속 뜨네요,,,

동일 시트에서 2개의 셀값에 따라 Worksheet_Change를 일으키는 vba입니다.

셀 d11과  셀 c2 값에 따라 독립적으로 수행되는 vba인데 에러가 나네요..    이유를 통 모르겠습니다.

알려주시면 감사하겠습니다.

Private Sub Worksheet_Change(ByVal Target As Range)

 If Intersect(Target, Range("d11")) Is Nothing Then Exit Sub
    Select Case UCase(Target.Value)
    Case "0"
        Call 주0
    Case "1"
       Call 주1
    Case "2"
       Call 주2
    Case "3"
       Call 주3
    Case "4"
       Call 주4
    Case "5"
       Call 주5
    Case "6"
       Call 주6
    Case "7"
       Call 주7
    Case "8"
       Call 주8
    Case "9"
       Call 주9
    Case "10"
       Call 주10
    Case Else
        Call 주0
        'Target.Offset(0, 1) = Empty
    End Select

End If
     If Intersect(Target, Range("c2")) Is Nothing Then Exit Sub
    Select Case UCase(Target.Value)
    Case "1"
        Call 객1
    Case Else
        Call 객2_3
       
    End Select
   
End If

End Sub

[윤슬]

안녕하세요? [칼칼]님...

제가 아래와 같이 코딩해 봤는데 별 문제가 없습니다.
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("c2,d11")) Is Nothing Then
If Target.Column = 4 Then
Select Case UCase(Target.Value)
Case "0"
Call 주0
Case "1"
Call 주1
End Select
Else
Select Case UCase(Target.Value)
Case "0"
Call 객0
Case "1"
Call 객1
End Select
End If
End If
End Sub

그럼 잘 해결되시길... ^^*

[윤슬]

다만 주0~주10까지의 프로시져는 파일을 보진 못했지만 단순화 시킬 수 있을듯 합니다.