Yardım gun sayan fonksiyonda hafta sonu problemi.Acil destek lazım.

merhaba arkadaşlar;

Öncelikle herkese kolay gelsin benim bir fonksiyonum var şu şekilde açıklayayım ;

Aşağıdaki fonksiyonumda kişinin arka arakaya aldığı raporu sayan bir kod aralığı mevcut ancak araya hafta sonu girdiğinde o günde yeni veri girmediğimden aslında devam eden günü tekrar sayıyor. yani bir sonraki haftanın başında aynı x kişinin devamsızlığı devam ediyorsa fonksiyon aynı şekilde işlesin istiyorum ... yardımcı olurmusunuz arkadaşlar... kodlarım şu şekilde...bu konuda yardımcı olursanız çok sevinirim kaç haftadır düzeltmeye çalışıyorum formullede yazayım dedim ama yapamadım...

Function RaporSay(Personel As Range)
Say = Worksheets("DEVAMSIZLIKLAR").Range("B" & Rows.Count).End(xlUp).Row
Veri = Worksheets("DEVAMSIZLIKLAR").Range("A4:H" & Say).Value
ReDim Liste(1 To UBound(Veri))
Say = 0
For i = 1 To UBound(Veri)
If Veri(i, 2) = Personel.Value And Veri(i, 8) = "R" Then
Say = Say + 1
Liste(Say) = Veri(i, 6)
End If
Next i
For i = 2 To Say
If Liste(i) - 1 = Liste(i - 1) Then
Kontrol = Kontrol + 1
Else
If Kontrol >= 5 Then RaporSay = RaporSay + 1
Kontrol = 1
End If
If i = Say And Kontrol >= 5 Then RaporSay = RaporSay + 1
Next i
End Function


İndir DEVAMSIZLIKLAR 2023 xlsm

dosya yolu...