UserForm da Ondalık sayı alt toplam almak.

[zaruri]

Değerli Üstadlar;
Toplanan gider fişlerinin KDV'lerinin ayırarak girişini kolaylaştırmak için UserFormda bulduğum çalışmalardan birleştirerek
bir şeyler yapmaya çalıştım.
1)-KDV oranlarını ilgili hücresine gönderemedim.
2)-KDV Alt toplamı çok yol denedim olmadı her yolda, "Ondalık" sayıları görmezden geldi toplamadı.
3)-Excel'e gönderdiğimde "Value" , "CDbl " ler ile bir çok deneme yaptım sonuca ulaşamadım.
Örnek çalışma ekte, yardımlarınızı bekliyorum.
Şimdiden ilginize teşekkür ederim.

 

[systran]

Formdaki kdv oranları nasıl belirlenecek? KDV dahil fiyatın bütün KDV oranları hesaplanacak mı?
yapılması gereken örnek bir işlemi içeren bir form tasarlayıp olması gereknleri sırasıyla yazarsanız daha anlaşılır olacaktır.

 

[zaruri]

Değerli systran, Hazırladığım çalışmaya örnek de bulunan Perakende satış fişini bir satıra işlememiz gerekiyor.
KDV oranları farklı farklı ürünleri tek satırda işlememiz lazım.

Bunu KDV leri sabitleyip hücreleri kaydırarak yapabiliyorum, fakat Her satıra manuel olarak gireceğimiz Kdv oranı na göre kdv tutarını kendi hücresine göndermesi daha kullanışlı olacak diye düşündüm.

yaptığım çalışmada ayrıca, alt toplamları ondalıklı olarak ve otomatik toplayamadım.

ayrıca excel de bulunan makbuza sayı olarak gönderemedim.

ekte örnek fişi ve yapılan çalışmayı bulabilirsiniz.

 

[systran]

Örnek çalışmayı inceleyiniz. CDBL fonksiyonu kullanıldığı için boş hücrelerde hata vermesin diye 0 doldurdum
Ayrıca userformda bu kadar çok nesne kullanacağınız zaman isimlerdirme sorun oluşturmaya başlar, adlarınıı değiştirdim inceleyiniz.
kdv hesaplama için tasarladığınız botunlar çıkarılabilir ama ben olduğu gibi bıraktım.
Test amaçlı 3 tane veriyi forma elle girdim her seferinde deneme yapmamak için, düzeltmeyi unutmayınız.
olayın büyük kısmı kdvAktar içinde gerçekleşir.
Bazı düğmelerin kodunu yazmadım, yapılan örneği inceleyip sizin devam ettirmeniz için, gerisi size kalmış

 

[zaruri]

Örnek çalışma görünmüyor ",kdv hesaplama için tasarladığınız botunlar çıkarılabilir " ben iptal edemedim, butonları çıkartırsanız daha yalın olur.

 

[zaruri]

Çalışmayı inceledim ellerinize sağlık harika olmuş.
excele gönderdiğimizde, dip toplamı yapmıyor.
ayrıca düğmeleri kaldırabiliriz.

 

[systran]

Butonları sildim, kdv oranlarının yazıldığı txtboxların exit olayına 2 tanesinin kodunu ekledim diğerlerini siz yapın.
KAYIT sayfasındaki toplam almama sorunu da düzeltildi. #4 nolu mesajdaki dosya güncellendi

 

[zaruri]

Eksik olamayın, harika oldu, mükemmel çalışıyor.
İlginize teşekkür ederim.

 

[zaruri]

Üstadım; Hayırlı Haftalar, İyi çalışmalar.
Ben KDV oranlarını bir türlü tutturamadım
Daha doğrusu, Hesaplamanın nerede yapıldığını bulamadım.
KDV dahil hanesine girilen rakamı, tekrar KDV% ile çarpıyor.
KDV oranlarını yüksek aktarıyor.

 

[systran]

#4 Nolu mesajdaki dosya güncellendi, kontrol ediniz.

 

[zaruri]

Çalışmayı kontrol ettim, Kesirli sayılar tamam alt toplam tamam, teşekkür ederim.
sadece KDV ayrıldığında matrah ve KDV farklı çıkıyor.

 

[systran]

tam olarak hatayı anlayamadım? user formda mı, çalışma sayfasında mı?

 

[zaruri]

hata ;user formda
tahminim burada;
Çok uğraştım dengeyi kuramadım.



kdv = Format(CDbl(Controls("txtFiyat" & id).Text) * Val(kaynak.Text) / 100, "#,##0.00")
Controls("TextBox" & (id + 20)).Text = Val(Controls("txtFiyat" & id).Text) - kdv

 

[byfika]

Merhabalar, KDV kodunu alttaki gibi yazın, fakat USERFORM da KDV miktarı ve ANA PARA veri girişlerinin textboxlarını değiştirmeniz gerekli.

kdv = Format(CDbl(Controls("txtFiyat" & id).Text) / (1 + Val(kaynak.Text) / 100), "#,##0.00")

İyi çalışmalar...

 

[byfika]

Merhabalar, textboxlarda düzenledi, herhalde anladığım kadar ekteki dosyanız hazır.

 

[zaruri]

systran Üstadım, Hakkınızı helal ediniz, yordum sizi. Bizim için Güzel bir iş çıktı neticede.

byfika Harikasınız, iş oldukça iyi kotarılmış.

Ellerinize emeklerinize sağlık.
Sizler oldukça, Excel'e olan bağlılığım daha da artıyor.
Hayatımız kolaylaşıyor, renkli ve zevkli hale geliyor.

 

[zaruri]

Değerli üstadlar;
Yapılan testlerde, kesirli tutarlarda Matrah tamam fakat KDV'leri hatalı veriyor.
Detaylı olarak görebileceğimiz örnekler ekte, yardımınıza ihtiyaç var.

 

[byfika]

Merhabalar,
KDV aktar kodunu alttaki gibi değiştirip dener misiniz?

Sub kdvAktar(id As Byte)
'TextBox900 elle girilen KDV oranı
'TextBox20 KDV Hariç değer
'TextBox40 %18 KDV
'TextBox60 %8 KDV
'TextBox90 %1 KDV
Dim kaynak, hedef As TextBox
Set kaynak = Controls("TextBox9" & Format(id, "00"))
Dim kdv As Double
kdv = Format(CDbl(Controls("txtFiyat" & id).Text) / (1 + (kaynak.Text) / 100), "#,##0.00")
If kaynak.Text = "18" Then
Controls("TextBox" & (id + 20)).Text = kdv
Controls("TextBox" & (id + 40)).Text = (Controls("txtFiyat" & id).Text) - kdv
ElseIf kaynak.Text = "8" Then
Controls("TextBox" & (id + 20)).Text = kdv
Controls("TextBox" & (id + 60)).Text = (Controls("txtFiyat" & id).Text) - kdv
ElseIf kaynak.Text = "1" Then
Controls("TextBox" & (id + 20)).Text = kdv
Controls("TextBox" & (id + 90)).Text = (Controls("txtFiyat" & id).Text) - kdv
Else
MsgBox "Böyle Bir KDV Oranı yok"
Exit Sub
End If
Call toplamAL
End Sub

 

[zaruri]

Hesaplamalar yeni kod ile sağlıklı çalışıyor. İlginize teşekkür ederiz.
Sadece UserForm'da son satır olan 10. satırda hesaplama yapmıyor boş geçiyor.

 

[byfika]

Merhabalar, alttaki kodu ilave ederseniz probleminiz çözülecektir.
Kolay gelsin...

Private Sub TextBox910_Change()
Call kdvAktar(10)
End Sub