Dakika Farkı Problemi

[tiryakiahmed]

Merhaba Arkadaşlar,
Ekteki dosyada işlem sıraları rasgele yapılabilir. kişi yaptığı işe ismini girdikten hemen sonra işlem zamanını otomatik atıyor.

Problem şu;
kişi ismini girdikten sonra zamanını atayacak ve bir önceki zamanı bulup ondan çıkaracak kod nasıl yazılabilir?

Teşekkürler...

 

[Necdet]

Saat Farkı

Merhaba,

Aşağıdaki kodların ilgili sayfanın kod bölümünde olmalı.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
Dim EskiSaat As Date
Dim i As Long
If Intersect(Target, [B:B]) Is Nothing Then Exit Sub
Target.Offset(0, 1) = Time
EskiSaat = Time
i = Target.Row
Do
    i = i - 1
    If Cells(i, "B") = Target.Value Then EskiSaat = Cells(i, "C")
Loop Until i = 2 Or Target.Value = Cells(i, "B")
Target.Offset(0, 2) = Target.Offset(0, 1) - EskiSaat
Target.Offset(1, -1).Select
Son:
End Sub

 

[tiryakiahmed]

Çok teşekkür ederim Necdet Bey,

 

[Necdet]

Güle güle kullanınız. İyi akşamlar.

 

[tiryakiahmed]

Merhaba Necdet Bey,
ekteki tablodaki gibi olduğu zaman verdiğiniz kodları kullandım uyarlamaya çalıştım lakin olmadı. Sutun sayısı arttığı zaman ne yapmamız lazım acaba?