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