End Sub. Private Sub CommandButton2_Click()' 2 поставщик

Private Sub CommandButton2_Click() ' 2 поставщик

Range("E3") = 3.2 'Цена за кг. 1-го сырья 2-м поставщиком

Range("H3") = 5.5 'Цена за кг. 2-го сырья 2-м поставщиком

Range("K3") = 2.6 'Цена за кг. 3-го сырья 2-м поставщиком

Range("D11") = Range("L8") 'Передача затрат в ячейку D11

End Sub

Private Sub CommandButton3_Click() ' 3 поставщик

Range("E3") = 3.3 'Цена за кг. 1-го сырья 3-м поставщиком

Range("H3") = 4.1 'Цена за кг. 2-го сырья 3-м поставщиком

Range("K3") = 2.8 'Цена за кг. 3-го сырья 3-м поставщиком

Range("D12") = Range("L8") 'Передача затрат в ячейку D12

End Sub

Private Sub CommandButton4_Click() ' Процедура обнуления ячеек

Range("E3") = 0 ' Обнуление ячейки Е3

Range("H3") = 0

Range("K3") = 0

Range("D10") = 0

Range("D11") = 0

Range("D12") = 0