Zam Oranı

[nadirornek]

Merhaba
Hazırlamış olduğum işlemi Userform üzerinden yapmak istiyorum.
TextBox1,TextBox2,TextBox3 e elle sayı gireceğim.Diğer Textbox'larda ise işlemleri kendisinin yapmasını istiyorm.Sil Butonuda Bütün TextBoxları silsin.

 

[nadirornek]

Private Sub CommandButton1_Click()
Dim Nesne As Control
For Each Nesne In Controls
Select Case TypeName(Nesne)
Case "TextBox"
Nesne = ""
End Select
Next
End Sub

Bu kod ile TextBoxların içini boşalttım.
İşlemleri kaldı

 

[halit3]

Merhaba
Hazırlamış olduğum işlemi Userform üzerinden yapmak istiyorum.
TextBox1,TextBox2,TextBox3 e elle sayı gireceğim.Diğer Textbox'larda ise işlemleri kendisinin yapmasını istiyorm.Sil Butonuda Bütün TextBoxları silsin.

Bu kodları denermiziniz.

Private Sub CommandButton1_Click()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
End Sub
Private Sub TextBox1_Change()
If IsNumeric(TextBox1.Text) = True Then
If IsNumeric(TextBox4.Text) = True Then
TextBox6.Text = (TextBox1.Text + (TextBox2.Text * TextBox3.Text / 100))
TextBox7.Text = (((TextBox6.Text - TextBox1.Text) / TextBox1.Text) * 1000)
End If
End If
End Sub
Private Sub TextBox2_Change()
If IsNumeric(TextBox2.Text) = True Then
If IsNumeric(TextBox3.Text) = True Then
TextBox4.Text = TextBox2.Text * TextBox3.Text / 100
TextBox5.Text = TextBox4.Text * 225
TextBox1_Change
End If
End If
End Sub
Private Sub TextBox3_Change()
If IsNumeric(TextBox2.Text) = True Then
If IsNumeric(TextBox3.Text) = True Then
TextBox4.Text = TextBox2.Text * TextBox3.Text / 100
TextBox5.Text = TextBox4.Text * 225
TextBox1_Change
End If
End If
End Sub

 

[nadirornek]

Verdiğiniz kod için teşekkürler.Güzel çalışıyor.Yanlız excelde verdiğim verileri userformda denermisiniz.Textbox7 de farklı sonuç çıkıyor.

 

[halit3]

denedim sonuçu doğru veriyor.

 

[nadirornek]

Özür dilerim Halit bey Textbox6' bakarmısınız.

 

[halit3]

Özür dilerim Halit bey Textbox6' bakarmısınız.

3 nolu mesajdaki kodu düzelttim denermisiniz.

 

[nadirornek]

Sağolun emeğinize sağlık şimdi düzeldi.

 

[halit3]

Sağolun emeğinize sağlık şimdi düzeldi.

iyi çalışmalar