Makro yardım perkotekten alınan rapor hk.

[akviran42]

Değerli hocalarım ;

EK'te Perkotek programından aldığım rapor mevcut. Bu rapordan kişilere ait giriş çıkış saatlerini toplam istiyorum. Gerekli açıklamaları dosya içerisine yazdım. Eğer istediğim mümkün ise makro olarak yazabilirmisiniz. Günlük çok zamanımı almakta.
Yardımlarınızdan dolayı şimdiden teşekkür ederim.

Saygılarımla.

 

[askm]

Dosyanız bozuk açılamıyor.

 

[akviran42]

yeni dosya ekledim

 

[askm]

Aşağıdaki kodları bir modüle yapıştırıp deneyin.

Sub ASKM_Aktar()
Dim s1, s2 As Worksheet
Set s1 = Sheets("per.")
Set s2 = Sheets("Sayfa1")
Dim SonSat1, SonSat2 As Long
SonSat1 = s1.Range("A" & Rows.Count).End(xlUp).Row
SonSat2 = s2.Range("A" & Rows.Count).End(xlUp).Row
Application.ScreenUpdating = False
s2.Range("C2:F" & SonSat2).ClearContents
For i = 2 To SonSat2
    For x = 6 To SonSat1
        If s2.Cells(i, 1) = s1.Cells(x, 1) Then
            s2.Cells(i, 3) = s1.Cells(x, 11) 'Devamsız
            If s2.Cells(i, 3) = "Devamsız" Then
                s2.Cells(i, 6) = "" 'toplam
            Else
                Saat1 = Format(s1.Cells(x, 5), "hh:nn")
                Saat2 = Format(s1.Cells(x, 8), "hh:nn")
                s2.Cells(i, 4) = Saat1 'Giriş
                s2.Cells(i, 5) = Saat2 'Çıkış
                s2.Cells(i, 6).FormulaR1C1 = "=MOD(RC[-1]-RC[-2],1)"  'toplam
            End If
        End If
    Next x
Next i
Application.ScreenUpdating = True
MsgBox "Aktarım işlemi tamamlandı...", vbInformation, "ASKM"
End Sub

 

[akviran42]

Üstadım istediğim tam bu şekilde değil. Dosya içinde açıklamada da belirttiğim gibi girişe ilk giriş saatini çıkışa son çıkış saatini ve toplam kısma ise yazdığım saatler dışında kalan saatlerin toplamı şeklinde idi. İlgilenebilirsen memnun ve duacın olurum.

Saygılarımla

 

[askm]

Örnek dosyanızda Sayfa1 i manuel siz doldurup gönderebilir misiniz. Ben ona göre kod yazmaya çalışayım.

 

[akviran42]

Üstadım sayfa 1 dolu hali EK'tedir.

 

[askm]

Toplam saat olayını anlayamadım. 07:52 17:53 00:15
15 dakika nereden çıkıyor.

 

[akviran42]

Üstadım aynı kişinin alt satırlarda gün içerisinde yapmış olduğu diğer giriş çıkışlar var. O giriş çıkışlardan toplanan saat toplamı. Verdiğim saatler dışında kalan toplam.

 

[askm]

Emre ÖZSARI için 8+1+7=16 yapar. (15 yazmışsınız)
Yunus SUNAR için zaten 6 saat filan yapıyor. Ben bunu anlamadım.