Mesai Hesabı

[emre67z]

Merhaba arkadaşlar, Bu çalışmayı makro ile yaptırabilir miyiz? formuller olmasın makro ile yazsın

bildiğim kadarı ile resmi/bayram/izin günlerinde yapılan çalışmanın 2 katı mesai ise 1,5 katı. bu bilgide yanlışsa doğrusunu paylaşan arkadaşlara teşekkür ederim

 

[aspava]

Bildiğim kadarı ile mesai hesaplanırken maaş/ 225 ( yasal çalışma saati ) * 1,5 olarak hesaplanıyor.

 

[YUSUF44]

Aşağıdaki kodları ilgili sayfanın kod bölümüne (sayfa adına sağ tıklayıp kod görüntüle deyince açılan sayfaya) yapıştırıp deneyiniz. E4, E9 ve E10 hücrelerinde yapılan değişikliklere göre işlem yapılır:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [E4]) Is Nothing Then GoTo 10
    If Target = "" Then
        Application.EnableEvents = False
            [E5:E6].ClearContents
            [E9:F10].ClearContents
        Application.EnableEvents = True
    Else
        [E5] = Round(Target / 30, 2)
        [E6] = Round([E5] / 8, 2)
    End If
10:
If Intersect(Target, [E9:E10]) Is Nothing Then Exit Sub
    If Target = "" Then
        Target.Offset(0, 1).ClearContents
    ElseIf IsNumeric([E6]) Then
        If Target.Row = 9 Then
            [F9] = Round(Target * 2 * [E6], 2)
        Else
            [F10] = Round(Target * 1.5 * [E6], 2)
        End If
    Else
        MsgBox "Lütfen net ücreti doğru giriniz!", vbInformation
        Target.Offset(0, 1).ClearContents
    End If
End Sub