userfomda yüzde hesaplama

[aygun78]

öncelikle sunu belirteyimki forumda tüm aramalarıma rağmen aradığımı bulamadım ekte gönderdigim dosyada userform üzerinden bir sayının yüzdesini alarak sonucu bulmak istiyorum.tam sayılarda proplem yok ama yüzde kısımlarını yuvarlıyor.excel sayı 150 yüzde %1'ini alarak sonuç 148,50 buluyorum user formda ise sonuç 148,00 oluyor bu konuda yardımlarını bekliyorum teşekkürler

 

[Terkanli]

Merhaba Aygun78
Aşağıdaki kodu userformda denermisin? sanırım istediğin oldu.

Private Sub CommandButton1_Click()
Dim t1 As Double
Dim t2 As Double

t1 = Format(TextBox1.Value, "#.#0,")
t2 = Format(TextBox2.Value, "#.#0,")

TextBox3 = Format(t1 - (t1 * t2 / 100), "#.#0,")

End Sub

 

[aygun78]

eline sağlık çok teşekkür ederim tam istediğim gibi

 

[1Al2Ver]

Merhaba Aygun78
Aşağıdaki kodu userformda denermisin? sanırım istediğin oldu.

Private Sub CommandButton1_Click()
Dim t1 As Double
Dim t2 As Double

t1 = Format(TextBox1.Value, "#.#0,")
t2 = Format(TextBox2.Value, "#.#0,")

TextBox3 = Format(t1 - (t1 * t2 / 100), "#.#0,")

End Sub

Sayın Terkanlı, userform'u KDV'si belli ( örneğin; % 8 ) malzemenin KDV'siz fiyatını hesaplatmak istesek kod ne olur ? Teşekkürler.

 

[aygun78]

Sayın Terkanlı, userform'u KDV'si belli ( örneğin; % 8 ) malzemenin KDV'siz fiyatını hesaplatmak istesek kod ne olur ? Teşekkürler.

sayın 1Al2Ver bu zaten bunu hesaplamak için yapıldı textbox2 ye 8 yazarsanız yada sadece t2 = Format(8, "#.#0,") derseniz %8 kdvsiz hesaplar

 

[Terkanli]

Özür dilerim geciktim, müşterilerim vardı. aşağıdaki kodu denermisiniz?

Private Sub CommandButton1_Click()
Dim t1 As Double
Dim t2 As Double
t1 = Format(TextBox1.Value, "#.#0,")
t2 = Format(TextBox2.Value, "#.#0,")
TextBox3 = Format(t1 / ((TextBox2.Value / 100) + 1), "#.#0,")
End Sub

Saygılar,
Tansu

 

[Terkanli]

Aygun78,

yukarıda size 1. önerdiğim kod bir fiyattan iskontoyu düşmek içindir.
2. ise bir fiyattan KDV oranını düşüp neti bulmak içindir.

Örneğin;

İskonto düşerken : 100 - %18 = 82
KDV ayırırken :100 / 1.18 = 84,76

Şeklinde hesaplarız.

 

[aygun78]

terkanlı şimdi kafam karıştı.bunu ben ödeme emri belgesi için kullanmayı düşünüyodum .fatura kdvli geliyor bu bu faturanın belirtilen oranda kdvsiz olarka hesaplayıp bu kdvsiz fiyet üzerinden 1000de 4,5 karar pulu binde 7,5
damga vergisi hesaplamam lazım bu durumda 2 . yolumu izlemeliyim

 

[Terkanli]

Aygun78,

KDV siz rakamı bulmak için 2. gönderdiğim kodu kullan.
1000 de 4,5 ve 7,5 karar pulu hesabı için 1. kodu kullan.

Texbox ilave edebilirsin, daha kolay olur.
Vakit varsa dosyayı düzeltip göndereyim.

Saygılar,
Tansu

 

[aygun78]

sayın terkanlı su göndemiş olduğumuz kodlara göre ben bi dosyayı güncelleyeyim ondan sonra eklerim eksikleri ona göre gidermeye çalışırız ilginize sonsuz teşekkürler

 

[1Al2Ver]

Aygun78,

KDV siz rakamı bulmak için 2. gönderdiğim kodu kullan.
1000 de 4,5 ve 7,5 karar pulu hesabı için 1. kodu kullan.

Texbox ilave edebilirsin, daha kolay olur.
Vakit varsa dosyayı düzeltip göndereyim.

Saygılar,
Tansu

Sayın Terkanlı, teşekkürler, emeğinize sağlık, tabi biz hazırcıyız , her ikisinide hesaplayan bir userform hoş olur, sağolun, saygılar.

 

[Terkanli]

Selam arkadaşlar,

Dosyayı ekledim. Umarım istediğiniz olmuştur.

Sevgiler, saygılar
Tansu

 

[1Al2Ver]

Selam arkadaşlar,

Dosyayı ekledim. Umarım istediğiniz olmuştur.

Sevgiler, saygılar
Tansu

Sayın Terkanlı, tekrar teşekkürler, saygılar.

 

[aygun78]

selam arkadaşlar terkanlı arkadaşımızın gönderdiği formüle göre düzenlemeleri yaptım yanlız göndermiş olduğunuz formülde sonuç hüçreye "metin olarak saklanan sayı" biçiçiminde geliyor.Bu da diğer formüllerin çalışmamasına sebep oluyor .Dosyayı ekte yolluyorum bi bakabilirmisiz.Bide userformu sayfanın boş kısmında konumlandırmak için ne yapabilirim .saygılar