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
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,058
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
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
 

İdris SERDAR

Moderatör
Yönetici
Katılım
21 Ekim 2005
Mesajlar
17,104
Excel Vers. ve Dili
Excel, 365 - İngilizce
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)
 
Katılım
28 Aralık 2006
Mesajlar
7
Excel Vers. ve Dili
xp professional 2000
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.
 

İdris SERDAR

Moderatör
Yönetici
Katılım
21 Ekim 2005
Mesajlar
17,104
Excel Vers. ve Dili
Excel, 365 - İngilizce
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:
Katılım
17 Haziran 2006
Mesajlar
245
Excel Vers. ve Dili
Office 2010
English
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

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
 

ojibu

Altın Üye
Katılım
14 Haziran 2005
Mesajlar
196
Excel Vers. ve Dili
Office 365, Office 2019
Altın Üyelik Bitiş Tarihi
28-06-2025
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.
 
Üst