Автоматическая сортировка столбца, после внесения данных.

Старая форма входа

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Автоматическая сортировка столбца, после внесения данных. (Иное)

Sempai

Дата: Вторник, 22.10.2013, 11:32 | Сообщение № 1

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

Ранг: Прохожий

Сообщений: 2

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

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

Excel 2007

Доброго времени суток.
Столкнулся с проблемой автоматической сортировки. Опыта работы в Эксель не много.
Насколько я понял, нагуглив, необходимо написать макрос, на автоматическую сортировку, но уже бьюсь третий час и никак не получается, что-либо сделать.
Суть в чем, у меня есть таблица, разбирая на 30 дней, в ней я вношу выработку конкретного человека и есть итоговая где подсчитываются у меня общие результаты по людям.
Как мне сделать так, чтобы при внесении данных происходила сортировка по итоговому кол-ву и я в любое время мог узнать кто из сотрудников у меня на каком месте по выработке.
Фаил прилагается.
Может кто поможет или хотя бы подскажет с чего начать? =))

К сообщению приложен файл: 9688369.xlsx (22.2 Kb)

Сообщение отредактировал Sempai - Вторник, 22.10.2013, 11:44

Ответить

_Boroda_

Дата: Вторник, 22.10.2013, 12:04 | Сообщение № 2

Группа: Модераторы

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

Сообщений: 16675

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

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

2003; 2007; 2010; 2013 RUS

Так нужно?
В модуль листа кладем
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
      With ActiveWorkbook.Worksheets("Лист1").AutoFilter.Sort
          .SortFields.Clear
          .SortFields.Add Key:=Range("CT8:CT" & Range("A" & Rows.Count).End(xlUp).Row), Order:=xlDescending
          .Apply
      End With
End Sub

[/vba]

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

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

Ответить

Sempai

Дата: Вторник, 22.10.2013, 12:58 | Сообщение № 3

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

Ранг: Прохожий

Сообщений: 2

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

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

Excel 2007

Вот то что нужно, вот только товарищ залетов совсем не хочет сортироваться. 8-ая строка

Сообщение отредактировал Sempai - Вторник, 22.10.2013, 13:01

Ответить

Diffuser

Дата: Четверг, 08.05.2014, 17:04 | Сообщение № 4

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

Ранг: Прохожий

Сообщений: 9

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

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

Excel 2007

Вроде вчера разобрался с похожей задачей, но рано начал радоваться.

Мне необходимо то же самое, но надо сделать так, чтобы после этого...

[vba]

Код

.SortFields.Add Key:=Range("CT8:CT" & Range("A" & Rows.Count).End(xlUp).Row), Order:=xlDescending

[/vba]

...выполнялась еще одна сортировка.

Добавил такую же строку, работало день, сегодня уже ошибку выдает.

[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
       With ActiveWorkbook.Worksheets("Лист2").AutoFilter.Sort
           .SortFields.Clear
           .SortFields.Add Key:=Range("F5:F3000" & Range("D" & Rows.Count).End(xlUp).Row), Order:=xlAscending
           .SortFields.Add Key:=Range("G5:G3000" & Range("E" & Rows.Count).End(xlUp).Row), Order:=xlAscending
           .Apply
           End With
End Sub

[/vba]

Вероятно, что некорректно сделал.

Плюс у вас же уже код есть в модуле книги. Там я тоже внес изменения под себя. Но там вроде все норм.

[vba]

Код

Option Explicit

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

'
       ActiveWorkbook.Worksheets("Лист").AutoFilter.Sort.SortFields.Clear
          ActiveWorkbook.Worksheets("Лист2").AutoFilter.Sort.SortFields.Add Key:=Range( _
           "F4:F3000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
           xlSortNormal
            ActiveWorkbook.Worksheets("Лист2").AutoFilter.Sort.SortFields.Add Key:=Range( _
           "G4:G3000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
           xlSortNormal
       With ActiveWorkbook.Worksheets("Лист2").AutoFilter.Sort
           .Header = xlYes
           .MatchCase = False
           .Orientation = xlBottomToTop
           .SortMethod = xlPinYin
           .Apply
       End With
End Sub

[/vba]

Код

.SortFields.Add Key:=Range("CT8:CT" & Range("A" & Rows.Count).End(xlUp).Row), Order:=xlDescending

[/vba]

...выполнялась еще одна сортировка.

Добавил такую же строку, работало день, сегодня уже ошибку выдает.

[vba]

Код

[/vba]Diffuser

Сообщение отредактировал Diffuser - Четверг, 08.05.2014, 17:21

Ответить

СообщениеВроде вчера разобрался с похожей задачей, но рано начал радоваться.

Мне необходимо то же самое, но надо сделать так, чтобы после этого...

[vba]

Код

.SortFields.Add Key:=Range("CT8:CT" & Range("A" & Rows.Count).End(xlUp).Row), Order:=xlDescending

[/vba]

...выполнялась еще одна сортировка.

Добавил такую же строку, работало день, сегодня уже ошибку выдает.

[vba]

Код

[/vba]

Автор - Diffuser
Дата добавления - 08.05.2014 в 17:04

RAN

Дата: Четверг, 08.05.2014, 17:25 | Сообщение № 5

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

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

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

2010

Цитата Diffuser, 08.05.2014 в 17:04, в сообщении № 4

Добавил такую же строку

Не такую.
Смотрите внимательнее.
Точка, точка, запятая...

Опаньки, пока писал, точка приросла.

PS А вот это
[vba]

Код

Range("F5:F3000" & Range("D" & Rows.Count).End(xlUp).Row)

[/vba]
даже не погода в Африке.

Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Четверг, 08.05.2014, 17:33

Ответить

Diffuser

Дата: Четверг, 08.05.2014, 17:47 | Сообщение № 6

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

Ранг: Прохожий

Сообщений: 9

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

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

Excel 2007

Цитата RAN, 08.05.2014 в 17:25, в сообщении № 5

Добавил такую же строку

Не такую.
Смотрите внимательнее.
Точка, точка, запятая...

Опаньки, пока писал, точка приросла.

PS А вот это
Range("F5:F3000" & Range("D" & Rows.Count).End(xlUp).Row)

даже не погода в Африке.

Да, заметил, спасибо, исправил, работает)

Ответить

_Boroda_

Дата: Четверг, 08.05.2014, 18:14 | Сообщение № 7

Группа: Модераторы

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

Сообщений: 16675

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

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

2003; 2007; 2010; 2013 RUS

Цитата Diffuser, 08.05.2014 в 17:04, в сообщении № 4

работало день, сегодня уже ошибку выдает.

Все просто: вчера был 8-й лунный день, "Летучая мышь". В двух словах - "День связан с обольщениями, иллюзиями, обманами и заблуждениями".
Сегодня "Фонтан" - "День связан с выходом на тайные источники знаний и требует от нас углубленной работы со знанием".
Делайте выводы.

И Правила форума почитайте. Для начала.

Ответить

eco_t

Дата: Четверг, 04.09.2014, 23:19 | Сообщение № 8

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

Ранг: Прохожий

Сообщений: 2

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

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

Excel 2007

Доброй ночи! коллеги, проконсультируйте, пожалуйста, по вопросу применения макроса...
На листе 1 начальный массив данных. Нужно произвести сортировку сначала по дате, затем по номеру документа.
На листе 2 обработанный массив. Макрос не сработал.
В чём причина? файл прилагается...
Спасибо!!!

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

Ответить

eco_t

Дата: Понедельник, 08.09.2014, 21:39 | Сообщение № 9

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

Ранг: Прохожий

Сообщений: 2

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

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

Excel 2007

Цитата eco_t, 04.09.2014 в 23:19, в сообщении № 8

проблема решена...

Ответить

piffagor

Дата: Воскресенье, 12.07.2015, 22:15 | Сообщение № 10

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

Ранг: Прохожий

Сообщений: 4

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

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

Excel 2007

Всем доброго вечера!
помогите мне с автоматической сортировкой пожалуйста
на листе общий брак в сводных таблицах нужно автоматически сортировать итоговые столбцы по убыванию, чтобы рисовались красивые графики.
[moder]Хватит из темы помойку делать. Читайте Правила форума и создавайте свою тему.
А эту тему закрываю.

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

Сообщение отредактировал _Boroda_ - Воскресенье, 12.07.2015, 22:50

Ответить

Страница 1 из 1
1