Добрый день требуется дописать 2 строчки кода в форму для забивки данных ,В заполненных нами образцах диплома и приложения (форма 2) мы не указали ФИО председателя АК, генерального директора и секретаря, просто поставили подпись. Но нужны строчки, в которые нам нужно вводить их фамилию и инициалы. Место расположения данных строк я отметила в высланном файле. Также в форме 2 приложения нам нужно большее количество строк для указания освоенных дисциплин. Сейчас нам предстоит указать 12 дисциплин. Думаю, пока это максимальное количество.

там работы на 20 минут а может и меньше , бывший программист не дописал
очень срочно нужно сделать!

форма работает следующим образом в одной забиваются данные  после нажатия создаются формы готовые с забитыми данными с фамилией человека

код на vb matrix

Контакты - через личку [МОДЕРАТОР]

Уважаемые программисты , требуется допилить форму VB она уже готова практически , проблема с выбором данных из выпадающих списков ,нужно написать самыми простыми макросами какими возможно ) тоесть по выбору одного комбо бокса выпадало другое значение из другово листа в следующем комбо боксе , связанные данные вроде , в приложенном файле всё написано , думаю займёт пол часа времени у спеца , допилил бы сам не хватает времени и нервов бюджет 500 рублей. Чем проще будут макросы тем лучше ! а если подпишите что из чего выходит вообще красота !  заранее благодарю

Спасибо за помощь Юрий М
Вроде всё нашёл сделал как надо
Но есть пару косячков, данные копируются не вверх а вниз не пойму где ошибки в формулах
И при выборе галочками данные копируются в порядке снизу вверх а не сверху вниз
Исправте пожалуйста

Option Explicit

Sub pp()
Dim iLastrow As Long, ilastrow2 As Long, k As Long
With Sheets("òåõ ïðîöåññ")

iLastrow = .Cells(.Rows.Count, 1).End(xlUp).Row
Application.ScreenUpdating = False
For k = iLastrow To 6 Step -1
If .Range("F" & k).Text = "a" Then
ilastrow2 = Sheets("òåõ ïðîöåññ").Cells(Sheets("òåõ ïðîöåññ").Rows.Count, 1).End(xlUp).Row + 1
.Range(.Cells(k, 1), .Cells(k, 2)).Copy Sheets("òåõ ïðîöåññ").Cells(ilastrow2, 1)
.Range(.Cells(k, 3), .Cells(k, 3)).Copy Sheets("òåõ ïðîöåññ").Cells(ilastrow2, 3)
.Cells(k, 3).Copy Sheets("òåõ ïðîöåññ").Cells(ilastrow2, 3)
.Cells(k, 4).Copy Sheets("òåõ ïðîöåññ").Cells(ilastrow2, 4)
.Cells(k, 5).Copy Sheets("òåõ ïðîöåññ").Cells(ilastrow2, 5)


End If
Next k
End With
Application.ScreenUpdating = True
End Sub

Примерно столько времени и ушло  

Добрый вечер , просмотрел весь форум ну ничего подобного ненашёл , извините если что ))

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


Заранее благодарю за помощь .

файл с шаблоном добавил.