Помогите пожалуйста скомпоновать код VBA, если это конечно возможно
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 And Target.MergeCells = False Then Exit Sub
Select Case Target.Cells(1).AddressLocal(False, False)
'Нагрузка №1
Case "D8"
If Target.Value = "—" Then
Range("I8").Value = ""
End If
'Нагрузка №2
Case "D9"
If Target.Value = "—" Then
Range("I9").Value = ""
End If
'Нагрузка №3
Case "D10"
If Target.Value = "—" Then
Range("I10,K10,N10").Value = ""
End If
'Параметры нагрузки №3
Case "I10"
Application.EnableEvents = False
If IsEmpty(Target.Cells(1)) Then
Range("D10").Value = "—": Range("K10,N10").Value = ""
Else
If Range("F4").Value = "деревянное" Or Range("F4").Value = "деревянный" Then
Range("D10").Value = "Брус"
Else
Range("D10").Value = "Бетонная стяжка"
End If
End If
Application.EnableEvents = True
Case "K10"
Application.EnableEvents = False
If IsEmpty(Target.Cells(1)) Then
Range("D10").Value = "—": Range("I10,N10").Value = ""
Else
If Range("F4").Value = "деревянное" Or Range("F4").Value = "деревянный" Then
Range("D10").Value = "Брус"
Else
Range("D10").Value = "Бетонная стяжка"
End If
End If
Application.EnableEvents = True
Case "N10"
Application.EnableEvents = False
If IsEmpty(Target.Cells(1)) Then
Range("D10").Value = "—": Range("I10,K10").Value = ""
Else
If Range("F4").Value = "деревянное" Or Range("F4").Value = "деревянный" Then
Range("D10").Value = "Брус"
Else
Range("D10").Value = "Бетонная стяжка"
End If
End If
Application.EnableEvents = True
End Select
End Sub
