Çözüldü Ulaşılmak istenen değere göre hesaplama yapmak

[CINEHEM]

AŞAĞIDAKİ TABLODA VERİLERİ TOPLATIP KRİTERE ULAŞANA KADAR OLANLARIN YERİNE SONUÇ KISMINDA 0 DEĞERİ VERİLECEK GERİ KALANLAR AYNEN YAZILACAK ;( ANCAK KRİTER OLAN 15 SAYISINA ULAŞILDIĞINDA İLGİLİ SON HÜCREDE 7 SÜTUNUN TOPLAMI İLE KRİTERİN ÇIKARILMASINDAN GERİYE KALAN SOLDAN 15 TOPLAMINA ULAŞILAN SÜTUNA YAZILACAK ) AŞAĞIDA ÖRNEĞİNİ VERDİM AMA BUNU NASIL FORMÜLLEŞTİREBİLİRİZ? BİLEN VARSA YARDIMCI OLURSA SEVİNİRİM .

VERİ 1	VERİ 2	VERİ 3	VERİ 4	VERİ 5	VERİ 6	VERİ 7	KRİTER
3	4	4	5	3	2	1	15
SONUÇ 1	SONUÇ 2	SONUÇ 3	SONUÇ 4	SONUÇ 5	SONUÇ 6	SONUÇ 7
0	0	0	1	3	2	1

 

[okan32]

Deneyiniz

AŞAĞIDAKİ TABLODA VERİLERİ SIRASIYLA TOPLATIP KRİTERE ULAŞANA KADAR OLANLARIN YERİNE SONUÇ KISMINDA 0 DEĞERİ VERİLECEK GERİ KALANLAR AYNEN YAZILACAK ;( ANCAK KRİTER OLAN 15 SAYISINA ULAŞILDIĞINDA İLGİLİ SON HÜCREDE 7 SÜTUNUN TOPLAMI İLE KRİTERİN ÇIKARILMASINDAN GERİYE KALAN SOLDAN 15 TOPLAMINA ULAŞILAN SÜTUNA YAZILACAK ) AŞAĞIDA ÖRNEĞİNİ VERDİM AMA BUNU NASIL FORMÜLLEŞTİREBİLİRİZ? BİLEN VARSA YARDIMCI OLURSA SEVİNİRİM .

VERİ 1	VERİ 2	VERİ 3	VERİ 4	VERİ 5	VERİ 6	VERİ 7	KRİTER
3	4	4	5	3	2	1	15
SONUÇ 1	SONUÇ 2	SONUÇ 3	SONUÇ 4	SONUÇ 5	SONUÇ 6	SONUÇ 7
0	0	0	1	3	2	1

A2: =EĞER(TOPLA($A$1:A1)>=15;TOPLA($A$1:A1)-15;0)
B2: =EĞER(TOPLA($A$1:A1)<15;0;EĞER(TOPLA($A$1:B1)<15;0;EĞER(TOPLA($A$1:B1)>=15;TOPLA($A$1:B1)-15;B1)))
C2: =EĞER(TOPLA($A$1:B1)<15;0;EĞER(TOPLA($A$1:C1)<15;0;EĞER(TOPLA($A$1:C1)>=15;TOPLA($A$1:C1)-15;C1)))
D2: =EĞER(TOPLA($A$1:C1)<15;0;EĞER(TOPLA($A$1D1)<15;0;EĞER(TOPLA($A$1D1)>=15;TOPLA($A$1D1)-15;D1)))
E2: =EĞER(TOPLA($A$1D1)<15;0;EĞER(TOPLA($A$1:E1)<15;0;EĞER(TOPLA($A$1:E1)>=15;TOPLA($A$1:E1)-15;E1)))
F2: =EĞER(TOPLA($A$1:E1)<15;0;EĞER(TOPLA($A$1:F1)<15;0;EĞER(TOPLA($A$1:F1)>=15;TOPLA($A$1:F1)-15;F1)))
G2: =EĞER(TOPLA($A$1:F1)<15;0;EĞER(TOPLA($A$1:G1)<15;0;EĞER(TOPLA($A$1:G1)>=15;TOPLA($A$1:G1)-15;G1)))

 

[CINEHEM]

Deneyiniz



A2: =EĞER(TOPLA($A$1:A1)>=15;TOPLA($A$1:A1)-15;0)
B2: =EĞER(TOPLA($A$1:A1)<15;0;EĞER(TOPLA($A$1:B1)<15;0;EĞER(TOPLA($A$1:B1)>=15;TOPLA($A$1:B1)-15;B1)))
C2: =EĞER(TOPLA($A$1:B1)<15;0;EĞER(TOPLA($A$1:C1)<15;0;EĞER(TOPLA($A$1:C1)>=15;TOPLA($A$1:C1)-15;C1)))
D2: =EĞER(TOPLA($A$1:C1)<15;0;EĞER(TOPLA($A$1D1)<15;0;EĞER(TOPLA($A$1D1)>=15;TOPLA($A$1D1)-15;D1)))
E2: =EĞER(TOPLA($A$1D1)<15;0;EĞER(TOPLA($A$1:E1)<15;0;EĞER(TOPLA($A$1:E1)>=15;TOPLA($A$1:E1)-15;E1)))
F2: =EĞER(TOPLA($A$1:E1)<15;0;EĞER(TOPLA($A$1:F1)<15;0;EĞER(TOPLA($A$1:F1)>=15;TOPLA($A$1:F1)-15;F1)))
G2: =EĞER(TOPLA($A$1:F1)<15;0;EĞER(TOPLA($A$1:G1)<15;0;EĞER(TOPLA($A$1:G1)>=15;TOPLA($A$1:G1)-15;G1)))

malesef çalışmadı istediğim sonuç bu değil dikkat edilirse veri 4 e kadar olan sayılar toplamı 16 ediyor sonuç 4 e 16-15 = 1 yazacak , önce gelenlere 0 , sonra gelenleri aynısını yazacak biraz zor bir işlem

 

[ccuneyt13]

Merhaba,
Daha iyi formül önerisi gelebilir ama aşağıdaki linkte örneğinize göre çözdüm sanıyorum.
İnceleyebilir misiniz.
Kriter 15 olan hücreyi değiştirirseniz o kritere göre hesaplar.

İndir Veri Sonuç Kopya

Dosyayı indir Veri Sonuç Kopya

dosya.co

 

[52779]

Selamlar,
Formülle alternatif çözüm olarak,
Verilerinizin aşağıdaki tablodaki gibi A1 : H2 aralığında olduğunu varsayarsak
A5 hücresine aşağıdaki formülü yazın ve G5 hücresine kadar sağa doğru kopyalayın.

=MİN(A2;MAK(0;TOPLA($A$2:A2)-$H$2))

​	A​	B​	C​	D​	E​	F​	G​	H​
1​	VERİ 1​	VERİ 2​	VERİ 3​	VERİ 4​	VERİ 5​	VERİ 6​	VERİ 7​	KRİTER​
2​	3​	4​	4​	5​	3​	2​	1​	15​
3​	​	​	​	​	​	​	​	​
4​	SONUÇ 1​	SONUÇ 2​	SONUÇ 3​	SONUÇ 4​	SONUÇ 5​	SONUÇ 6​	SONUÇ 7​	​
5​	0​	0​	0​	1​	3​	2​	1​	​
6​	​	​	​	​	​	​	​	​

 

[Saban Sertkaya]

Alternatif olsun. Makrolu çözüm.

Sub Kriter()
Range("A5:G5").ClearContents
For a = 1 To 7
b = b + Cells(2, a)
    If b <= Range("H2") Then
    Cells(5, a) = 0
    Else
    Cells(5, a) = b - Range("H2")
        For c = a + 1 To 7
        Cells(5, c) = Cells(2, c)
        Next c
    Exit For
    End If
Next
End Sub

 

[CINEHEM]

Merhaba,
Daha iyi formül önerisi gelebilir ama aşağıdaki linkte örneğinize göre çözdüm sanıyorum.
İnceleyebilir misiniz.
Kriter 15 olan hücreyi değiştirirseniz o kritere göre hesaplar.

İndir Veri Sonuç Kopya

Dosyayı indir Veri Sonuç Kopya

dosya.co

ÇOK TEŞEKKÜR EDERİM SORUN ÇÖZÜLDÜ EMEĞİNİZE SAĞLIK...