График работы

[doober]

Разносит по листам

Sub GO_GO_New()
Dim Sh1 As Worksheet, Sh2 As Worksheet
Dim A As Range, sotrudnik As Integer, Takt As Integer, B As Range
Set Sh1 = Worksheets("Begin")
With Sh1
Set B = .Range("B1:F1")
 Set A = .Range("A2:A" & .Range("$A$" & .Rows.Count).End(xlUp).Row)
 Y = GO_Na_Rabote(A(1, 1))
 Takt = 1
 sotrudnik = Y(1, 1)
Set Sh2 = ThisWorkbook.Worksheets.Add(After:=Sheets(Sheets.Count))
Sh2.Name = sotrudnik
B.Copy Sh2.Range("A1")
 For n = 1 To A.Rows.Count
 Y = GO_Na_Rabote(A(n, 1))
 If sotrudnik <> Y(1, 1) Then
 Set Sh2 = ThisWorkbook.Worksheets.Add(After:=Sheets(Sheets.Count))
Sh2.Name = Y(1, 1)
B.Copy Sh2.Range("A1")
 Takt = 2
  Sh2.Range("A" & Takt).Resize(1, 4) = Y
 Else
 Takt = Takt + 1
  Sh2.Range("A" & Takt).Resize(1, 4) = Y
 End If
A(n, 1).Offset(, 1).Resize(1, 4) = Y
 sotrudnik = Y(1, 1)
 Next
End With
End Sub

[xanderg]

да, разнесло по отдельным листам. но не вычисленно время, проведенное на рабочем месте
это у меня только так?

[doober]

Листы получили,далее сотрируйте по дате и формулами считайте.

[xanderg]

большое спасибо за это.
но нужен автоматический обработчик данных.
на этих листах осталось только время_ухода-время_прихода, у строк с одинаковой датой
кто-то может помочь доделать? осталось уже немного, как мне кажется

[xanderg]

кто может доделать за вознаграждение?

[doober]

Могу .
пишите в личку