Yardım mesai saatlerini 3, 7 veya 11 saat ile çarparak toplamını hesaplama

karasakal13' Alıntı:

merhaba arkadaşlar, işçilerin gece çalışması hesaplamaları için bir puantaj tablosu var. örneğin aralık ayında 31 gün var. x personelinin 11 aralık pazartesi gününden 13 aralık çarşamba gününe kadar ki 3 günlük mesai saatleri sırasıyla "15:00 23:00" , "23:00 07:30", "19:30 07:30" şeklinde. bunları x personelinin 11. 12. ve 13 aralık tarihlerine girince işe gelme gününü 3 olarak hesaplıyor. ayrıca bununla birlikte gece çalışması sütunu için "15:00 23:00" yazan kısmı 3 saat ile çarpan , "23:00 07:30" yazan kısmı 7 ile çarpan , "19:30 07:30" yazan kısmı 11 ile çarpan ve bu çarpımların toplamını gece çalışması kısmına yazacak bir formül lazım. normalde =EĞERSAY(D7:AH7;"15:00 23:00")*3+EĞERSAY(D7:AH7;"23:00 07:30")*7+EĞERSAY(D7:AH7;"19:30 07:30")*11 şeklinde yazarak 3+7+11 olacak şekilde 21 toplamını hesaplayabiliyorum. ancak başka değişik mesailer ekledikçe bu formül yetersiz kalıyor. bunu D sütununa verileri girip ilgili mesai saatlerini 3 saat, 7 saat veya 11 saatle çarpıp toplayabileceğim bir formül var mı?Ekli dosyayı görüntüle 3709

Genişletmek için tıkla ...

Sub HesaplaVeYaz()
    Dim ws As Worksheet
    Dim satir As Range
    Dim cell As Range
    Dim toplam As Double
    
    ' Çalışma sayfasını belirle
    Set ws = ThisWorkbook.Sheets("Puantaj") ' Sayfa adını kendi sayfanızın adıyla değiştirin
    
    ' "D7:AH7" aralığındaki verileri kontrol et
    Set satir = ws.Range("D7:AH7")
    
    ' Gece çalışma saatlerini çarpanları ile çarp ve topla
    For Each cell In satir
        If cell.Value = "15:00 23:00" Then
            toplam = toplam + 3
        ElseIf cell.Value = "23:00 07:30" Then
            toplam = toplam + 7
        ElseIf cell.Value = "19:30 07:30" Then
            toplam = toplam + 11
        End If
    Next cell
    
    ' Sonucu "G" sütununa yaz
    ws.Range("G7").Value = toplam
End Sub