Добрый день.
Насколько я понял 1 вопрос - он в том, что не записывается номер заказа? Если это так, то это происходит потому, что
| Код |
|---|
With Sheets("Baza").Range("Baza")
iLastRow = .Cells(.Rows.Count, 4).End(xlUp).Row + 1
.Cells(iLastRow, 2) = Date & " , " & Time
.Cells(iLastRow, 4) = "Активный"
.Cells(iLastRow, 5) = Me.cbTable.Value
.Cells(iLastRow, 6) = Me.tbPeople.Value
.Cells(iLastRow, 7) = tZakaz
End With
|
В инструкциях обработки нажатия кнопки "сформировать заказ" нет инструкции заполнения 1 столбца таблицы. Заполнение идет со второго столбца.
2. При определении количества строк вы используете диапазон умной таблицы с именем "Baza". Диапазон выглядит так: $A$2:$G$2. Потом вы в этом диапазоне при помощи метода End ищете номер строки. Метод в диапазоне из одной строки возвращает 1 (и всегда будет возвращать). Вы к этому значению прибавляете 1 (получаем 2) и в этой строке пишете данные с формы. Но эти строки данных НЕ ПОПАДАЮТ в диапазон таблицы. Поэтому, когда вы формируете следующий заказ - у вас опять определяется 1 строка в умной таблице и получается 1+1=2 строка в которую будете записывать.
Вам надо не методом End пользоваться в данном случае, а использовать методы и свойства, применяемые к умным таблицам (ListObject). Например, DataBodyRange (вернет диапазон с данными (не заголовками) в умной таблице).
