Vba Çarpma ve Yüzde Alma.. İşlem Sonucu Fazla Çıkıyor.

[stirra_ej]

Başlıkta da balirttiğim gibi yazdığım formül sonucu küsürlü rakamlar girdiğimde işlem sonucu fazla yada eksik çıkıyor.

Private Sub CommandButton1_Click()

On Error Resume Next
Dim sayi1, sayi2, sayi3, ilksonuc, sonuc As Integer

sayi1 = Format(sayi1, "#,##0.00")
sayi2 = Format(sayi2, "#,##0.00")
sayi3 = Format(sayi3, "#,##0.00")
ilksonuc = Format(ilksonuc, "#,##0.00")
sonuc = Format(sonuc, "#,##0.00")
TextBox7 = Format(TextBox7, "#,##0.00")
TextBox8 = Format(TextBox8, "#,##0.00")

sayi1 = TextBox7.Text


sayi2 = TextBox8.Text


sayi3 = TextBox9.Text


ilksonuc = CDbl(TextBox7.Text) * CDbl(TextBox8.Text)

sonuc = CDbl(ilksonuc) / 100 * CDbl(TextBox9.Text)


Tutar = CDbl(ilksonuc) + CDbl(sonuc)

End Sub

 

[muratb06]

Kodun başındaki
Dim sayi1, sayi2, sayi3, ilksonuc, sonuc As Integer
satırı
Dim sayi1, sayi2, sayi3, ilksonuc, sonuc As Double
İle değiştiriniz.

ASUS_Z00LD cihazımdan Tapatalk kullanılarak gönderildi

 

[stirra_ej]

Kodun başındaki
Dim sayi1, sayi2, sayi3, ilksonuc, sonuc As Integer
satırı
Dim sayi1, sayi2, sayi3, ilksonuc, sonuc As Double
İle değiştiriniz.

ASUS_Z00LD cihazımdan Tapatalk kullanılarak gönderildi

Hocam hay allah razı olsun.. Formül değiştirmekten bir hoş olmuştum. sorunu hallettim sayende..

Bir şey daha sorabilirmiyim

Userform sayfasına texboxlara bilgileri giriyorum çıkıp girince bomboş oluyor, bilgileri sabit nasıl tutabilirim .

Sabit kalırsa ben temizle butonu koyarak sileceğim

 

[Orion1]

Sayfa üzerindeki hücrelere yazın.
Formu açarken o hücrelerden nesnelerine initialize olayında tekrar alabilirsiniz.

 

[mancubus]

bu şekilde sayi1, sayi2, sayi3 ve ilksonuc değişkenleri variant, sadece sonuc değişkeni integer/double olarak tanımlanmış olur.
variant'larda kod çalışırken değişkenin aldığı değere göre data tipini öğrenir.

hepsi double olarak deklare edilmek isteniyorsa, ki öyle olduğu anlaşılıyor, şu şekilde tanımlanmalı:

Dim sayi1 As Double, sayi2 As Double, sayi3 As Double, ilksonuc As Double, sonuc As Double

 

[stirra_ej]

Sayfa üzerindeki hücrelere yazın.
Formu açarken o hücrelerden nesnelerine initialize olayında tekrar alabilirsiniz.

Teşekkür ederim. dediğiniz gibi İlk önce hücreye yazdırdırm. Hücreden de initialize ile aldım.