- Katılım
- 9 Ocak 2016
- Mesajlar
- 12
- Excel Vers. ve Dili
- 2010
merhaba;
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...
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
https://dosya.co/gr6v8eekn76h/DEVAMSIZLIKLAR_2023.xlsm.html
dosya yolu...
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...
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
https://dosya.co/gr6v8eekn76h/DEVAMSIZLIKLAR_2023.xlsm.html
dosya yolu...