AccessTr.neT

Tam Versiyon: Metin kutularında toplamları göstermek
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3
sayın kenan827. öncelikle matrah diyorsunuz. bu siteyi bir incelemenizi öneririm.
http://muhasebeburosu.com/Yazdir-40735.html

ikinci olay sitede anlatıldığı örnektede
236 TL olan bir ürünün Matrahı 200 TL dir.
yani bir ürünün KDV hariç tutarına Matrah denir.

son gönderdiğim örnekte ise. %8 %18 matrahları alıyor. matrahları topluyor. kdv hesaplıyor.
yeküne matrah toplamlarını ve kdv toplamlarını toplayıp. yekün olarak veriyor.
Hocam KDV siz tutar matrahdır. Satılan ürünlerin KDV siz tutarları Matrah olarak geçer ve ayrıca KDV hesaplanarak eklenir toplam satış tutarı ortaya çıkar. Yardımlarınız için çok teşekkürler.
ayrıca şunu belirteyim. 8 satırın kullanılmayan bölümlerinde boşluk var ise yani null değeri ise toplamaya alınmadığı için hata verecektir.
ayrıca. sonuç konusunda baktığımızda işlemsel hatalar gözükmekte. sorunuzu bir örnek ile açıklayarak anlatır iseniz daha sağlam ve kesin cevap almanız mümkün.

örneğin: 100 TL matrah 8 bölümünde şu yazmalı
matrah 18 de şu yazmalı
kdv 8 de şu
kdv18 şu
yekünde şu yazmalı tarzında örneklendirme yaparsanız. tam istediğiniz sonuçta kodları alırsınız.

siz ne yapmak istediğinizi biliyorsunuz. ama bizler sizlerin aklınızdaki düşünceyi, yorumu, kurguyu. bilemiyoruz. o yüzden örnek istiyoruz. ayrıca bu gibi hesaplamalarda örneklendirme ile başarı sağlanabiliyor.
Hocam detaylı açıklamayı ekledim. İyi çalışmalar.
Şu an iş yerindeyim. Eve geçince konunuzla ilgileneceğim. Tahminen saat 19:30 - 20:00 arasında olur.
Gönderdiğiniz Excel tablosuna baktım. Tamam işte bu kadar. Konu net bir şekilde anlaşılır olmuş. Akşam kodu yazup göndereceğim. Örnek üzerinde.
şu an istediğiniz %100 tamamdır.
gönderdiğiniz örnek dosyadaki  değerlerle de çalıştırdım.

Ben kodları Butona koydum. deneme yaparken kolay olsun diye. fakat siz açılan kutu olsun metin kutusu olsun. güncelleme sonrasına koyduğunuzda işlemi gerçekleştirecektir. Yani Değişen bir şey yok. hatta kodu bir kere yazıp CALL ile çekmede yapabilirsiniz böylelikle fazladan kod yazılımı olmaz. Bir dakika onuda yapayım.  Yaptım

private sub HESAPLA()
end sub 

içindeki kodları sadece    bir nesnenin olayına  CALL HESAPLA 

yazarak çalıştırabilirisiniz.

ayrıca örnekte kodlar olduğu gibi buraya da formda gözükecek şekilde yapıştırdım.  daha az kodla halledilebilir miydi? Evet. basit olması ve anlaşılır olması açısından bu şekilde daha iyi sanırım.iyi akşamlar.

Kod:
Dim MATRAH8, MATRAH18 As Double

Select Case Me.KDV1
Case Is = 8
MATRAH8 = MATRAH8 + T1
Case Is = 18
MATRAH18 = MATRAH18 + T1
End Select

        Select Case Me.KDV2
        Case Is = 8
        MATRAH8 = MATRAH8 + T2
        Case Is = 18
        MATRAH18 = MATRAH18 + T2
        End Select

Select Case Me.KDV3
Case Is = 8
MATRAH8 = MATRAH8 + T3
Case Is = 18
MATRAH18 = MATRAH18 + T3
End Select

        Select Case Me.KDV4
        Case Is = 8
        MATRAH8 = MATRAH8 + T4
        Case Is = 18
        MATRAH18 = MATRAH18 + T4
        End Select

Select Case Me.KDV5
Case Is = 8
MATRAH8 = MATRAH8 + T5
Case Is = 18
MATRAH18 = MATRAH18 + T5
End Select

        Select Case Me.KDV6
        Case Is = 8
        MATRAH8 = MATRAH8 + T6
        Case Is = 18
        MATRAH18 = MATRAH18 + T6
        End Select

Select Case Me.KDV7
Case Is = 8
MATRAH8 = MATRAH8 + T7
Case Is = 18
MATRAH18 = MATRAH18 + T7
End Select

        Select Case Me.KDV8
        Case Is = 8
        MATRAH8 = MATRAH8 + T8
        Case Is = 18
        MATRAH18 = MATRAH18 + T8
        End Select

Me.ToplamMatrah8 = MATRAH8
Me.ToplamMatrah18 = MATRAH18

Me.YEKUNMATRAH = MATRAH8 + MATRAH18

Me.MATRAHKDV8 = MATRAH8 * 0.08
Me.MATRAHKDV18 = MATRAH18 * 0.18

Me.OzGuR_YaSiN = Me.YEKUNMATRAH + Me.MATRAHKDV18 + Me.MATRAHKDV8
Sayfalar: 1 2 3