Отчет по группе

[Viento]

Уважаемые программисты, Добрый вечер!
У меня к Вам просьба. помогите плз создать макрос который выполнял бы следующие действия:
Есть файл "AgentExtHour.xls" - он формируется автоматически системой.
Из этого файла необходимо выбрать те данные которые выделены желтым цветом.

И есть конечный файл: "Отчет по группе.xls" - в него необходимо перенести выбранные данные из предыдущего файла в соответствующие ячейки (ячейки выделены тоже желтым цветом).

Заранее Огромное спасибо.

PS. Прикладываю архив с 2 файлами.

[Viento]

АРХИВ в этом письме!

[cent]

Если я правильно понял задание, то этот макрос формирует отчет для всей группы, а е для каждого в отдельности.
Попробуйте

Sub import()
Dim AgentSH As Worksheet, AWS As Worksheet, AGwb As Workbook
Dim i&, r&, AGpath$
    Set AWS = ThisWorkbook.ActiveSheet
    Set AGwb = Application.Workbooks.Open(Filename:=Application.GetOpenFilename(Title:="Укажите файл AgentExtHour.xls"))
    Set AgentSH = AGwb.Sheets("AgentExtHour")
    r = 0
    Do While AgentSH.Cells(r + 5, 2).Value = "No of answ"
        AWS.Cells(2, 1).Value = AWS.Cells(2, 1).Value & Chr(10) & AgentSH.Cells(r + 2, 1).Value
        For i = 0 To 12
            AWS.Cells(2, 4).Offset(i, 0).Value = AWS.Cells(2, 4).Offset(i, 0).Value + AgentSH.Cells(r + 5, 3).Offset(0, i).Value
            AWS.Cells(2, 5).Offset(i, 0).Value = AWS.Cells(2, 5).Offset(i, 0).Value + AgentSH.Cells(r + 7, 3).Offset(0, i).Value
        Next i
        r = r + 23
    Loop
    AWS.Range("E2:E14").NumberFormat = "h:mm:ss;@"
    AWS.Activate
End Sub

Пример смотрите во вложении

Отчет по группе.zip

[Viento]

Добрый день!
Уважаемый cent, Вы не совсем правильно истолковали моё задание, наверно это моя вина. Прошу прощения.

В файле "отчет по группе" я создал только форму для одного сотрудника.

Откройте пожалуйста файл отчет по группе.

[EducatedFool]

Попробуйте такой вариант.

Оба файла на момент запуска должны быть открыты.

[Viento]

Огромное спасибо EducatedFool! Все работает!

Вы Оказываете неоценимую помощь простым обывателям программного обеспечения.

Спасибо, что Вы есть!

С Уважением Б.К.