Giriş-Çıkış Saatine Göre Mesai Hesaplama

[ozanyakar]

Merhaba, sitede puantaj ile ilgili birçok örnek araştırdım. Ancak tam olarak istediğimi bulamadım. Yapmak istediğim şu ;

Excel tablosunda alt alta personeller var, 1,2,3.....31 ayın günleri var. Bu günlerin her birinde her gün için, 2 şer veri var, biri giriş saati, diğeri çıkış saati. Girmiş olduğum bu giriş çıkış saatlerine göre personel kaç saat çalışmış nasıl hesaplarım ? ( Personel bazında ayrı ayrı )

 

[ÖmerFaruk]

Ali Veli'nin çalışma saat toplamı
=8+8+24+14+7+19=80 etmesi gerekmiyor mu?

 

[ozanyakar]

Evet Ömer Bey, pardon ben toplarken , =8+8+12+19+7,8+19...olarak toplamışım. Formül ile nasıl ulaşırız, toplama?

 

[denese]

Merhaba, sitede puantaj ile ilgili birçok örnek araştırdım. Ancak tam olarak istediğimi bulamadım. Yapmak istediğim şu ;

Excel tablosunda alt alta personeller var, 1,2,3.....31 ayın günleri var. Bu günlerin her birinde her gün için, 2 şer veri var, biri giriş saati, diğeri çıkış saati. Girmiş olduğum bu giriş çıkış saatlerine göre personel kaç saat çalışmış nasıl hesaplarım ? ( Personel bazında ayrı ayrı )

Ekteki dosyayı kendinize uyarlayabilirsiniz.

 

[ÖmerFaruk]

Formülle biir hayli kastı
Sayfanızda bir buton oluşturup aşağıdaki kodları çalıştırabilirsin.

Sub MesaiHesapla()
Application.ScreenUpdating = False
For i = 4 To Range("A" & Rows.Count).End(3).Row
    Zaman = 0
    For k = 3 To Cells(1, Columns.Count).End(1).Column + 1
        If Cells(3, k) = "G.S." And Cells(i, k) <> "" Then
            ilk = CDbl(Cells(1, k)) + CDbl(Cells(i, k))
        End If
        If Cells(3, k) = "Ç.S." And Cells(i, k) <> "" Then
            son = CDbl(Cells(1, k - 1)) + CDbl(Cells(i, k))
            If son < ilk Then son = son + 1
        End If
        If ilk > 0 And son > 0 Then
            Zaman = Zaman + son - ilk
            son = 0: ilk = 0
        End If
    Next k
    Range("X" & i) = Zaman * 24
    Range("X" & i).NumberFormat = "00.00"
Next i
Application.ScreenUpdating = True
End Sub

 

[ozanyakar]

Formülle biir hayli kastı
Sayfanızda bir buton oluşturup aşağıdaki kodları çalıştırabilirsin.

Sub MesaiHesapla()
Application.ScreenUpdating = False
For i = 4 To Range("A" & Rows.Count).End(3).Row
    Zaman = 0
    For k = 3 To Cells(1, Columns.Count).End(1).Column + 1
        If Cells(3, k) = "G.S." And Cells(i, k) <> "" Then
            ilk = CDbl(Cells(1, k)) + CDbl(Cells(i, k))
        End If
        If Cells(3, k) = "Ç.S." And Cells(i, k) <> "" Then
            son = CDbl(Cells(1, k - 1)) + CDbl(Cells(i, k))
            If son < ilk Then son = son + 1
        End If
        If ilk > 0 And son > 0 Then
            Zaman = Zaman + son - ilk
            son = 0: ilk = 0
        End If
    Next k
    Range("X" & i) = Zaman * 24
    Range("X" & i).NumberFormat = "00.00"
Next i
Application.ScreenUpdating = True
End Sub

Sayın Ömer Faruk, emeğiniz ve ilginiz için teşekkür ederim. Makroyu başarılı bir şekilde çalıştırdım problem yok. Sürekli kullanacağım bir tablo. Ancak makro bilmediğim için olası bir hata da müdahale edemem. Örneğin tablodaki verileri arttırdığımda, yeni satır ve sütun eklediğimde makroyu çalıştıramadım. Formül ile çözebilseydim benim için daha iyi olurdu. Vakit ayırdınız çok teşekkür ederim. Saygılar sunarım.

 

[ÖmerFaruk]

Gönderdiğiniz tabloda isimler 4. satırdan başlıyordu.
Aşağıya doğru istediğiniz kadar isim ekleyebilirsiniz.

Sütunlar C den başlıyordu ve V ye kadar devam ediyordu.
Sağa doğru istediğiniz kadar tarih ilave edbilir 2.ve3.satırlara veri girebilirsiniz. Haliyle eklediğiniz her isim için de 4.satır ve devamına da

Yapmanız gerekenler
1. Oluşturduğum butonu mesela A1 hücresine kaydırın
2. Sonuçları yazdığımız X sütunu yerine aşağıdaki kodu kullanın

'Bu iki satır yerine
Range("X" & i) = Zaman * 24
Range("X" & i).NumberFormat = "00.00"

'Bu iki satırı kullanın
Cells(i,k+1) = Zaman * 24
Cells(i,k+1) .NumberFormat = "00.00"

 

[ozanyakar]

Gönderdiğiniz tabloda isimler 4. satırdan başlıyordu.
Aşağıya doğru istediğiniz kadar isim ekleyebilirsiniz.

Sütunlar C den başlıyordu ve V ye kadar devam ediyordu.
Sağa doğru istediğiniz kadar tarih ilave edbilir 2.ve3.satırlara veri girebilirsiniz. Haliyle eklediğiniz her isim için de 4.satır ve devamına da

Yapmanız gerekenler
1. Oluşturduğum butonu mesela A1 hücresine kaydırın
2. Sonuçları yazdığımız X sütunu yerine aşağıdaki kodu kullanın

'Bu iki satır yerine
Range("X" & i) = Zaman * 24
Range("X" & i).NumberFormat = "00.00"

'Bu iki satırı kullanın
Cells(i,k+1) = Zaman * 24
Cells(i,k+1) .NumberFormat = "00.00"

Sub MesaiHesapla()
Application.ScreenUpdating = False
For i = 4 To Range("A" & Rows.Count).End(3).Row
Zaman = 0
For k = 3 To Cells(1, Columns.Count).End(1).Column + 1
If Cells(3, k) = "G.S." And Cells(i, k) <> "" Then
ilk = CDbl(Cells(1, k)) + CDbl(Cells(i, k))
End If
If Cells(3, k) = "Ç.S." And Cells(i, k) <> "" Then
son = CDbl(Cells(1, k - 1)) + CDbl(Cells(i, k))
If son < ilk Then son = son + 1
End If
If ilk > 0 And son > 0 Then
Zaman = Zaman + son - ilk
son = 0: ilk = 0
End If
Next k
Cells(i, k + 1) = Zaman * 24
Cells(i, k + 1).NumberFormat = "00.00"
Next i
Application.ScreenUpdating = True
End Sub

Hocam, makroda belirttiğiniz alanları değiştirdim çalıştı.
Ancak ; yeni eklediğim sütuna yani saat yazdığım yerin üzerine toplam alıyor. O toplam aldığı alan makroda hangi veri, sağa kaydırmam lazım onu. Nasıl yapabiliriz?

 

[ÖmerFaruk]

Gönderdiğim dosyada kodlar Module1 içindeydi.
Siz sayfanın kod kısmına yeniden kod yazmışınız.
Ancak butona basınca moduldeki kodlar çalışıyor.
Haliyle gerekli değişikliği module1 içinde yapın. Sayfanın kod sayfasına eklediklerinizi silebilirsiniz.

 

[ozanyakar]

Gönderdiğim dosyada kodlar Module1 içindeydi.
Siz sayfanın kod kısmına yeniden kod yazmışınız.
Ancak butona basınca moduldeki kodlar çalışıyor.
Haliyle gerekli değişikliği module1 içinde yapın. Sayfanın kod sayfasına eklediklerinizi silebilirsiniz.

Hocam hiçbir sorun yok süper oldu. Sanıyorum sütunların bittiği yerden bir boşluk bırak toplamı orada al şeklinde bir kod yazdınız. Ne kadar sütun eklesem de bir boşluk bırakıp hemen yanına toplam alıyor. Harika oldu, üstelik sayı formatında. Çok teşekkür ederim, ellerinize sağlık. Adana dan saygılar.

 

[ÖmerFaruk]

Eyvallah