Texboxla şu förmülü yapmak istiyorum

[stres]

Selamlar
Arkadaşlar 6 texbox luk bir user formum var

Tetxbox1 = ana para KDV li hali 400 + %18kdv = 472
Textbox 2 = KDV oranı
Texbox 3 = Damga vergisi
Texbox 4 = KDV Tavkifatı
Texbox 5 = kesinti tutarı
Texbox 6 =ödenecek tutar

1- Textbox 1 e ana parayı yazdık.
2- Textbox 2 ye kdv oranını girdiğimizde ana paranın Kdv siz oranını yani 400 ü bulsun
3- Textbox 3 e damga vergisi oranını girdik tetbox2 deki kdv siz oranı dikkate alsın yani 400 ü (damga vergisi oranı 7 virgül 5 ilemi yoksa 7 nokta 5 ilemi gireceğiz )
4- Textbox 4 e Kdv tevkifat oranını girdik(3/1 -6/2-3/2 olabilir) tetbox2 deki KDV yi dikkate alsın KDV = 72
5- Textbox5 e kesinti tutarının yazsın 3+4 =?
6- Textbox 6 ya – Textbox 1- Textbox 5 = ödenecek tutar

ve sonunda kaydet dediğimde ilgili sayfada

Textbox1 deki değeri s15 e
Textbox2 yi herhangi bir yere kaydetmesin
Textbox3 deki değeri u16 ya
Textbox4 deki değeri u17 ye
Textbox5 deki değeri u18 e
Textbox6 deki değeri u19 a
Kaydetsin

 

[Erdem Akdemir]

örnek bir dosya eklerseniz

daha rahat ve hızlı cevap alırsınız

 

[stres]

verileri ekli dosyada ödeme emri 1-A(3) adlı sayfaya akratacak

aslında dosyayı daha sade halde göndermek istiyordum ama dosyaya ekleme yapma dosyadan silme yaptığımda kapatıp tekrar açınca hata veriyor o yüzden büyüklüğü hakkında kusuruma bakmayın ve o hata neden kaynaklanıyor

 

[janveljan]

Ben sizin için örnek bir dosya hazırladım. Hesaplamalarda hata olabilir kontrol edip düzeltebilirsiniz. Kendi dosyanıza uyarlabilirsiniz.

 

[stres]

teşekkürler ama malum virgülden sonraki 2 rakamdan sonra gelen rakamlar bir anlam ifade etmiyor ve ben biçimden değiştirmek istedim değişmedi hhala 32.7777777777778 bu şeklide 32,77 ve yuvarlar ise 32,78 olması gerekiyor birde kdv oranı tevkifat oranı ve binde 7,5 olan damga vergisi oranı değişken olacak

 

[janveljan]

Round fonksiyonuyla iki basamağa kadar yuvarlatıyoruz, ayrıca benim hazırladım formu incelerseniz orada kdv, tevkifat oranı ve damga vargisi için ayrı textboxlar var oradan ayarlanabilir.

 

[stres]

selam sayın janveljan
formülünüzü inceledim elinize sağlık hele son iki basamak ayarlaması harika olmuş ama

Private Sub UserForm_Initialize()
TextBox7 = 18
TextBox8 = "7.5"
TextBox9 = "1.5"
End Sub

buradaki KDV oran =18
Damga vergisi oranı =7,5
KDV Tevkifat oranı =1.5
formülde yazıldığı için otomatik olarak textboxlarda gözüküyor

şöyle bir şey olsun

textbox7,textbox8,ve textbox9 boş olsun ve benim gireceğim değere göre işlem yapsın çünki malzemelerin bazıları için KDV 18 bazıları için 8 bazıları için 1 ,Kdv tevkifatı ise alınan hizmete göre aynen KDV gbi değişiyor 1/5 - 3/1 - 3/2 - 6-1 gibi
yani ben bu oranları manuel gireyim yada seçmeli işlem yapılsın teşekkürler

 

[janveljan]

Şu haliylede elle değişiklik yapılabilir, ben özellikle bu satırları yazdım mesela genelde kullandığınız bir değer var onu yazarsınız ki size kolaylık olur yok boş olarak açılsın diyorsanız o satırları silmeniz yeterli, yalnız tevkifat oranını elle bu şekilde girerseniz, hata verir ya sayı karşılıklarını gireceksiniz yada oraya bir combobox koyulacak ondan seçim yapılıp hesap yapılacak,

 

[stres]

evet combobox iyi olur comboboxları yerleştiridim ama seçmeli olarak oraya nasıl ne yazdıracağımın komutları hakkında malesef br bilgiye sahip değlim :frown::???:

 

[janveljan]

Aşağıya örnek yazdım, ancak hesaplamaların yapıldığı yerdede kodları düzenlemek lazım.

Combobox1.Additem 1
Combobox1.Additem 8
Combobox1.Additem 18

 

[stres]

ben bir deniyim bakayım ne kadar yapabileceğim

 

[stres]

yürüttüğüm mantık pek işe yaramadı her bir comboboxa istenen değerleri yazdım ve ben formülde şu değişikliği yağtım textbox7 gördüğüm yerlere combobox1 textbox8 gördüğüm yere combobox2 text3box9 gördüğüm yerede combobox yazdım ve comboboxta görünüyor ama işlem yapmıyor değerler sıfır görünüyor aşağıdaki gibi değiştim ve malesef hüsran:redface:

Private Sub TextBox1_Change()
TextBox2 = Round(Val(TextBox1) / (100 + Val(ComboBox1)) * Val(ComboBox1), 2)
TextBox3 = Round(Val(TextBox1) / (100 + Val(ComboBox1)) * Val(ComboBox2), 2)
TextBox4 = Round(Val(TextBox2) * Val(ComboBox3), 2)
TextBox5 = Round(Val(TextBox3) + Val(TextBox4), 2)
TextBox6 = Round(Val(TextBox1) - Val(TextBox5), 2)
End Sub

Private Sub UserForm_Initialize()
ComboBox1.AddItem 1
ComboBox1.AddItem 8
ComboBox1.AddItem 18
ComboBox2.AddItem "7.5"
ComboBox3.AddItem "3/2"
ComboBox3.AddItem "3/1"
ComboBox3.AddItem "6/1"

 

[janveljan]

Şu haliylede elle değişiklik yapılabilir, ben özellikle bu satırları yazdım mesela genelde kullandığınız bir değer var onu yazarsınız ki size kolaylık olur yok boş olarak açılsın diyorsanız o satırları silmeniz yeterli, yalnız tevkifat oranını elle bu şekilde girerseniz, hata verir ya sayı karşılıklarını gireceksiniz yada oraya bir combobox koyulacak ondan seçim yapılıp hesap yapılacak,

Daha önceki mesajımda da ikaz ettiğim gibi tevkifat oranını bu şekilde girerseniz sonuç hesaplanamaz, 3/2 değerinin sayı olarak karşılığını gireceksiniz.

 

[stres]

anladım yinede ilgilenmenden dolayı teşekkür ederim haa unutmadan kdv yanlış hesaplanıyor
mesela 523 ün %18 kdv si 94,14 iken program 94,12 gösteriyor
textbox1 e 523 ün kdv li olan 617,14 ü girdiğimizde heabı yanlış yaptığını görüyorum neden acaba

 

[janveljan]

Tekrar dener misin bende hata yok tam dediğin sonuçlar çıkıyor.

 

[stres]

ya kusura bakma iyiki çattık diyebilirsin ben belki bir hata yapmışım diye burda verdiğin örnek üzerinde denedim yine 94,12

 

[janveljan]

Dosyayı ekleyebilirsen bakmaya çalışalım, buradan çözemedim çünkü.

 

[stres]

dosya ekte

 

[janveljan]

Hata şuradan kaynaklanıyor, siz 617,14 giriyorsunuz, excel bunu 614 algılıyor çünkü vürgül yerine nokta kullanmanız lazım 617.14 şeklinde. Damga vergisi ile ilgili de aşağıdaki satırı aşağıdakiyle değiştirin.
Bunu

TextBox3 = Round(Val(TextBox1) / (100 + Val(TextBox7)) * Val(TextBox8), 2)

Bununla

TextBox3 = Round(Val(TextBox1) / (100 + Val(TextBox7)) * Val(TextBox8) / 10, 2)

 

[stres]

evet işte bu ellerine sağlık