VBA excel

[LeNZZZ]

Всем здравствуйте!
Необходимо оформить и написать правильно программный код. Плачу 200р сразу. Если задача будет решена правильно, то я доплачу еще 300р.
Задача:
В организации списочный состав сотрудников составляет 15 человек. Имеется Справочник со следующими сведениями о сотрудниках:
1. Фамилия
2. Имя
3. Отчество
4. Должность
5. Штатный сотрудник (или совместитель)
6. Заработная плата (в рублях)
7. Дата приема на работу
Необходимо создать "ведомость расчета премии сотрудникам". в ведомость можно выбрать только пять человек для премии.
Перечень сведений, которые должны присутствовать в ведомости:
1. Штатный сотрудник (или совместитель)
2. Фамилия
3. Имя
4. Отчество
5. Заработная плата (в рублях)
6. Процент премии
7. Размер премии
Премия рассчитывается как произведение заработной платы сотрудника на процент премии. Пользователь должен иметь возможность указать две цифры (процент премии для штатных и для совместителей).
Кнопка "Печать приказа" формирует печатную форму приказа о премировании, куда попадает информация:
1. Текущая дата (Дата приказа)
2. Фамилия
3. Имя
4. Отчество
5. Должность
6. Размер премии

[strannick]

Чего-то не вижу я тут программного кода. Формулы и выпадающие списки. Ну, может, если делать экспорт в шаблон ворда)))))))))))

[EducatedFool]

Плачу 200р сразу. Если задача будет решена правильно, то я доплачу еще 300р.

Платите мне 200 рублей)

Задача не будет решена правильно, - но я не жадный, не буду гнаться за 500 рублями, мне и 200 хватит)

А вот вам оформленный и правильно написанный программный код:

Sub UpdateWorksheets(ByRef NewWorkbook As Workbook, ByRef OldWorkbook As Workbook)
    On Error Resume Next
    Const TempWorksheetName$ = "Temporary Worksheet"
    Dim newsh As Worksheet, oldsh As Worksheet, newIsAddin As Boolean, oldIsAddin As Boolean

    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    newIsAddin = NewWorkbook.IsAddin: oldIsAddin = OldWorkbook.IsAddin
    NewWorkbook.IsAddin = False: OldWorkbook.IsAddin = False
    newActiveSheet$ = NewWorkbook.ActiveSheet.CodeName
    NewWorkbook.Worksheets.Add(NewWorkbook.Worksheets(1)).Name = TempWorksheetName$
    For Each newsh In NewWorkbook.Worksheets
        If newsh.Tab.Color = vbGreen Then
            Set oldsh = Nothing: Set oldsh = GetWorksheetByCodename(OldWorkbook, newsh.CodeName)
            If Not oldsh Is Nothing Then res = ReplaceWorksheet(newsh, oldsh)
        End If
    Next newsh
    NewWorkbook.Worksheets(TempWorksheetName$).Delete
    GetWorksheetByCodename(NewWorkbook, newActiveSheet$).Activate
    NewWorkbook.IsAddin = newIsAddin: OldWorkbook.IsAddin = oldIsAddin
    Application.DisplayAlerts = True
End Sub

[strannick]