сортировка по месяцам определенного столбца

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

сортировка по месяцам определенного столбца (Макросы/Sub)

Dadojon

Дата: Среда, 01.02.2017, 11:13 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 18

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

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

Excel 2010

Добрый день уважаемые форумчане.
Как поставить макрос, чтобы автофильтр работал только по одному столбцу, и при добавлении дополнительной информации автоматический сортировал?

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

Сообщение отредактировал Dadojon - Среда, 01.02.2017, 11:15

Ответить

K-SerJC

Дата: Среда, 01.02.2017, 12:12 | Сообщение № 2

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

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

Сообщений: 487

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

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

Excel 2013

[vba]

Код

ActiveSheet.Range("$A$3:$H$203").AutoFilter Field:=2

[/vba] где 2 номер столбца

в модуль листа:
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Range("$A$3:$H$203").AutoFilter Field:=2
end sub

[/vba] чтобы автоматом применялся при изменении

Благими намерениями выстелена дорога в АД.

Ответить

K-SerJC

Дата: Среда, 01.02.2017, 12:28 | Сообщение № 3

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

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

Сообщений: 487

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

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

Excel 2013

так?

К сообщению приложен файл: Dadojon.xls (84.5 Kb)

Благими намерениями выстелена дорога в АД.

Ответить

Dadojon

Дата: Среда, 01.02.2017, 12:47 | Сообщение № 4

Группа: Пользователи

Ранг: Новичок

Сообщений: 18

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

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

Excel 2010

K-SerJC, Столбец "D" должен фильтроваться с нарастающем по месяцам.

Ответить

_Boroda_

Дата: Среда, 01.02.2017, 14:26 | Сообщение № 5

Группа: Админы

Ранг: Местный житель

Сообщений: 17006

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Dadojon, Начал я Вам макрос писать, а потом подумал - зачем?
Все проще можно сделать - даты вводите в серенький узкий столбик, в двух соседних они раскидывются на день-месяц и год. По день-месяц сортируете вручную при необходимости, не думаю, что Вам это так уж часто придется делать.

К сообщению приложен файл: -3.xlsb (19.7 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

K-SerJC

Дата: Среда, 01.02.2017, 16:18 | Сообщение № 6

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

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

Сообщений: 487

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

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

Excel 2013

к файлу Александра(_Boroda_) прицепил автомат при внесении изм.
если в серый столбик добавить дату и в столбиках E и F формулы, сразу произойдет сортировка по Е по возрастанию

К сообщению приложен файл: Dadojon-1.xls (69.5 Kb)

Благими намерениями выстелена дорога в АД.