Texboxta otomatik kdv hesaplama

[yamahato]

Abileri, hocalarım
Userformunda bulunan 2 tane TextBox girdiğim değerleri kullanarak kdv hesaplamasını otomatik yapıp sonucu gene başka textboklarda görebilirmiyim?
Daha ayrıntılı yazmak gerekirse
TexBOx1 e alınan ürünün kdvsiz tutarını manuel yani el ile gireceğim
TexBox2'e ürünün kdv oranını elle gireceğim
TexBox3 ' te ödeyeceğim kdv otomatik gözükmeli. Yani (TexBox1 * TextBox2)/100) işlemini yapmalı
Texbox4'te kdvli fatura miktarını yazmalı. Yani ((TexBox1 * TextBox2)/100)+TexBOx1) yada TexBOx1+TexBOx3 işleminin otomatik yapmalı.

Bu işlemler için textboxlara atayacağım kodlarda yardımcı olabilirmisiniz?

 

[yamahato]

Özür dilerim doya türünü yanlış kaydetmişim. Doğrusunu kaydettim.

 

[ÖmerFaruk]

Sub KDV()
    TextBox3 = ""
    TextBox4 = ""
    If TextBox1 <> "" And TextBox2 <> "" Then
        TextBox3 = Format(TextBox1 * TextBox2 / 100, "#,##0.00")
        TextBox4 = Format(TextBox1 * 1 + TextBox3 * 1, "#,##0.00")
    End If
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Call KDV
End Sub
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Call KDV
End Sub

 

[yamahato]

Sub KDV()
    TextBox3 = ""
    TextBox4 = ""
    If TextBox1 <> "" And TextBox2 <> "" Then
        TextBox3 = Format(TextBox1 * TextBox2 / 100, "#,##0.00")
        TextBox4 = Format(TextBox1 * 1 + TextBox3 * 1, "#,##0.00")
    End If
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Call KDV
End Sub
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Call KDV
End Sub

ELLERİNİZ DERT GÖRMESİN HOCAM.
Son soru.
siz denediğinizde yazar yazmaz mı hesaplama yapıyor yoksa kdv oranını yazıp herhangi bir yere mausu tıkayınca mı yapıyor.
Benim bilgisayarın işlemcisinden de geç kalıyor olabilir mi hesaplama yaparken.

 

[ÖmerFaruk]

TextBox1 de KDV siz tutar yazılı iken, TextBxo2 ye KDV yazıp TextBox2 hariç herhangi başka bir nesneye tıklayınca
Ya da
TextBox2 de KDV yazılı iken TextBox1 e KDV siz tutarı yazıp Textbox1 hariç herhangi başka bir nesneye tıklayınca

Bilgisayarınız yavaşsa bile bu sebepten değil. Rahat olun.

 

[yamahato]

TextBox1 de KDV siz tutar yazılı iken, TextBxo2 ye KDV yazıp TextBox2 hariç herhangi başka bir nesneye tıklayınca
Ya da
TextBox2 de KDV yazılı iken TextBox1 e KDV siz tutarı yazıp Textbox1 hariç herhangi başka bir nesneye tıklayınca

Bilgisayarınız yavaşsa bile bu sebepten değil. Rahat olun.

Teşekkür ederim hocam, TextBox isimlerini değiştirerek programıma entegre ettim.
Müsadenizle ÇÖZEBİLİRSEK SÜPER OLUR ÇÖZEMEZSEK sorun değil diye başlayarak soruma girişgah yapayım.
Kdv oranında sadece 18 yazınca çatır çatır çalışıyor ama %18 yazınca % işaretini tanımadığı için
TextBox3 = Format(TextBox1 * TextBox2 / 100, "#,##0.00") kodunda hata veriyor.

 

[ÖmerFaruk]

Textbox2 (KDV) objesinde sadece % kullanacaksanız.

Sub KDV()
    TextBox3 = ""
    TextBox4 = ""
    If TextBox1 <> "" And TextBox2 <> "" Then
        TextBox3 = Format(TextBox1 * Replace(TextBox2,"%","") / 100, "#,##0.00")
        TextBox4 = Format(TextBox1 * 1 + TextBox3 * 1, "#,##0.00")
    End If
End Sub

 

[yamahato]

KDV oranını yazacağım TextBoxa, her fatura girişinde sadece yüzde oranını gireyim diye tasarım aşamasında % yazdım. GENE AYNI HATAYI VERDİ.
Tasarım aşamasında kolaylık olsun diye eklediğim % simgesini çıkarınca 18 değilde %18 yazınca sorun yok. Hatayı düzeltebilirmiyiz?

 

[ÖmerFaruk]

Sadece bu satırı değiştirin
If TextBox1 <> "" And Len(Replace(TextBox2, "%", "")) > 0 Then