İZİN HESAPLAMA

[scareface]

İZİN TARİHİ	GÜNLÜK MESAİ SÜRESİ	KULLANMAK İSTEDİĞİ İZİN SÜRESİ	İZİN DURUMU	SAATLİK İZİN TOPLAMI
12.09.2024	8 SAAT	45 DK	EVET

Merhaba, yukarıdaki tabloda eğer 45 dakikalık iznini kullanırsa ve kullandığı bu izinleri saatlik izin kısmına kümülatif olarak yazacak, Bu izinlerin toplamı 8 saati geçtiğinde satırı kırmızı yapacak. Yardımcı olurmusunuz.

 

[pitchoute]

Dener misin

Sub IzniHesapla()
    Dim ws As Worksheet
    Dim sonSatir As Long
    Dim i As Long
    Dim toplamIzni As Double
    Dim izinSuresi As Double
    
    Set ws = ThisWorkbook.Sheets("Sayfa1") ' Sayfa adını güncelleyin
    sonSatir = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    
    toplamIzni = 0
    
    For i = 2 To sonSatir ' Başlık satırından sonraki satırlara bakar
        If ws.Cells(i, 4).Value = "EVET" Then
            izinSuresi = 45 / 60 ' 45 dakika = 0.75 saat
            toplamIzni = toplamIzni + izinSuresi
        End If
        
        ws.Cells(i, 5).Value = toplamIzni ' Saatlik izin toplamını yaz

        ' Kırmızı renkle doldurma
        If toplamIzni > 8 Then
            ws.Rows(i).Interior.Color = RGB(255, 0, 0)
        Else
            ws.Rows(i).Interior.ColorIndex = xlNone ' Rengi sıfırlamak için
        End If
    Next i
End Sub