Resmi Tatil Günlerini Toplatmak

[SER973]

Saygıdeğer Arkadaşlar

Benim Aylık Mesailerimi Gün Gün Takip ederek GenelToplamda Fazla Mesai Saatlerini Toplatırken Tatil Mesaisi ( H.Sonu+R.Tatil) Birde Normal Fazla Mesai diye iki sütünda gördüğüm bir tablom var...

Bu Tabloda o ay Resmi Tatil Yok ise Bir sorun yok Anak o ay içinde resmi Tatil varsa ozaman bunu yapamadım.

Konu ile ilgili dosya ekte olup yardımlarını için şimdiden teşekkür eder.. Çalışmalarınızda başarılar dilerim....

 

[Mahmut Kök]

Aşağıdaki kod fikir verebilir.

Sub tatil()
For a = 4 To [e65536].End(3).Row
mesai = 0
nmesai = 0
    For b = 5 To 38
    If Cells(3, b) = "RT" Or Cells(3, b) = "HT" Then
    mesai = mesai + Cells(a, b)
    Else
    nmesai = nmesai + Cells(a, b)
    End If
    Next
Cells(a, "an") = mesai
Cells(a, "am") = nmesai
Next
End Sub

 

[SER973]

Teşekkürler

Sn.Mesleki

Göndermiş olduğunuz Kod işimi görüyor.. Çok Teşekkür Eder Başarılarınızın Devamını Dilerim...