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

Вход

Регистрация

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

 

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

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

Excel 2010
Здравствуйте! Заранее прошу прощения за глупости, но попробую донести просьбу...
Есть данные и они обрабатываются каждый месяц. То есть, фильтром выбираю Имя, потом месяц (и в вкладке месяц - дни) и т.д. Записал макрос. Но в этом макросе указан текущий месяц (допустим - июль). Можно ли сделать так, чтоб когда в файле появятся данные за август диапазон чисел августа задался автоматически?
Вот макрос:[vba]
Код
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
[/vba]
К сообщению приложен файл: 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").Select
ActiveSheet.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
Поиск:

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