• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

YTL ve Ykr toplama

Katılım
28 Aralık 2006
Mesajlar
7
Excel Vers. ve Dili
xp professional 2000
Merhabalar. Excelde ytl ve ykr'lerin ayrı hücrelerde olduğu üç hücreyi toplamak istiyorum.
mesela şöyle olsun

100 40
100 15
100 50
bu hücreleri iki hücrede toplayıp ykr'nin fazla kısmının ytl kısmına aktarılmasını istiyorum. Bana yardımcı olurmusunuz
 
Bu değerlerin A1 ve B3 hücreleri arasında olduğunu kabul edersek aşağıdaki formülü deneyin.

=BİRLEŞTİR(A1;",";B1)+BİRLEŞTİR(A2;",";B2)+BİRLEŞTİR(A3;",";B3)

yada

=TOPLA.ÇARPIM(--(A1:A3&B1:B3))/100
 
Geç kaldım herhalde.

verilerinizin A1:B3 aralığında olduklarını varsayarsak;

YTL için =SUM(A1:A3)+INT(SUM(B1:B3)/100)

YKR için =MOD(SUM(B1:B3);100)
 
Afedersiniz ben ne yapmak istediğimi ifade edemedim özür dilerim. Benim istediğim A1+A2+A3 hücrelerinin toplamını A4 hücresine, B1+B2+B3 hücrelerinin toplamını B4 hücresinde toplatmak istiyorum. Ama B4 hücresindeki fazla miktarıda A4 hücresine aktarmak istiyorum. Ve B4 hücresindeki sayı (1) yerine 10 olarak görünmesini istiyorum. Biraz karışık bir soru ama yardımcı olursanız sevinirim.
 
Yukarıda verdiğim formüller dediğinizi yapıyor.

Rakamlarınıza göre 10 YKR değil 5 YKR olması gerekiyor. Yani Toplam: 301 YTL, 5 YKR.
 
Son düzenleme:
Kod:
Function OndalikTopla(OndalikAlani As Range) As Double
 OndalikTopla = WorksheetFunction.Sum(OndalikAlani)
 If OndalikTopla >= 100 Then
  OndalikTopla = OndalikTopla - WorksheetFunction.Floor(OndalikTopla, 100)
 End If
End Function
2ry6.jpg

Kod:
Function TamsayiTopla(TamsayiAlani As Range, OndalikAlani As Range) As Double
 TamsayiTopla = WorksheetFunction.Sum(TamsayiAlani)
 Ondalik = WorksheetFunction.Sum(OndalikAlani)
 If Ondalik >= 100 Then
  Ondalik = WorksheetFunction.Floor(Ondalik, 100)
 End If
 TamsayiTopla = TamsayiTopla + (Ondalik / 100)
End Function
1le9.jpg
 
formül

A4 Hücresine =TOPLA(A1:A3)+TAMSAYI((TOPLA(B1:B3)/100))
B4 Hücresine
=((EĞER((TOPLA(B1:B3))>=100;((TOPLA(B1:B3)-(TAMSAYI((TOPLA(B1:B3)/100))*100)));(TOPLA(B1:B3))))) yaz bunları dediğin gibi ayrı hücrelerde toplar. ondalık kısmı 100 geçerse tamsayıya ekler.
gülegüle kullan.
 
Geri
Üst