UserForm textbox lar arası eğer formulü

[ikikan]

=EĞER(K6=0;EĞER(U6=0;P6;EĞER(Z6=0;U6*0,45+P6;EĞER(U6>P6;EĞER(AE6=0;P6*0,55+U6+Z6*0,45;P6*0,55+U6+Z6);EĞER(AE6=0;P6+U6;Z6*0,45+U6+P6))));EĞER(U6=0;P6;EĞER(Z6=0;U6*0,45+P6;EĞER(AE6=0;U6+P6;Z6*0,45+U6+P6))))

bu formül sayfa içindeki hücreleri kullanmadan direk userforum üzerinden yapıla bilirmi ?

örnek =if(textbox1 =0 ; .....

 

[İhsan Tank]

Merhaba
Aslında yapılabilir ama ne bileyim zor görünüyor. Dosya yok

 

[ikikan]

ihsan bey bencede zor dosya oluşturuyorum yeni başladım altaki kodlara bir bakarmısınız gidişat dogrumu ?

If Val(TextBox1) = "" Or "0" Then
If Val(TextBox3) = "" Or "0" = Val(TextBox2) Then
If Val(TextBox4) = "" Or "0" = (Val(TextBox3) * Val("0,45")) + Val(TextBox2) Then
If Val(TextBox3) > Val(TextBox2) Then
If Val(TextBox5) = "" Or "0" = (Val(TextBox2) * Val("0,55")) + Val(TextBox3) + Val(TextBox4) Then

 

[ikikan]

ihsan tank beyin dikatine

dosya ektedir aslında eğer tam olarak oturmuyor bir dosyayı incelerseniz

Merhaba
Aslında yapılabilir ama ne bileyim zor görünüyor. Dosya yok

Private Sub CommandButton1_Click()
If TextBox1.Value = 0 Then
If TextBox3.Value = 0 Then
TextBox52.Value = TextBox2.Value
Else
If TextBox4.Value = 0 Then
TextBox52.Value = Val(TextBox3.Value) * Val("0,45") + Val(TextBox2.Value)
Else
If TextBox3.Value > TextBox2.Value Then
If TextBox5.Value = 0 Then
TextBox52.Value = Val(TextBox2.Value) * Val("0,55") + Val(TextBox3.Value) + Val(TextBox4.Value) * Val("0,45")
Else
TextBox52.Value = Val(TextBox2.Value) * Val("0,55") + Val(TextBox3.Value) + Val(TextBox4.Value)
If TextBox5.Value = 0 Then
TextBox52.Value = Val(TextBox2.Value) + Val(TextBox3.Value)
Else
TextBox52.Value = Val(TextBox4.Value) * Val("0,45") + Val(TextBox3.Value) + Val(TextBox2.Value)

End If
End If
End If
End If
End If
End If
End Sub

 

[İhsan Tank]

Dosyada oldukça fazla textbox var
Ufak bir dosya ekleyin onun üzerinde örnek olarak vereyim siz devam ettirin.

 

[ikikan]

Dosyada oldukça fazla textbox var
Ufak bir dosya ekleyin onun üzerinde örnek olarak vereyim siz devam ettirin.

dosya ektedir İhsan Bey

 

[ikikan]

konu çözülmüştür tüm versiyonlar için

bir userforma 1 den 9 kadar textbox ekleyin ve kodu yapıştırın

Private Sub CommandButton1_Click()
Dim bt, a, b, c, d, e, f, g
bt = TextBox1.Text
a = TextBox2.Text
b = TextBox3.Text
c = TextBox4.Text
d = TextBox5.Text
e = TextBox6.Text
f = TextBox7.Text
g = TextBox8.Text

If a < b And d = "0" Then
TextBox52 = Val(a) * "0,55" + Val(b) + Val(c) * "0,45"
ElseIf a < b And d > "0" Then
TextBox52 = Val(a) * "0,55" + Val(b) + Val(c)
ElseIf b = "0" Then
TextBox52 = Val(a)
ElseIf c = "0" Then
TextBox52 = Val(b) * "0,45" + Val(a)
ElseIf d = "0" Then
TextBox52 = Val(a) + Val(b)
ElseIf e = "0" Then
TextBox52 = Val(a) + Val(b) + Val(c) * "0,45"
ElseIf f = "0" Then
TextBox52 = Val(a) + Val(b) + Val(c)
ElseIf g = "0" Then
TextBox52 = Val(a) + Val(b) + Val(c) + Val(d) * "0,45"
ElseIf g > "0" Then
TextBox52 = Val(a) + Val(b) + Val(c) + Val(d)

End If
End Sub