Проблема с формулой

[Радмир4855]

Помогите с формулой для подсчета суммы, чтобы она считала цену закупки если приход или цена продажи если расход

Вот у меня обыная формула она считает, но только по цене закупки. т.к не учитываетвф приход и расход

Private Sub CommandButton4_Click()
TextBox7 = Val(TextBox4) * TextBox6
End Sub

[mchip]

Вот так:

Private Sub CommandButton4_Click() 
TextBox7 = Val(TextBox4) * TextBox6*TextBox5
End Sub

[Радмир4855]

Нет неправильно, вы меня не понели надо чтобы если приход, то по цене закупки считалась, а если расход, то по цене продажи, а вы написали формулы где умножаеться кол на цену закупки и еще раз умножается на цену продажи

[mchip]

Сообщение от Радмир4855

Помогите с формулой для подсчета суммы, чтобы она считала цену закупки если приход или цена продажи если расход

Вот у меня обыная формула она считает, но только по цене закупки. т.к не учитываетвф приход и расход

Private Sub CommandButton4_Click()
TextBox7 = Val(TextBox4) * TextBox6
End Sub

А где здесь указание на приход или расход?

[Радмир4855]

чтобы она считала цену закупки если приход или цена продажи если расход

[The_Prist]

Сообщение от Радмир4855

чтобы она считала цену закупки если приход или цена продажи если расход

Вы сами подумайте, как можно нормально Вам помочь, если Вы не говорите как понять что есть приход, что есть расход? Где смотреть какая операция(приход или расход)? Из приведенных Вами строк макроса ничего этого не видно. Я там даже намека на приходы с расходами не нашел.
Вот простейший пример построения конструкции с условиями:

Private Sub CommandButton4_Click() 
If Расход Then
TextBox7 = Val(TextBox4) * TextBox6*TextBox5
Else
TextBox7 = Val(TextBox4) * TextBox3*TextBox2
End if
End Sub

[Радмир4855]

Я подогнал ее по себя, но она почему считает только по одной цене, по цене закупки независимо от того что я ставлю в combobox3 приход или расход

Private Sub CommandButton4_Click()
If ComboBox3 = Расход Then
TextBox7 = Val(TextBox5) * TextBox6
Else
TextBox7 = Val(TextBox4) * TextBox6
End If
End Sub


TextBox7=Сумма
TextBox4=Цена закупки
TextBox6=количество
TextBox5=цена продажи
ComboBox3= поле со списком где выбираеться приход или расход

[The_Prist]

Кавычки обязательны для текстовых значений. Это раз. Во вторых, лучше еще и TextBox6 приводить к числу

Private Sub CommandButton4_Click()
If ComboBox3 = "Расход" Then
TextBox7 = Val(TextBox5) * Val(TextBox6)
Else
TextBox7 = Val(TextBox4) * Val(TextBox6)
End If
End Sub

Упрощаем:

Private Sub CommandButton4_Click()
TextBox7 = Val(IIf(ComboBox3 = "Расход", TextBox5,TextBox4)) * Val(TextBox6)
End Sub

[Радмир4855]

Спасибо большое, что помогли, все работает!!!!