kuruşlarda iskontoyu yalnış hesaplıyor

[uguristanbul]

degerli arkadaslarım
sorunum şöyle
Private Sub comboBox108_Change()
If IsNumeric(comboBox108) And IsNumeric(comboBox133) Then
TextBox32 = Format(CDbl(comboBox108) - CDbl(comboBox133)* CDbl(comboBox108)/100, "#,##0.00")
End If
End Sub

Private Sub comboBox133_Change()
If IsNumeric(comboBox108) And IsNumeric(comboBox133) Then
TextBox32 = Format(CDbl(comboBox108) - CDbl(comboBox133)* CDbl(comboBox108)/100, "#,##0.00")
End If
End Sub
formülünde (combobox108ı degiştirmeye kullanıcı yetkili degil enable =false yani)
ve combobox 108 odan sonra 4 hane gidiyor yani örn:1,2366 veya 0,0006 gibi
olması gereken su combo 108 ürünün liste fiyatı combo 133 de iskonto oranı

combo108 ile (varsa ki olmayabilir) combo133 ü parçıp 100 e bölecek cıkan sonuc combo 108 degerinden dusulecek
yukarda yazdıgım formul kurussuz verilerde dogru ancak kuruslu degerlerde hata yapıyor
yardımlarınız icin tesekkurler

 

[Korhan Ayhan]

Selamlar,

Ben vermiş olduğunuz kodu boş bir excel sayfasında denedim ve olumlu sonuç aldım. Siz hatalı sonuç aldığınız örnek bir dosya eklermisiniz.

 

[uguristanbul]

hocam
aşagıda dosyayı ekledim

 

[uguristanbul]

dosya aşagıda

ok ekliyorum

 

[uguristanbul]

oldu demiştim ama olmamış

hocam
özürlerimle beraber dosyamı ekledim
yani olmuştu ama kaydetmeden sildim
tekrar denedim ama şimdi gene yapmıyor
dalga gecer gibi oldu ama gercekten beceremedim
saygılarımla
formdaki liste fiyatı ve iskonto çarpılıp yüze bölündükten sonra liste fiyatından düşülecek ve satış fiyatı texti ne yazılacak
örnegin liste fiyatı combo108=0,0062 * isk(iskonto)combo133=30 = satış fiyatı textbox63=0,0019
gibi

 

[Korhan Ayhan]

Selamlar,

Formunuzdaki ilk kutucuklar için örnek veriyorum. Geri kalanınıda kendiniz aşağıdaki kodlara göre düzeltiniz.

Private Sub ComboBox8_Change()
ComboBox33.ListIndex = ComboBox8.ListIndex
ComboBox83.ListIndex = ComboBox8.ListIndex
ComboBox108.ListIndex = ComboBox8.ListIndex
[COLOR=red]ComboBox108 = Replace(ComboBox108, ".", ",")
[/COLOR]End Sub

Private Sub ComboBox33_Change()
ComboBox8.ListIndex = ComboBox33.ListIndex
ComboBox83.ListIndex = ComboBox33.ListIndex
ComboBox108.ListIndex = ComboBox33.ListIndex
[COLOR=red]ComboBox108 = Replace(ComboBox108, ".", ",")[/COLOR]
End Sub

Private Sub comboBox133_change()
If IsNumeric(ComboBox108) And IsNumeric(ComboBox133) Then
TextBox63 = Format(CDbl(ComboBox108) - CDbl(ComboBox133) * CDbl(ComboBox108) / 100, "[COLOR=red]#,##0.0000[/COLOR]")
End If
End Sub

Private Sub comboBox108_Change()
If IsNumeric(ComboBox108) And IsNumeric(ComboBox133) Then
TextBox63 = Format(CDbl(ComboBox108) - CDbl(ComboBox133) * CDbl(ComboBox108) / 100, "[COLOR=red]#,##0.0000[/COLOR]")
End If
End Sub

 

[uguristanbul]

korhan hocam
cok cok tesekkur ederim ancak ögrenmek açısından
ComboBox108 = Replace(ComboBox108, ".", ",") bunu niye yazdık
anlatma imkanınız varmı acaba

 

[Korhan Ayhan]

Selamlar,

Siz stok adını yada kodunu seçtiğinizde gelen birim fiyat 0.062 şeklinde gelmektedir. Ama excel hücresinde bu değer 0,062 şeklinde olduğundan hesaplamaları doğru yapması açısından nokta karakterini virgül ile değiştiriyoruz.

 

[uguristanbul]

hocam
cok tesukkur ederim
saygılar