Заполнение акта/бланка

[Vadim Svintsov]

Добрый день и С Новым годом!
Помогите пожалуйста с заполнением акта - бланка.
Описание:
В На первой странице находятся исходные данные, заменяющиеся каждую неделю. Данные за две недели, анализируются только данные за последнюю неделю, верхняя часть таблицы.
На других листах - бланк оповещения комплектовщиков о кол-ве сделанных ошибок за прошлую неделю.
Проблема:
При копированнии данных на первую страницу - автозаполнение бланков.
Уточнения:
-Автозаполнение только желтым помеченных ячеек
-Кол-во строк в исходной таблице непостоянное
- В исходной таблице присутствуют объединенные ячейки и пустые строки (но они не анализируются)
- С добавлением еженедельных результатов, новая запись в бланке копируется на новую строку и предыдущий результат сохраняется и остается в бланке.
Заранее благодарю,
Вадим

[EducatedFool]

Готовое решение:
http://excelvba.ru/programmes/FillDocuments

кроме этого пункта, всё там реализовано

- С добавлением еженедельных результатов, новая запись в бланке копируется на новую строку и предыдущий результат сохраняется и остается в бланке

Если этот пункт обязателен, - то нужен уже другой макрос, типа такого:

Sub FillSheets()
    On Error Resume Next
    Worksheets(1).Activate
    Application.ScreenUpdating = False
    Dim ra As Range, cell As Range
    Set ra = Range(Range("b9"), Range("b" & Rows.Count).End(xlUp))
    For Each cell In ra.Cells
        With Worksheets(CStr(cell))
            .Range("b" & .Rows.Count).End(xlUp).Offset(1).Resize(, 4).Value = _
            cell.Next.Next.Resize(, 4).Value
        End With
    Next cell
    Application.ScreenUpdating = True
End Sub

[Step_UA]

для только желтых, замените строку

Set ra = Range(Range("b9"), Range("b" & Rows.Count).End(xlUp))

на

Set ra = Range(Range("b9"), Range("b9").End(xlDown))

[Vadim Svintsov]

Спасибо большое. Работатет как я хотел. Одно только "но", макрос заполняет и данные из второй таблицы. В исходнике, который я выслал - была опечаточка (в первой таблице - Имя комлектовщика 1, а в нижней таблице Имя комплектовщика 1). Если имена в первой и во второй таблице не совпадают, то все работает, а если совпадают, то заполняет и данные из нижней таблицы.
Помогите поправить макрос.
Заранее благодарю...

[Vadim Svintsov]

Все отлично работает. Большое спасибо за быстрый ответ
С Новым Годом!!!