Отчет по маршруту формируется не полностью.

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

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

Отчет по маршруту формируется не полностью. (Макросы/Sub)

parovoznik

Дата: Понедельник, 15.03.2021, 22:00 | Сообщение № 1

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

Ранг: Обитатель

Сообщений: 443

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

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

Excel 2013

Доброго времени суток.
имеется таблица реестра отгрузок(умная таблица). На форме расположен комбобокс с уникальными значениями.
После выбора в комбобоксе и по по нажатию на кнопку"Сформировать" формируется отчет по указанному маршруту.
но отчет формируется только из одного значения.
маршрут Киев-Ровно был 3 раза ,но в отчете только отображается одно значение.
Как исправить ошибку в коде? Может это связано с использованием умной таблицы?

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

Ответить

gling

Дата: Понедельник, 15.03.2021, 22:35 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2563

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

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

2010

Здравствуйте.
У вас Lr по мере нахождения новых данных не изменяется. И новые данные заменяют старые одной и той же строке. Запишите часть кода так[vba]

Код

         If Cells(i, 8) = Route Then
            .Cells(Lr, 1) = Cells(i, 1)
            .Cells(Lr, 2) = Cells(i, 2)
            .Cells(Lr, 3) = Cells(i, 8)
            .Cells(Lr, 4) = Cells(i, 5)
            .Cells(Lr, 2).NumberFormat = "m/d/yyyy"
            .Cells(Lr, 5).NumberFormat = "#,##0.000"
            Lr = Lr + 1
        End If

[/vba]