Saat Aralıklarından Vardiyadaki Çalışan Sayılarını Bulma

Option Explicit

Sub saatler()
Dim saat As Date
Dim fark As Integer
Dim dz()
Dim dzA As Variant
Dim say()
Dim cal As Variant
Dim i, k As Integer

cal = Sayfa1.Range("A2:c4")
ReDim say(1 To UBound(cal, 1))
dzA = Sayfa1.Range("E2:E4")
ReDim dz(1 To UBound(dzA, 1), 1 To 2)

'vardiya saatleri
For i = 1 To UBound(dzA, 1)
dz(i, 1) = Split(dzA(i, 1), "-")(0)
dz(i, 2) = Split(dzA(i, 1), "-")(1)
Next i

For k = 1 To UBound(cal, 1)

    For i = 1 To UBound(dz, 1)
    
    If CDate(cal(k, 2)) < DateAdd("n", 15, dz(i, 1)) And CDate(cal(k, 3)) < DateAdd("n", 15, dz(i, 2)) Then
        say(k) = 1
        Exit For
    End If
    Next i
Next k

Sayfa1.Range("M2").Resize(UBound(say), 1) = WorksheetFunction.Transpose(say)
End Sub