G.,
Исходя из своего немалого опыта в решении подобных задач, настоятельно рекомендую всем "важным" областям (тем, которые будут обрабатываться в коде) присвоить реальные имена. Например, всю таблицу с базой (исключая заголовки) назвать RBase, колонку с номерами -- RNumber, область для печати -- RPrint. Тогда в коде можно будет определить переменные типа Range и работать с ними, что гораздо облегчит понимание кода и убережёт от опечаток и трудноотслеживаемых ошибок:
1.
2.
3.
Dim RBase As Range
Dim RNumber As Range
Dim RPrint As Range
Инициализацию этих переменных можно реализовать в событии активации формы, например:
1.
2.
3.
4.
5.
6.
7.
8.
9.
Private Sub UserForm_Activate()
' Инициализация переменных областей:
Set RNumber = Range("base!RNumber")
Set RBase = Range("base!RBase")
Set RPrint = Range("print!RPrint")
' Заполняем список ComboBox'а значениями из области номеров
txtGrz.List = RNumber.Value
End Sub
Можно, конечно, присвоить RowSurce значение "base!RNumber" на этапе разработки, но, на мой взгляд, инициализация в коде надёжнее и удобнее.
Потом, динамическое обновление полей на форме нужно реализовать в событии Change ComboBox'а.
Ну а заполнение данных для печати, на мой взгляд, лучше описать при выходе из формы, тем более, что форма у тебя модальная...
Я бы ещё на твоём месте реализовал добавление, удаление и редактирование данных тоже через UserForms. Тогда ты сможешь таблицу с базой сделать невидимой (xlSheetVeryHidden), чтобы никто руками туда не лазил...
В заключение, в прикреплённом файле я реализовал то, о чём говорил в начале (по поводу именованных областей и динамического обновления некоторых полей на форме). Код несложный, с комментариями, посмотри на досуге -- может пригодится.
