VBA код. Очистка листа и сортировка.

[DiemonStar]

wsPr.Cells(iPrRow, 9).FormulaLocal = "=Номнедели(ArhRow, 9;[21])"

исправьте на:

wsPr.Cells(iPrRow, 9).FormulaLocal = "=Номнедели(" & wsArh.Cells(iArhRow, 9).Address &";21)"

И вообще, копирование делается проще:

If Cells(iArhRow, 9) <= sData And Cells(iArhRow, 10) >= sData Or Cells(iArhRow, 10) = "" Then
  Intersect(Cells(iArhRow, 2).Resize(,9), [B:C, E:F]).Copy  wsPr.Cells(iPrRow, 2) 
  Intersect(Cells(iArhRow, 2).Resize(,9), [I:J]).Copy  wsPr.Cells(iPrRow, 7) 
  wsPr.Cells(iPrRow, 9).FormulaR1C1Local = "=НОМНЕДЕЛИ(RC[-2];2)"
  wsPr.Cells(iPrRow, 1) = iPrRow - 1
  iPrRow = iPrRow + 1
End If

[riniks17]

Уже не ругаеццо, но считает сколько кукушка накукует, а хотелось бы номера недель.

[DiemonStar]

Private Sub Start_Click()
 Dim sData As Date
  sData = Now()
 Dim iArhRow As Integer
  iArhRow = 2
 Dim wsArh As Worksheet
  Set wsArh = Worksheets("Архив")
 Dim wsPr As Worksheet
  Set wsPr = Worksheets("Присутствующие")
 Dim wsDep As Worksheet
  Set wsDep = Worksheets("График отъездов")
 Dim wsArr As Worksheet
  Set wsArr = Worksheets("График приездов")
 Dim iPrRow As Integer
  iPrRow = 1
    
 wsPr.Range(wsPr.[A2], wsPr.Cells(wsPr.Rows.Count, 1).End(xlUp)).EntireRow.ClearContents
 Set Dst = wsPr.[A1]
 
 For Each Rw In Rows
   If Rw.Cells(1, 9) = "" Then Exit For
   If Rw.Cells(1, 9) <= sData And Rw.Cells(1, 10) >= sData Or IsEmpty(Rw.Cells(1, 10)) Then
     Intersect(Rw, [B:C, E:F]).Copy Dst.Offset(iPrRow, 1)
     Intersect(Rw, [I:J]).Copy Dst.Offset(iPrRow, 6)
     Dst.Offset(iPrRow, 8).FormulaR1C1Local = "=НОМНЕДЕЛИ(RC[-2];2)"
     Dst.Offset(iPrRow, 9).FormulaR1C1Local = "=ЕСЛИ(ЕПУСТО(RC[-2]);"""";НОМНЕДЕЛИ(RC[-2];2))"
     Dst.Offset(iPrRow) = iPrRow
     iPrRow = iPrRow + 1
   End If
 Next Rw
 wsPr.Range(wsPr.[H1], wsPr.Cells(wsPr.Rows.Count, 1).End(xlUp)).EntireRow.Sort Key1:=wsPr.[H1], Order1:=xlAscending, Header:=xlYes
       
 'wsPr.Range("I2").FormulaLocal = "=НОМНЕДЕЛИ(G2;21)"
       
End Sub

Замените вашу функцию на эту.

upd. Немного поправил условие.

[riniks17]

Как только проставляю дату убытия на листе "архив" в колонке "J", вааще ничего не фильтрует. Но буду пробовать разобраться. Код-блеск.

Все работает, спасибо. Буду продолжать дальше.

[DiemonStar]

Сообщение от riniks17

Как только проставляю дату убытия на листе "архив" в колонке "J", вааще ничего не фильтрует. Но буду пробовать разобраться. Код-блеск.

Вы конкретнее объясните, чего хотите добиться. Как я понимаю, копируются из архива лишь те записи, которые не закрыты на текущую дату, проставляются номера недель и сортируются по дате прибытия. Тут всё логично. Но тогда вопрос: почему должно фильтровать здесь, если вы изменяете значение в архиве? Чего вы хотите этим добиться?

[riniks17]

Вообще то это рабочий файл. Ну не пример там никакой. Пока его формируют вручную. Все правильно. Из архива копируются незакрытые записи в три листа. Приезды, отъезды, присутствующие. Присутствующие сортируются по графе специальность для табеля. Табель ещё буду делать как сводную. Приезды сортируются по дате приезда и разбиваются в блоки по неделям. Отъезды сортируются по дате отъезда и разбиваются в блоки по неделям. Пример формата в листе. В этом же листе должна быть возможность проставить или изменить дату отъезда со всеми последуюими изменениями в файле. Примерно так.