Fatura Userform

[chro.x]

Merhaba arkadaşlar,

Serbest tüketicilerin elektrik firması seçme hakkı var. Bunun kıyasını yapmak için bir user form yaptım ama eksikler var.

1- Temizle butonuna bastığımda user formu tamamen temizleyecek
2- Birim fiyatları yazdığımda şöyle bir sorunla karşılaşıyorum. 0.5 , 0.28 , 0.0017 gibi sayılar yazdığımda bunları bazen 5 ,28,17 gibi algılıyor.
3- birim fiyatlardan boş bıraktığımda hesaplama yapmıyor. Boş bırakılsa da girilen değerlerle hesaplama yapmasını istiyorum.
4- Bu formun aynen excele yazılmasını istiyorum.

Bu konuda bana yardım edecek herkese şimdiden teşekkür ederim.

Not:Bunlardan sonra eklemek istediğim bir kaç şey daha olabilir.

 

[Korhan Ayhan]

"TEMİZLE" butonu için aşağıdaki kodu deneyin. Diğer istekleriniz için forumda birçok örnek var. İnceleyip kendiniz yaparsanız öğrenmiş olursunuz.

Private Sub CommandButton2_Click()
    For Each Nesne In Me.Controls
        If TypeName(Nesne) = "TextBox" Then
            Nesne.Value = ""
        End If
    Next
End Sub

 

[chro.x]

Teşekkür ederim temizle butonu için verdiğiniz kod çalışmaktadır.

Devam eden sorunlar için konu hala günceldir.

 

[chro.x]

TextBox16.Value = (Val(TextBox10.Value) + Val(TextBox11.Value)) / 100

TextBox17.Value = (Val(TextBox10.Value) + Val(TextBox11.Value)) * 2 / 100

TextBox18.Value = (Val(TextBox10.Value) + Val(TextBox11.Value)) / 100

kodun bu bölümünde hesaplamada yanlışlık yapıyor . 100 e bölmüyor. Hatayı fark edemedim veya nerde yanlış yapıyorum ?

 

[Orion1]

Val fonksiyonu yerine Cdbl kullanın.
Cdbl(TextBox10.Value)

 

[chro.x]

Dosyanın son halini yükledim dediğiniz gibi değiştirdim ama olmadı % ' li kısımlarda yanlış hesaplama yapıyor. Kod bilgim fazla olmadığı için bulduğum kodları uyarlamaya çalışıyorum. Gerçi çok fazla bir kodda yok ama hesap hatası var :???::???:
Nasıl düzeltebilirim bu hatayı ...

 

[Excelmy]

CommandButton1 (HESAPLA) kodlarında,

Tedaş için geçerli olanları aşağıdakiler ile değiştirin,

TextBox10 = Format(CDbl(TextBox9) * CDbl(TextBox28), "#,##0.00")
TextBox11 = Format(CDbl(TextBox9) * CDbl(TextBox26), "#,##0.00")
TextBox12 = Format(CDbl(TextBox9) * CDbl(TextBox23), "#,##0.00")
TextBox13 = Format(CDbl(TextBox21), "#,##0.00")
TextBox14 = Format(CDbl(TextBox9) * CDbl(TextBox27), "#,##0.00")
TextBox15 = Format(CDbl(TextBox9) * CDbl(TextBox25), "#,##0.00")
TextBox16 = Format((CDbl(TextBox10) + CDbl(TextBox11)) / 100 * 1, "#,##0.00")
TextBox17 = Format((CDbl(TextBox10) + CDbl(TextBox11)) / 100 * 2, "#,##0.00")
TextBox18 = Format((CDbl(TextBox10) + CDbl(TextBox11)) / 100 * 5, "#,##0.00")
TextBox19 = Format((CDbl(TextBox10) + CDbl(TextBox11) + CDbl(TextBox12) + CDbl(TextBox13) + CDbl(TextBox14) + CDbl(TextBox15) + CDbl(TextBox16) + CDbl(TextBox17) + CDbl(TextBox18)) / 100 * 18, "#,##0.00")
TextBox20 = Format(CDbl(TextBox10) + CDbl(TextBox11) + CDbl(TextBox12) + CDbl(TextBox13) + CDbl(TextBox14) + CDbl(TextBox15) + CDbl(TextBox16) + CDbl(TextBox17) + CDbl(TextBox18) + CDbl(TextBox19), "#,##0.00")

Digerlerini buna göre uyarlayın.

 

[chro.x]

Excelmy teşekkür ederim. Forma bakamadığım için geç dönüyorum .İnceleme ve gerekli değişiklikleri yaptıktan sonra tekrar yardımlarınıza sunacağım.