Страницы: 1
RSS
Сформировать выборку по сотруднику с распечаткой полного списка дней
 
Добрый день. Помогите пожалуйста. Заранее списибо.
Есть список 1. Сотрудников а,б,в,г.
                    2. Продолжительность командировки (дни)
стоит задача сформировать выборку по сотруднику с распечаткой полного списка дней (через фильтрацию сделал, но это как-то неудобно, возможно есть автоматическое решение. так как хочу на каждого сотрудника отдельную вкладку сделать)
как например

сотрудник А    
01.0103.01
05.0106.01
08.0124.01
 
См. файл

Код
Изменено: New - 08.10.2021 22:27:36
 
Oleksandr Vorotniak, без форматирования,  в каждом листе в первую строку добавил название шапк ручками:
Код
Sub mrshkei()
Dim arr, i As Long, n As Long, lr As Long
Dim sh As Worksheet, sh2 As Worksheet
Set sh = Worksheets("Данные")
For Each sh2 In Worksheets
    If sh2.Name <> sh.Name Then sh2.Range(sh2.Cells(2, 1), sh2.Cells(65536, 4)).Clear

Next sh2
With sh
    lr = .Cells(Rows.Count, 1).End(xlUp).Row
    arr = Range("A2:D" & lr)
    For i = LBound(arr) To UBound(arr)
    Set sh2 = Worksheets(arr(i, 4))
        lr = sh2.Cells(Rows.Count, 1).End(xlUp).Row + 1
        sh2.Cells(lr, 1).Resize(1, 4).Value = WorksheetFunction.Index(arr, i, 0)
    Next i
End With
End Sub
Изменено: Mershik - 08.10.2021 22:34:49
Не бойтесь совершенства. Вам его не достичь.
 
Вау.Большое спасибо Всем ответившим.
То, что надо. Все работает!!!!

:)  
Страницы: 1
Наверх