Soru Saat Toplama ve toplamı 8' e bölme

[sirkülasyon]

02:00

03:00

04:20

05:00

06:15

02:09

08:00

09:00

10:36

11:00

formatında K sütununda 2. satırdan itibaren saatler var. Bu saatleri toplayacak Toplamı 8' e bölecek. Kaç tane 8 oldu ise K sütununda her 8' saati tamamladığı satırın O sütununa 1 yazacak. Artan saat ya da dakika olur ise bir sonraki 8 saate dahil edecek. Toplama makro kodunda sayfa adı kullanılmayacak. Rica etsem yardımcı olabilir misiniz?

 

[tahsinanarat]

Sub SaatleriToplaVeYaz2()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim toplamSaat As Double
    Dim saatParcasi As Double
    Dim cellValue As Double
    
    Set ws = ThisWorkbook.ActiveSheet
    
    lastRow = ws.Cells(ws.Rows.Count, "K").End(xlUp).Row
    
    toplamSaat = 0
    
    For i = 2 To lastRow
        cellValue = ws.Cells(i, "K").Value
        
        saatParcasi = cellValue * 24
        
        toplamSaat = toplamSaat + saatParcasi
        
        If toplamSaat >= 8 Then
            ws.Cells(i, "O").Value = 1
            
            toplamSaat = toplamSaat - 8
        End If
    Next i
End Sub

deneyiniz.

 

[sirkülasyon]

Teşekkür Ederim