compilazione celle

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long
If Not Intersect(Target, Columns("B:B")) Is Nothing Then 'casoA
    If Target.Value = "NO" Then
        For i = 3 To 7
            Cells(Target.Row, i) = " - "
        Next i
    End If
ElseIf Not Intersect(Target, Columns("E:G")) Is Nothing Then 'casoB
    If Cells(Target.Row, 3) = "SI" And Cells(Target.Row, 4) = "SI" Then
        Application.EnableEvents = False
        If Target.Column = 5 Then
            Cells(Target.Row, 6) = " - ": Cells(Target.Row, 7) = " - "
        ElseIf Target.Column = 6 Then
            Cells(Target.Row, 5) = " - ": Cells(Target.Row, 7) = " - "
        ElseIf Target.Column = 7 Then
            Cells(Target.Row, 5) = " - ": Cells(Target.Row, 6) = " - "
        End If
        Application.EnableEvents = True
    End If
ElseIf Not Intersect(Target, Columns("C:C")) Is Nothing Then 'casoC
     If Target.Value = "NO" Then
        For i = 4 To 7
            Cells(Target.Row, i) = " - "
        Next i
    End If
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Columns("C:C")) Is Nothing Then
    If Cells(Target.Row, 2) = "NO" Then
        MsgBox "Attenzione." & vbLf & "Questa cella non è editabile.", 0 + 16, "Errore"
        Exit Sub
    End If
ElseIf Not Intersect(Target, Columns("D:G")) Is Nothing Then
    If Cells(Target.Row, 2) = "NO" Or (Cells(Target.Row, 3) = "NO" And Cells(Target.Row, 2) = "SI") Then
        MsgBox "Attenzione." & vbLf & "Questa cella non è editabile.", 0 + 16, "Errore"
        Exit Sub
    End If
End If
End Sub