Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

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

 

= Мир MS Excel/Отчет по маршруту формируется не полностью. - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Отчет по маршруту формируется не полностью. (Макросы/Sub)
Отчет по маршруту формируется не полностью.
parovoznik Дата: Понедельник, 15.03.2021, 22:00 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 393
Репутация: 22 ±
Замечаний: 0% ±

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

Автор - parovoznik
Дата добавления - 15.03.2021 в 22:00
gling Дата: Понедельник, 15.03.2021, 22:35 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 2243
Репутация: 581 ±
Замечаний: 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]


ЯД-41001506838083

Сообщение отредактировал gling - Понедельник, 15.03.2021, 22:37
 
Ответить
СообщениеЗдравствуйте.
У вас 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]

Автор - gling
Дата добавления - 15.03.2021 в 22:35
RAN Дата: Понедельник, 15.03.2021, 22:36 | Сообщение № 3
Группа: Друзья
Ранг: Участник клуба
Сообщений: 5421
Репутация: 1084 ±
Замечаний: 0% ±

2010
Это связано с тем, что сколько бы раз ячейку не перезаписывали, в ней останется только то, что записали последним.
[vba]
Код
LR=LR+1
[/vba]


Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеЭто связано с тем, что сколько бы раз ячейку не перезаписывали, в ней останется только то, что записали последним.
[vba]
Код
LR=LR+1
[/vba]

Автор - RAN
Дата добавления - 15.03.2021 в 22:36
parovoznik Дата: Понедельник, 15.03.2021, 22:47 | Сообщение № 4
Группа: Проверенные
Ранг: Обитатель
Сообщений: 393
Репутация: 22 ±
Замечаний: 0% ±

Excel 2013
RAN, gling благодарен за посказку. это строка была у меня , но случайно удалил. благодарю за ответ. hands
 
Ответить
СообщениеRAN, gling благодарен за посказку. это строка была у меня , но случайно удалил. благодарю за ответ. hands

Автор - parovoznik
Дата добавления - 15.03.2021 в 22:47
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Отчет по маршруту формируется не полностью. (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования Jobsora jooble
© 2010-2021 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!