Eğer-Eğersay konutu içeren formülü VBA textbox'larında tanımlama

[hkn.avc]

selamlar,

Oluşturduğum veri giriş formunda total weight ve net weight değerlerini tabloya girilmiş diğer değerler üzerinden, belirli bir koşula bağlı olarak hesaplatmam gerekiyor.


total weight = texbox22, için standart excell formülasyonu aşağıdaki gibi;

=EĞER(EĞERSAY(J4,"AL*")>0,G4*K4*L4*M4*2.7/1000000,G4*K4*L4*M4*7.85/1000000)

G4: textbox3
J4: textbox6
K4: textbox7
L4: textbox8
M4: textbox9

net weight = texbox23, için de standart excell formülasyonu aşağıdaki gibi;
=N4*(1-O4%)

N4: textbox22
O4: textbox10

bu iki formülü VBA kod olarak nasıl yazabilirim.

şimdiden ilginiz için teşekkürler.

 

[Muzaffer Ali]

Merhaba.

=EĞER(EĞERSAY(J4,"AL*")>0,G4*K4*L4*M4*2.7/1000000,G4*K4*L4*M4*7.85/1000000)

Yukardaki yerine aşağıdaki

Sub test2()
    Dim i As Double
    If UCase(Left(textbox22, 2)) = "AL" Then
        i = 2.7
    Else
        i = 7.85
    End If
    textbox22 = textbox3 * textbox7 * textbox8 * textbox9 * i / 1000000
End Sub

=N4*(1-O4%)

Yukardaki yerine aşağıdaki kodu kullanabilirsiniz.

Sub test1()
    textbox23 = textbox22 * (1 - (textbox10 / 100))
End Sub

 

[hkn.avc]

Merhaba,
Teşekkür ederim ancak maalesef çalıştırmayı başaramadım bu kodları.