Hesaplamada küsüratlı değer hatası

[sahir73]

Merhabalar, userform kullanarak b1 hücresinden alıp textboxa aktardığım 5,5 gibi küsüratlı tutarı çarpma işlemine soktuğumda 55 gibi algılanıp sonuca bu şekilde etki ediyor. Yani ( 2 *5,5=11 çıkması gerekirken 110 çıkıyor) format kullandım değişken tanımlamsı duble türünde sorun nerede çözemedim

 

[byfika]

Merhabalar,
Textboxları kendi textbox nolarına göre ayaralayıp deneyiniz.

Private Sub TextBox2_Change()
TextBox3.Value = TextBox1.Value * TextBox2.Value
End Sub


Private Sub UserForm_Initialize()
TextBox1 = Format(Sheets("Sayfa1").Range("b1"), "#,##0.0")
End Sub

Carpma.xlsm dosyasını indir - download

Carpma.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

www.dosya.tc

 

[sahir73]

Merhabalar, userform kullanarak b1 hücresinden alıp textboxa aktardığım 5,5 gibi küsüratlı tutarı çarpma işlemine soktuğumda 55 gibi algılanıp sonuca bu şekilde etki ediyor. Yani ( 2 *5,5=11 çıkması gerekirken 110 çıkıyor) format kullandım değişken tanımlamsı duble türünde sorun nerede çözemedim

Merhabalar,
Textboxları kendi textbox nolarına göre ayaralayıp deneyiniz.

Private Sub TextBox2_Change()
TextBox3.Value = TextBox1.Value * TextBox2.Value
End Sub


Private Sub UserForm_Initialize()
TextBox1 = Format(Sheets("Sayfa1").Range("b1"), "#,##0.0")
End Sub

Carpma.xlsm dosyasını indir - download

Carpma.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

www.dosya.tc

Merhabalar,
Textboxları kendi textbox nolarına göre ayaralayıp deneyiniz.

Private Sub TextBox2_Change()
TextBox3.Value = TextBox1.Value * TextBox2.Value
End Sub


Private Sub UserForm_Initialize()
TextBox1 = Format(Sheets("Sayfa1").Range("b1"), "#,##0.0")
End Sub

Carpma.xlsm dosyasını indir - download

Carpma.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

www.dosya.tc

teşekkür ederim. bende formatladım olmamıştı sizin yöntem işe yaradı sağ olun

 

[byfika]

Rica ederim, iyi çalışmalar...