Макрос отбора данных по дате

@Alexsp85 · Регистрация: 15.06.2021

Студворк — интернет-сервис помощи студентам

Добрый день!
Мне необходимо прописать макрос отбора оплат по дате, например между 29.06.2021 16.30.00 и 30.06.2021 16.30.00.
Пример во вложении

@Hugo121 · 14.07.2021, 11:15

Вот всё в файле, значки <>= только для информации, они в код зашиты независимо от того что на листе.

@Alexsp85 · 14.07.2021, 11:19 **[ТС]**

Я жму на макрос, вылезает ошибка 438.

@Hugo121 · 14.07.2021, 11:21

Хотя конечно можно исхитриться и учесть какие сравнения указаны на листе, но это усложнит код.

Добавлено через 1 минуту

Сообщение от Alexsp85

вылезает ошибка 438

- я без понятия что за ошибка, не запоминаю ненужное. Что подсвечивает в коде?

@Alexsp85 · 14.07.2021, 11:24 **[ТС]**

Подсвечивает во втором макросе
Private Sub Макрос2()

ActiveWorkbook.Worksheets("Лист1").Sort. SortFields.Add2 Key:=Range("C2:C" & [a1].CurrentRegion.Rows.Count), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

@Hugo121 · 14.07.2021, 11:34

Это может у Вас Эксель старый. Запишите сами сортировку рекордером, используйте что запишет у Вас.
Вместо 6 напишите как в моём коде.

shanemac51 · 14.07.2021, 11:35

Сообщение от Alexsp85

Key:=Range("C2:C"

может на столбец С налезают какие-то объединенные ячейки

попробуйте заблокировать запуск макрос2

@Hugo121 · 14.07.2021, 11:38

Сообщение от shanemac51

какие-то объединенные ячейки

- так в примере не работает, там нет лишнего, у меня ведь работает. Но у меня 365 версия, там что-то с этой сортировкой помню меняли после 2010 кажется...

@Alexsp85 · 14.07.2021, 13:22 **[ТС]**

Спасибо огромное Вам за помощь!
Макрос работает отлично!!!

Новые блоги и статьи Все статьи Все блоги /
GitHub Copilot в JetBrains: модель по умолчанию, Fix и контроль MCP and_y87 12.10.2026 10 октября 2026 года GitHub обновил Copilot для JetBrains: добавил настройки стартовой модели, исправления из диагностики и управление автозапуском MCP. Поддержка IDE 2025. 1 прекращена — требуется. . .	День 5 из 28: Codex подсказывает следующий запрос and_y87 12.10.2026 9 октября 2026 года OpenAI запустила бету Composer predictions — подсказок следующего сообщения в текущем диалоге Codex. Это помощь с формулировкой запроса, а не автоматическое продолжение задачи. . . .	Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .
Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .

@Alexsp85 0 / 0 / 0 Регистрация: 15.06.2021 Сообщений: 78
	14.07.2021, 11:19 [ТС]
	Я жму на макрос, вылезает ошибка 438. 0

@Alexsp85 0 / 0 / 0 Регистрация: 15.06.2021 Сообщений: 78
	14.07.2021, 11:24 [ТС]
	Подсвечивает во втором макросе Private Sub Макрос2() ActiveWorkbook.Worksheets("Лист1").Sort. SortFields.Add2 Key:=Range("C2:C" & [a1].CurrentRegion.Rows.Count), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal 0

@Hugo121 6998 / 2896 / 555 Регистрация: 19.10.2012 Сообщений: 8,804
	14.07.2021, 11:34
	Это может у Вас Эксель старый. Запишите сами сортировку рекордером, используйте что запишет у Вас. Вместо 6 напишите как в моём коде. 0

@Alexsp85 0 / 0 / 0 Регистрация: 15.06.2021 Сообщений: 78
	14.07.2021, 13:22 [ТС]
	Спасибо огромное Вам за помощь! Макрос работает отлично!!! 0

Макрос отбора данных по дате

Решение