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

 

= Мир MS Excel/Автоматический выбор диапазона данных в макросе - Мир MS Excel

  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Автоматический выбор диапазона данных в макросе
noobik Дата: Среда, 10.08.2022, 12:57 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 30
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
Здравствуйте! Заранее прошу прощения за глупости, но попробую донести просьбу...
Есть данные и они обрабатываются каждый месяц. То есть, фильтром выбираю Имя, потом месяц (и в вкладке месяц - дни) и т.д. Записал макрос. Но в этом макросе указан текущий месяц (допустим - июль). Можно ли сделать так, чтоб когда в файле появятся данные за август диапазон чисел августа задался автоматически?
Вот макрос:

Sub Макрос1()
'
' Макрос1 Макрос
'

'
ActiveSheet.Range("$A$5:$C$504").AutoFilter Field:=3, Criteria1:="Иванов"
Range("C5").Select
ActiveSheet.Range("$A$5:$C$504").AutoFilter Field:=2, Operator:= _
xlFilterValues, Criteria2:=Array(1, "6/21/2022")
End Sub

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


Сообщение отредактировал Serge_007 - Среда, 10.08.2022, 13:30
 
Ответить
СообщениеЗдравствуйте! Заранее прошу прощения за глупости, но попробую донести просьбу...
Есть данные и они обрабатываются каждый месяц. То есть, фильтром выбираю Имя, потом месяц (и в вкладке месяц - дни) и т.д. Записал макрос. Но в этом макросе указан текущий месяц (допустим - июль). Можно ли сделать так, чтоб когда в файле появятся данные за август диапазон чисел августа задался автоматически?
Вот макрос:[vba]
Sub Макрос1()'' Макрос1 Макрос''ActiveSheet.Range("$A$5:$C$504").AutoFilter Field:=3, Criteria1:="Иванов"Range("C5").SelectActiveSheet.Range("$A$5:$C$504").AutoFilter Field:=2, Operator:= _xlFilterValues, Criteria2:=Array(1, "6/21/2022")End Sub
[/vba]

Автор - noobik
Дата добавления - 10.08.2022 в 12:57
  • Страница 1 из 1
  • 1
Поиск:

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