Выдает ошибку при прогоне кода.

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Выдает ошибку при прогоне кода. - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Выдает ошибку при прогоне кода. (Формулы/Formulas)

Выдает ошибку при прогоне кода.

lomonos1917

Дата: Среда, 23.12.2020, 15:55 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

Репутация: 0 ±

Замечаний: 0% ±

Добрый день всем! Следующий вопрос по UserForm. Я совсем не профессионал в пользовательских формах, а делать надо. Задача следующая. Необходимо, чтобы значение в формате даты из Textbox переместилось в первую ячейку в конец умной таблицы. Есть следующий код. Что в нём не так?
[vba]

Код

Private Sub TextBox2_Change()
Dim n As Date
Set ЛистИсходник = ThisWorkbook.Worksheets("ИСХОДНИК")
Set ТаблицаИсходник = ЛистУчёт.ListObjects("Таблица1_tb")
Set ТаблицаИсходник = ЛистИсходник.ListObjects("ИСХОДНИК")
Set СтрокаИсходник = ТаблицаИсходник.ListRows.Add
СтрокаИсходник.Range(1) = Format(Дата_заказа, "ДД.ММ.ГГГГ")
End Sub

[/vba]

Сообщение отредактировал lomonos1917 - Среда, 23.12.2020, 16:53

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Выдает ошибку при прогоне кода. (Формулы/Formulas)

Страница 1 из 1
1