Çözüldü Makro Kodunda Hata

[sirkülasyon]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [E14:K19]) Is Nothing Then
If Target = "" Then
    Target = "Var"
ElseIf Target = "Var" Then
    Target = "Yok"
ElseIf Target = "Yok" Then
    Target = ""
     End If
    ElseIf Not Intersect(Target, Range("L14:N19")) Is Nothing Then
    If Target = "" Then
    Target = "Uygun"
ElseIf Target = "Uygun" Then
    Target = "Uygun Değil"
ElseIf Target = "Uygun Değil" Then
    Target = ""
    End If
 ElseIf Not Intersect(Target, Range("O14:AS19")) Is Nothing Then
  If Target = "" Then
    Target = "Var"
ElseIf Target = "Var" Then
    Target = "Yok"
ElseIf Target = "Yok" Then
    Target = ""
    End If
End If
End Sub

Makrosu hata vermektedir. Rica etsem çalışır duruma gelmesi için yardımcı olabilir misiniz?

Teşekkür ederim.

 

[veyselemre]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, [E14:K19,L14:N19,O14:AS19]) Is Nothing Then
        If Not Intersect(Target, [E14:K19,O14:AS19]) Is Nothing Then
            Select Case Target.Value
            Case "": Target.Value = "Var"
            Case "Var": Target.Value = "Yok"
            Case "Yok": Target.Value = ""
            End Select
        Else
            Select Case Target.Value
            Case "": Target.Value = "Uygun"
            Case "Uygun": Target.Value = "Uygun Değil"
            Case "Uygun Değil": Target.Value = ""
            End Select
        End If
    End If
End Sub

 

[sirkülasyon]

Sayın veyselemre
çok çok teşekkür ederim.