Resmi Tatil ve Hafta Sonu Çalışmalarını Bulma

[sametguler]

Değerli büyüklerim yardımınıza ihtiyacım var.

Ekte sunulmuş olan Excel dosyasında formül yazılacak alanı Kırmızı İle Boyadım.
Başlılarından da belli olacağından;
Bu 2 alandan birine Resmi Tatil Günlerinde yapılan çalışmaların toplamı. (Yani bu günlerdeki rakamların toplamı)
Diğer alana ise Resmi Tatil Hariç bırakılarak Hafta İçinde Yapılan Çalışmaların toplamı hesaplanacak. (Bu alandaki rakamların toplamı)
NOT: Aynı gün 2 ayrı resmi tatile denk geldiği günler oluyor. Örnek 23.04.2023 tarihi. Bu tarihle ilgili 2 defa hesaplama yapmaması lazım.

Resmi Tatil Sayfası oluşturdum ve tüm resmi tatil günlerini içeren tarih sütununa RESMİTATİL Ad Kutusu adını verdim. Formülde kullanılabilir.
Şimdiden teşekkür ederim.

https://s6.dosya.tc/server12/u4eiqx/EK_DERS_CIZELGESI.rar.html

 

[halit3]

kod ile çözüm

Sub TOPLAMAL()
Set s1 = Sheets("OCAK 2023")
Set s2 = Sheets("RESMİ TATİL")
For j = 10 To 21
say = 0
For i = 6 To 38
aranan = s1.Cells(9, i).Value
For r = 3 To s2.Cells(Rows.Count, 3).End(3).Row
bulunan = s2.Cells(r, 3).Value
If aranan = bulunan Then
If IsNumeric(s1.Cells(j, i).Value) = True Then
say = say + s1.Cells(j, i).Value
Exit For
End If
End If
Next r
Next i
Top = WorksheetFunction.Sum(s1.Range("f" & j & ":aj" & j))
s1.Cells(j, 40).Value = say
s1.Cells(j, 41).Value = Top - say
Next j
End Sub

 

[sametguler]

Allah razı olsun hocam