• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

Çözüldü userform'da yukarı yuvarla.

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.

dede yorgun

Yeni Üye
Katılım
10 Haz 2022
Mesajlar
13
Aldığı beğeni
5
Excel V
Office 2019 TR
Konu Sahibi
Değerli Yusuf43 ve userx yardımları ile senet dökümü ve ödeme bedelinin küçük olanını en sona getirilmesine kavuştuk. " Konu çözümlendiği için kapatılmış" olduğu için yeni başlık açmak zorunda kaldık.


Herhangi bir rakamı aylara (taksitlere) böldüğümüzde, "yukarı yuvarlayarak" ödeme tutarlarını daha düz ve akılda kalır yapmak istiyoruz. örnekte "24.691,00" rakamını "24.700,00" yapıp yine örnekte olduğu gibi kalan "eksik tutarı" en altta bırakmak istiyoruz.

Yardımlarınızı bekler, iyi çalışmalar dileriz

 
Çözüm

YUSUF44


Hocam en sonda "100" rakamını "10" olarak değiştirdim ve istenilen sonuca ulaşıldı.
TextBox_TaksitTutari.Value = WorksheetFunction.Ceiling(CInt(Format(Val(TextBox_PoliceTutari.Value) / Val(ComboBox_TaksitSayisi.Value), "##,#0.00")) & ",00", 10)


Bir ricam daha olacak, "Toplam" Hanesine girdiğimiz tutarın formatını bir türlü noktalı virgüllü bir hale getiremedik.

Sonuç olan rakamlarda sorun yok onları ondalık sayı hale getirebildik fakat girilen tutarı bir çok formül denememize rağmen ondalık sayı formatı gibi görünmesine rağmen hesap sonuçları doğru olmadı. ek de görünen "1456" "1.456,00" olarak görünmesi ve sonuçların doğru çıkmasını umuyoruz.


ilginize teşekkür eder iyi çalışmalar dileriz...
Merhaba.

Taksit sayısı liste kutusunun kodlarını aşağıdakiyle değiştirip deneyin:

HTML:
PHP:
İçeriği görebilmek için Giriş yap ya da Üye ol.

Son taksitte düzenleme yapılması gerekiyor ama şimdi çıkmam lazım, döndüğümde çözümlenmemişse ilgilenmeye çalışırım.
 
Konu Sahibi

YUSUF44


Hocam en sonda "100" rakamını "10" olarak değiştirdim ve istenilen sonuca ulaşıldı.
TextBox_TaksitTutari.Value = WorksheetFunction.Ceiling(CInt(Format(Val(TextBox_PoliceTutari.Value) / Val(ComboBox_TaksitSayisi.Value), "##,#0.00")) & ",00", 10)


Bir ricam daha olacak, "Toplam" Hanesine girdiğimiz tutarın formatını bir türlü noktalı virgüllü bir hale getiremedik.

Sonuç olan rakamlarda sorun yok onları ondalık sayı hale getirebildik fakat girilen tutarı bir çok formül denememize rağmen ondalık sayı formatı gibi görünmesine rağmen hesap sonuçları doğru olmadı. ek de görünen "1456" "1.456,00" olarak görünmesi ve sonuçların doğru çıkmasını umuyoruz.


ilginize teşekkür eder iyi çalışmalar dileriz.
 
Şimdi baktım, örneğin 5000 TL için 11 taksit yapıldığında, 100 TL'lik yuvarlama olunca toplam 10 taksitte tamamlanıyor ve 11. taksit 0 oluyor. Düzeltmek için ilgili kısmı aşağıdakiyle değiştirip deneyin:

HTML:
PHP:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 

YUSUF44


Hocam en sonda "100" rakamını "10" olarak değiştirdim ve istenilen sonuca ulaşıldı.
TextBox_TaksitTutari.Value = WorksheetFunction.Ceiling(CInt(Format(Val(TextBox_PoliceTutari.Value) / Val(ComboBox_TaksitSayisi.Value), "##,#0.00")) & ",00", 10)


Bir ricam daha olacak, "Toplam" Hanesine girdiğimiz tutarın formatını bir türlü noktalı virgüllü bir hale getiremedik.

Sonuç olan rakamlarda sorun yok onları ondalık sayı hale getirebildik fakat girilen tutarı bir çok formül denememize rağmen ondalık sayı formatı gibi görünmesine rağmen hesap sonuçları doğru olmadı. ek de görünen "1456" "1.456,00" olarak görünmesi ve sonuçların doğru çıkmasını umuyoruz.


ilginize teşekkür eder iyi çalışmalar dileriz.
Aşağıdaki kodları ekleyip deneyin:

HTML:
PHP:
İçeriği görebilmek için Giriş yap ya da Üye ol.

Hesaplamanın düzgün olması için de taksit sayısı liste kutusunun kodlarını aşağıdakiyle değiştirin:

HTML:
PHP:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Çözüm
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst