Ardarda ise Toplama

Katılım
19 Ekim 2023
Mesajlar
41
Excel Vers. ve Dili
Excel 2016 - Office 2016 64 Bit
Merhaba değerli hocalarım. İyi çalışmalar herkese.

Sizlere sorum şu olacak.

Bir puantaj var elimde. Bu puantajda A1:H7 aralığında yan yana 3 defa "R" yazılı ise toplamasını istiyorum. Ama yalnızca ard arda 3 defa yazıldıysa toplamasını istiyorum.

Toplam sonucunu da 3 olarak değil de 1 olarak verebilir mi ?
 

DoğanD

Altın Üye
Katılım
22 Eylül 2023
Mesajlar
392
Excel Vers. ve Dili
Office 365 TR
Altın Üyelik Bitiş Tarihi
05-10-2028
Merhaba,

Aşağıdaki kodu boş bir modüle yapıştırıp, Excel'de "=Sayy(Aralık)" şeklinde kullanabilirsiniz. İhtiyacınıza uygun mu emin değilim, muhakkak test edin.

Kabaca verdiğiniz aralıkta 3 yada daha fazla kez yanyana yazılan "R" harflerini sayıyor.

Kod:
Function sayy(Aralik As Range)
Dim hcr As Range
Dim i, y, zz As Integer
For Each hcr In Aralik
If UCase(hcr.Value) = "R" Then
If zz = 1 Then GoTo atla
i = i + 1
If i = 3 Then
y = y + 1
i = 0
zz = 1
End If
Else
i = 0
zz = 0
End If
atla:
Next
sayy = y
End Function
 
Katılım
19 Ekim 2023
Mesajlar
41
Excel Vers. ve Dili
Excel 2016 - Office 2016 64 Bit
Merhaba,

Aşağıdaki kodu boş bir modüle yapıştırıp, Excel'de "=Sayy(Aralık)" şeklinde kullanabilirsiniz. İhtiyacınıza uygun mu emin değilim, muhakkak test edin.

Kabaca verdiğiniz aralıkta 3 yada daha fazla kez yanyana yazılan "R" harflerini sayıyor.

Kod:
Function sayy(Aralik As Range)
Dim hcr As Range
Dim i, y, zz As Integer
For Each hcr In Aralik
If UCase(hcr.Value) = "R" Then
If zz = 1 Then GoTo atla
i = i + 1
If i = 3 Then
y = y + 1
i = 0
zz = 1
End If
Else
i = 0
zz = 0
End If
atla:
Next
sayy = y
End Function
Elinize sağlık hocam.
 

ÖmerFaruk

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2017
Mesajlar
4,675
Excel Vers. ve Dili
Microsoft 365 Tr-64
Yanyana 4 tane R olursa sonuç ne olacak?
Yanyana 6 tane R olursa sonuç ne olacak?
 

ÖmerFaruk

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2017
Mesajlar
4,675
Excel Vers. ve Dili
Microsoft 365 Tr-64
R lerin haricinde bir ifade olabiliyor mu? Sayı harf vs.
 

DoğanD

Altın Üye
Katılım
22 Eylül 2023
Mesajlar
392
Excel Vers. ve Dili
Office 365 TR
Altın Üyelik Bitiş Tarihi
05-10-2028
YANYANA 4 OLURSA 2 YANYANA 5 OLURSA 3 DİYE DEVAM EDECEK.
Ben puantajda kullanacağınız için ve R'yi Rapor olarak düşündüğümden 3 gün ve üzeri kaç kez rapor almış diye yorumlamıştım sorunuzu. Eğer 4 kez yan yana olması durumunda 2 sonucunu istiyorsanız gönderdiğim KTF işinize yaramayacaktır. Ayrıca, 5 kez olması durumunda 3 sonucunu beklediğinizden emin misiniz? Tam olarak mantığı oturtamadım açıkçası.
 
Katılım
19 Ekim 2023
Mesajlar
41
Excel Vers. ve Dili
Excel 2016 - Office 2016 64 Bit
Ben puantajda kullanacağınız için ve R'yi Rapor olarak düşündüğümden 3 gün ve üzeri kaç kez rapor almış diye yorumlamıştım sorunuzu. Eğer 4 kez yan yana olması durumunda 2 sonucunu istiyorsanız gönderdiğim KTF işinize yaramayacaktır. Ayrıca, 5 kez olması durumunda 3 sonucunu beklediğinizden emin misiniz? Tam olarak mantığı oturtamadım açıkçası.
Hocam mantık olarak sizin yaptığınız bana yetiyor emeğinize sğlık. Fakat diğer türlü öğrenmek amaçlı devam ediyorum. Bunu farklı sekillerde düzenleyebilirim diye düşünüyorum.
 
Katılım
21 Aralık 2016
Mesajlar
688
Excel Vers. ve Dili
Office 365 TR
Yanlış yorumlamıyorsam, satırlarda peşpeşe gelen hücrelerdeki R yazılanların Maxi adedinin 3 adet R ye göre hesaplanmasının formülle çözümü istenmekte...
Aşağıdaki tabloya göre hesaplama yapılırsa,
I1 hücresine DİZİ Formül olarak yazılır ve aşağıya doğru kopyalanır.
Kod:
=MAK(0;SIKLIK(EĞER($A1:$H1="R";SÜTUN($A1:$H1));EĞER($A1:$H1<>"R";SÜTUN($A1:$H1)))-2)
Not : Excel 2021 öncesi versiyonlarda, DİZİ formülün hücreye girişi sadece ENTER ile değil CTRL + SHIFT + ENTER tuşlarının 3 üne aynı anda basılarak yapılmalıdır. Formül girişi düzgün yapıldığında, formül otomatik olarak {..} parantezleri içerisine alınır. Formül düzgün girilmediğinde ya da {..} parantezleri manuel yazıldığında formül doğru çalışmayacaktır.

A

B

C

D

E

F

G

H

Sonuç

1

R​

R​

R​

R​

R​

R​

R​

5

2

R​

R​

R​

R​

2

3

R​

R​

R​

R​

R​

3

4

R​

R​

R​

R​

R​

R​

4

5

R​

R​

R​

R​

R​

3

6

R​

R​

R​

R​

R​

3

7

R​

R​

R​

R​

0

 
Katılım
21 Aralık 2016
Mesajlar
688
Excel Vers. ve Dili
Office 365 TR
Bir başka alternatif çözüm de şöyle olabilir.
I1 hücresine yazılır ve aşağıya doğru kopyalanır.
Kod:
=TOPLA.ÇARPIM((A1:F1="R")*(B1:G1="R")*(C1:H1="R"))
 
Katılım
19 Ekim 2023
Mesajlar
41
Excel Vers. ve Dili
Excel 2016 - Office 2016 64 Bit
Yanlış yorumlamıyorsam, satırlarda peşpeşe gelen hücrelerdeki R yazılanların Maxi adedinin 3 adet R ye göre hesaplanmasının formülle çözümü istenmekte...
Aşağıdaki tabloya göre hesaplama yapılırsa,
I1 hücresine DİZİ Formül olarak yazılır ve aşağıya doğru kopyalanır.
Kod:
=MAK(0;SIKLIK(EĞER($A1:$H1="R";SÜTUN($A1:$H1));EĞER($A1:$H1<>"R";SÜTUN($A1:$H1)))-2)
Not : Excel 2021 öncesi versiyonlarda, DİZİ formülün hücreye girişi sadece ENTER ile değil CTRL + SHIFT + ENTER tuşlarının 3 üne aynı anda basılarak yapılmalıdır. Formül girişi düzgün yapıldığında, formül otomatik olarak {..} parantezleri içerisine alınır. Formül düzgün girilmediğinde ya da {..} parantezleri manuel yazıldığında formül doğru çalışmayacaktır.

A

B

C

D

E

F

G

H

Sonuç

1

R​

R​

R​

R​

R​

R​

R​

5

2

R​

R​

R​

R​

2

3

R​

R​

R​

R​

R​

3

4

R​

R​

R​

R​

R​

R​

4

5

R​

R​

R​

R​

R​

3

6

R​

R​

R​

R​

R​

3

7

R​

R​

R​

R​

0

Günaydın hocam. Elinize sağlık istediğim şekilde çalışıyor, teşekkür ederim hepinize.
 
Katılım
19 Ekim 2023
Mesajlar
41
Excel Vers. ve Dili
Excel 2016 - Office 2016 64 Bit
Yanlış yorumlamıyorsam, satırlarda peşpeşe gelen hücrelerdeki R yazılanların Maxi adedinin 3 adet R ye göre hesaplanmasının formülle çözümü istenmekte...
Aşağıdaki tabloya göre hesaplama yapılırsa,
I1 hücresine DİZİ Formül olarak yazılır ve aşağıya doğru kopyalanır.
Kod:
=MAK(0;SIKLIK(EĞER($A1:$H1="R";SÜTUN($A1:$H1));EĞER($A1:$H1<>"R";SÜTUN($A1:$H1)))-2)
Not : Excel 2021 öncesi versiyonlarda, DİZİ formülün hücreye girişi sadece ENTER ile değil CTRL + SHIFT + ENTER tuşlarının 3 üne aynı anda basılarak yapılmalıdır. Formül girişi düzgün yapıldığında, formül otomatik olarak {..} parantezleri içerisine alınır. Formül düzgün girilmediğinde ya da {..} parantezleri manuel yazıldığında formül doğru çalışmayacaktır.

A

B

C

D

E

F

G

H

Sonuç

1

R​

R​

R​

R​

R​

R​

R​

5

2

R​

R​

R​

R​

2

3

R​

R​

R​

R​

R​

3

4

R​

R​

R​

R​

R​

R​

4

5

R​

R​

R​

R​

R​

3

6

R​

R​

R​

R​

R​

3

7

R​

R​

R​

R​

0

Hocam yalnız sunu farkettim. Personel 30 gün içerisinde 1. haftada 3 gün rapor aldı diyelim formül 1 olarak topluyor doğru, fakat 2 hafta tekrar 3 gün rapor aldığında toplamıyor.
 
Katılım
21 Aralık 2016
Mesajlar
688
Excel Vers. ve Dili
Office 365 TR
Hocam yalnız sunu farkettim. Personel 30 gün içerisinde 1. haftada 3 gün rapor aldı diyelim formül 1 olarak topluyor doğru, fakat 2 hafta tekrar 3 gün rapor aldığında toplamıyor.
Örnek dokuman eklemediğinizden istenilen şey NET anlaşılmıyordu.

ilk mesajınızda
Bir puantaj var elimde. Bu puantajda A1:H7 aralığında yan yana 3 defa "R" yazılı ise toplamasını istiyorum. Ama yalnızca ard arda 3 defa yazıldıysa toplamasını istiyorum.

Toplam sonucunu da 3 olarak değil de 1 olarak verebilir mi ?
Ben de tabloyu A1: H7 aralığına göre yaptım ve
Yanlış yorumlamıyorsam, satırlarda peşpeşe gelen hücrelerdeki R yazılanların Maxi adedinin 3 adet R ye göre hesaplanmasının formülle çözümü istenmekte...
Anladığımı formüle etmeye çalıştım.
Ve ilk mesajımda Maxi değer olarak değerlendirdim soruyu. Cevabı o yönde verdim.
Yine de belki toplam isteniyordur diye düşünerek de
Bir başka alternatif çözüm de şöyle olabilir.
Toplama yönelik alternatif bir cevap daha yazdım.

Şimdi AYLIK bir puantaj üzerinde verdiğim cevapları kontrol edebilirsiniz.
Tablo A1 : AF9 aralığında, Puantajlar ise B3 : AF9 aralığında

En fazla olarak (Maxi değer) kaç gün R var?
Verdiğim ilk formül AG3 hücresinden itibaren AG kolonunda. DİZİ Formül olarak....
Kod:
=MAK(0;SIKLIK(EĞER($B3:$AF3="R";SÜTUN($B3:$AF3));EĞER($B3:$AF3<>"R";SÜTUN($B3:$AF3)))-2)
Toplamlara yönelik hesaplama verdiğim 2. nci formül (yine anladığım şekilde, yani 3 gün peş peşe olunca 1 sayılıyor, aralara R olmayan gün girdiğinde hesaplama yeniden 3 güne göre değerlendiriliyor)
Kod:
=TOPLA.ÇARPIM((B3:AD3="R")*(C3:AE3="R")*(D3:AF3="R"))

Ock

1​

2​

3​

4​

5​

6​

7​

8​

9​

10​

11​

12​

13​

14​

15​

16​

17​

18​

19​

20​

21​

22​

23​

24​

25​

26​

27​

28​

29​

30​

31​

Maxi

Top.

2024

Pzt​

Sal​

Çar​

Per​

Cum​

Cmt​

Paz​

Pzt​

Sal​

Çar​

Per​

Cum​

Cmt​

Paz​

Pzt​

Sal​

Çar​

Per​

Cum​

Cmt​

Paz​

Pzt​

Sal​

Çar​

Per​

Cum​

Cmt​

Paz​

Pzt​

Sal​

Çar​

R​

R​

A01​

R​

R​

R​

R​

R​

R​

R​

R​

R​

R​

R​

R​

R​

R​

R​

6

11

A02​

R​

R​

R​

R​

R​

R​

R​

R​

2

3

A03​

R​

R​

R​

R​

R​

R​

R​

R​

R​

R​

R​

R​

R​

R​

R​

R​

R​

R​

R​

R​

R​

R​

R​

11

17

A04​

R​

R​

R​

R​

R​

R​

3

3

A05​

R​

R​

R​

R​

R​

3

3

A06​

R​

R​

R​

R​

R​

R​

R​

R​

R​

R​

R​

3

5

A07​

R​

R​

R​

R​

R​

R​

R​

R​

0

0

 
Üst