Юзерформа для формирования таблицы по столбцам

[Казанский]

Пробуйте..

[strannick]

Работает. Огромное спасибо. Я еще покопаюсь и если что задам вопросы. Еще раз спасибо!

[strannick]

Так, с выгрузкой разобрался. Теперь с загрузкой (добавлением) записей в таблицу (раз пощла такая пьянка сделать все через юзерформы). Вариант, предложенный Робиным, простой и все вроде понятно. Но там записи добавляются в таблицу одна под другой. То есть, данные в таблице накапливаются. У меня же таблица имеет ограниченную и заранее известную структуру по строкам. Палат, допустим, 8. В некоторых палатах может быть 2 пациента, в некоторых - 3. Поэтому, за палатами зарезервировано соответствующее количество строк. Пациенты пронумерованы (столбец № пациента). Нарисовал юзерформу, через которую вносить данные в таблицу, на которой перечень всех столбцов сверху вниз и рядом текстбоксы для внесении информации по пациентам в три колонки (Пациент 1, Пациент 2 и Пациент 3). Больше трех не бывает. Вверху комбобокс для выбора номера палаты.
Вопросов несколько:
1. Как увязать юзерформу с таблицей, чтобы при наличии пациентов в палате юзерформа отображалась с уже этими заполненными пациентами, а в свободные места можно было бы вносить новых и добавлять их в таблицу. Ну и редактировать старых в случае необходимости. Для этого под каждым из пациентов вставил кнопку Добавить.
2. Ну и добавляемые пациенты должны попадать в соответствующие строки таблицы. Например, Пациент №3 второй палаты должен попасть в зарезервированную для него строку 7 таблицы.
Или же совместить внесение пациентов и редактирование в одной юзерформе как хотелось бы не пролезет?
Возможно, первые три листбокса в юзерформе (№№ п.п., № палаты, № пациента) и не нужны, потому как уже в таблице они заранее проставлены.

[strannick]

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

[strannick]

Оказалось рановато закрывать. Есть необходимость вызывать форму с одного листа, а в комбобокс должен подтягиваться список столбцов с другого. Вроде прописал все правильно:

Private Sub UserForm_Initialize()
ListBox1.List = Application.Transpose(Worksheets("База").Range("H10", Cells(10, Columns.Count).End(xlToLeft)).Value)
End Sub

Вызываю с листа "Общий_вид" кнопкой

Private Sub CommandButton3_Click()
UserForm1.Show
End Sub

Выдает ошибку 1004. Что не так?

[doober]

Так должно работать

Application.Transpose (Worksheets("База").Range("H10", Worksheets("База").Cells(10, Worksheets("База").Columns.Count).End(xlToLeft)).Value)

[strannick]

Царь!!! Работает. Спасибо!