Koda ilave

[1Al2Ver]

Merhaba,

.............
............
If OptionButton1.Value = True Then
TextBox9.Text = 22.01 * A * 0.3 + 22.01 * A
End If
............
............
End If
End Function

şeklinde uzayan bir kod kümem var,

Yapmak istediğim ;

Şayet ; TextBox9.Text = TextBox24.Text ise, TextBox9'a, 0 (sıfır) yaz,

Değil ise; TextBox9.Text = 22.01 * A * 0.3 + 22.01 * A (hesapla)

Bu işlem için kodda gereken düzeltmeyi rica ediyorum,

Teşekkür ederim.

 

[mustafaine1]

If TextBox9.Value = TextBox24.Value Then
TextBox9.Value = ""
Else
TextBox9.Value = "22.01" * A * "0.3" + "22.01" * A
End If

bu sekilde olmasi gerekir yanlis anlamadiysam cok basit bi islem oldu ama yanlis anlmadim umarim A tanimli birsey sanirim Long filan olarak oyle degil mi ?

 

[1Al2Ver]

If TextBox9.Value = TextBox24.Value Then
TextBox9.Value = ""
Else
TextBox9.Value = "22.01" * A * "0.3" + "22.01" * A
End If

bu sekilde olmasi gerekir yanlis anlamadiysam cok basit bi islem oldu ama yanlis anlmadim umarim A tanimli birsey sanirim Long filan olarak oyle degil mi ?

Sayın mustafaine merhaba,

İlginiz ve öneriniz için teşekkür ederim, denedim ancak bir iki sorun yaşadım,

A harfi ağırlık anlamında kullanılmakta ve başka bir textbox'a rakam girilmekte,

22.01 ve 0.3 ise hesaplama parametresi

Kodunuzun ne yapıp, ne yapmadığına gelirsek ;

"" işaretlerini kaldırdım, End Function'dan önce End If ilave ettim,

UserForm'daki hesaplat butonu ile hesaplattım, 2 nci hesaplatmada ise A'yı değiştirdiğimde hesaplama sabit kalıyor,

Şu ara deneme-yanılma ile düzeltmeye çalışıyorum,

Kod'un tamamı ise ;

Private Function hesapla()
On Error Resume Next
Dim A, B, Y As Single
A = TextBox1.Text
B = TextBox2.Text
Y = TextBox3.Text
If OptionButton1.Value = True Then
TextBox13.Text = (66.5 + (13.75 * A) + (5.03 * Y) - (6.75 * B))
End If
If OptionButton1.Value = True Then
TextBox4.Text = (79.05 - 0.24 * A - 0.15 * B) * A / 73.2
End If
TextBox5.Text = (A / Y ^ 2)
TextBox6.Text = 0.20247 * (Y / 100) ^ 0.725 * (A ^ 0.425)
If OptionButton1.Value = True Then
TextBox7.Text = Int(50 + 2.3 * ((0.393701 * Y) - 60))
End If
If OptionButton1.Value = True Then
TextBox8.Text = 22.01 * A
End If
If OptionButton1.Value = True Then
TextBox9.Text = 22.01 * A * 0.3 + 22.01 * A
End If
If OptionButton1.Value = True Then
TextBox10.Text = 0.9 * A
End If
If OptionButton1.Value = True Then
TextBox24.Text = Int(50 + 2.3 * ((0.393701 * Y) - 60) - A)
TextBox24.Text = IIf(TextBox1 < TextBox24, TextBox24, TextBox24 * -1)
End If
End Function

Tekrar teşekkürler.

 

[mustafaine1]

Dosya eklemeniz mumkunse yardim etmeye calisirim.

 

[1Al2Ver]

Dosya eklemeniz mumkunse yardim etmeye calisirim.

Teşekkür ederim,

Dosya boyutu zip veya rar ile bile, ekleme limitlerini aşıyor, bu nedenle de ekleyemedim,

Yardımlarınız ve ilginiz için tekrar teşekkürler, saygılarımla.

 

[1Al2Ver]

Merhaba,

Tüm denemelerim maalesef istediğim sonucu vermedi,

Farklı bir öneri yada kod rica ediyorum,

Teşekkür ederim.

 

[Recep İpek]

Function değilde normal Sub makrosu olarak deneyebilir misiniz?

 

[1Al2Ver]

Function değilde normal Sub makrosu olarak deneyebilir misiniz?

Sayın Recep İpek, merhaba,

Denerim elbette, sonuca ulaşsın da,

Teşekkür ederim.

 

[1Al2Ver]

Merhaba,

Kod'da yapılması gerekeni rica ediyorum.

Teşekkür ederim.

 

[1Al2Ver]

Merhaba,

.............
............
If OptionButton1.Value = True Then
TextBox9.Text = 22.01 * A * 0.3 + 22.01 * A
End If
............
............
End If
End Function

şeklinde uzayan bir kod kümem var,

Yapmak istediğim ;

Şayet ; TextBox7.Text = TextBox24.Text ise, TextBox9'a, 0 (sıfır) yaz,

Değil ise; TextBox9.Text = 22.01 * A * 0.3 + 22.01 * A (hesapla)

Bu işlem için kodda gereken düzeltmeyi rica ediyorum,

Teşekkür ederim.

 

[Orion1]

if TextBox7.Text = TextBox24.Text then
    TextBox9.text=0
    else
   TextBox9.Text = ((22.01 * A * 0.3) + (22.01) * A)
end if

 

[1Al2Ver]

if TextBox7.Text = TextBox24.Text then
    TextBox9.text=0
    else
   TextBox9.Text = ((22.01 * A * 0.3) + (22.01) * A)
end if

Sayın Evren Gizlen, merhaba,

Çözüm için teşekkür ederim, saygılarımla.