WARNING1! Блок-схема (мб не совсем правильная, но у меня проканало) к этому коду
Public Sub Stoimost()
Dim d As Long
i = 3
d = 1
Do While Cells(i, 2) <> ""
If Cells(i, 2) = "Монитор" Then
d = Cells(i, 4) * Cells(i, 5) - Cells(i, 4) * Cells(i, 5) * 0.15
Cells(i, 6) = d
Else: d = Cells(i, 4) * Cells(i, 5)
Cells(i, 6) = d
End If
i = i + 1
Loop
Range("F2") = "Стоимость"
End Sub
ну и схема
