Выгрузка из таблицы в листбокс по выбору в текстбоксе

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

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

Выгрузка из таблицы в листбокс по выбору в текстбоксе (Макросы/Sub)

Raven2009

Дата: Вторник, 18.02.2020, 22:48 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 151

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

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

Excel 2013

Добрый день.

Есть проблема с выгрузкой данных из таблицы через массив в листбокс по выбору значения из текстбокса.

На листе кнопка. По кнопке появляется форма. В форме вводится номер суппорта (номер в колонке 4 в таблице с нулями впереди). Далее после ввода и нажатия на Ентер массив с данными выбранного суппорта копируется на 2ой лист и форма сворачивается (тут нормально работает)

Далее автомаически должна открываться другая форма и на листбокс на ней должна подгружаться инф с этого самого второго листа, код на активации той формы, макрос UpdateLP. Но при заполнении листбокса появляется ошибка.
Что я упустил, подскажите пож-ста. Заранее спасибо))

К сообщению приложен файл: test2.xlsm (132.4 Kb)

Ответить

Raven2009

Дата: Среда, 19.02.2020, 07:39 | Сообщение № 2

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 151

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

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

Excel 2013

Я прошу прощения. Задал вопрос и выложил поломанный вариант. Вот тестовая версия. Подскажите пожалуйста)

К сообщению приложен файл: test3.xlsm (120.0 Kb)

Ответить

Pelena

Дата: Среда, 19.02.2020, 09:05 | Сообщение № 3

Группа: Админы

Ранг: Местный житель

Сообщений: 19405

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

Замечаний: ±

Excel 365 & Mac Excel

Не уверена, что правильно поняла. Проверьте

К сообщению приложен файл: 2758113.xlsm (91.1 Kb)

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Raven2009

Дата: Среда, 19.02.2020, 11:26 | Сообщение № 4

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 151

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

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

Excel 2013

Цитата Pelena, 19.02.2020 в 09:05, в сообщении № 3 ()

Проверьте

Спасибо, вы правильно поняли) Первые разы норм работало, но потом стало выдавать ошибку на моменте записи данных с первого листа на второй лист.

[vba]

Код

With ObjForCheck.DataBodyRange
.Cells(LRf, 1).Resize(UBound(res), UBound(res, 2)) = res
End With

[/vba]

Макрос LoadForCheck. Из-за чего это может быть. Увидел, что массив теперь через databodyrange записывается)

Ааааа, вот в чем дело. Я почистил умную таблицу. То есть последняя строка стала нулевой....

Сообщение отредактировал Raven2009 - Среда, 19.02.2020, 11:29

Ответить

Raven2009

Дата: Среда, 19.02.2020, 11:46 | Сообщение № 5

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 151

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

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

Excel 2013

Как тут быть? Если таблица на втором листе изначально пустая, выдает ошибку

К сообщению приложен файл: test4.xlsm (80.6 Kb)

Ответить

Pelena

Дата: Среда, 19.02.2020, 15:27 | Сообщение № 6

Группа: Админы

Ранг: Местный житель

Сообщений: 19405

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

Замечаний: ±

Excel 365 & Mac Excel

Так?

К сообщению приложен файл: 5512343.xlsm (89.0 Kb)

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Raven2009

Дата: Среда, 19.02.2020, 19:09 | Сообщение № 7

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 151

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

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

Excel 2013

Да все так. Спасибо вам!))

Раз уж была поправка в коде с добавлением на лист, может подскажете, как копировать из массива только некоторые значения в таблицу, а не все?))
Например в столбцы с A по D, одни итэмы из массива, с E по K, другие и тп.

что в этом коде поправить нужно?
[vba]

Код

    With ObjForCheck.DataBodyRange
        .Cells(LRf, 1).Resize(UBound(res), UBound(res, 2)) = res
    End With

[/vba]

Сообщение отредактировал Raven2009 - Среда, 19.02.2020, 19:27

Ответить

Выгрузка из таблицы в листбокс по выбору в текстбоксе (Макросы/Sub)

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