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

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

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

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

Maryasha

Дата: Понедельник, 31.07.2017, 09:13 | Сообщение № 1

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

Ранг: Форумчанин

Сообщений: 152

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

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

Excel 2013

Всем доброго времени суток!. Реально ли создать макрос, который будет сортировать данные по убыванию в таблице с подтягивающимися данными с двух разных источников? (продолжение этой темы -Сортировка в "умной" таблице). Единственное, что останавливает от использования предложенной в теме формулы - делать 2 таблицы будет очень геморно. К сожалению, исходники я не могу скинуть - конф. данные

К сообщению приложен файл: 4026309_2-2-1-.xlsx (22.6 Kb)

Сообщение отредактировал Maryasha - Понедельник, 31.07.2017, 09:14

Ответить

Michael_S

Дата: Понедельник, 31.07.2017, 10:13 | Сообщение № 2

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

Ранг: Старожил

Сообщений: 2012

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

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

Excel2016

Цитата Maryasha, 31.07.2017 в 09:13, в сообщении № 1 ()

я не могу скинуть - конф. данные

...так замените лимоны на патроны...

Ответить

Maryasha

Дата: Понедельник, 31.07.2017, 10:27 | Сообщение № 3

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

Ранг: Форумчанин

Сообщений: 152

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

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

Excel 2013

Michael_S, уже заменил, в образце

Ответить

InExSu

Дата: Среда, 02.08.2017, 00:22 | Сообщение № 4

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

Ранг: Ветеран

Сообщений: 648

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

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

Excel 2010, 365

Цитата Maryasha, 31.07.2017 в 09:13, в сообщении № 1 ()

Реально ли

Насладитесь!
[vba]

Код

Sub УпоротоеРасположение()
  On Error Resume Next
  Application.DisplayAlerts = False
  Sheets("УпоротоеРасположение").Delete
  On Error GoTo 0
  Application.DisplayAlerts = True
  Sheets("Упорядоченное_расположение").Copy After:=Sheets(3)
  Sheets("Упорядоченное_расположение (2)").Name = "УпоротоеРасположение"
  Sheets("Упорядоченное_расположение").Select
  Cells.Copy
  Sheets("УпоротоеРасположение").Select
  Range("a1").Select
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
  Application.CutCopyMode = False
  Range("e3").Select 'какую ячейку выберешь, тот столбец и отсортируется
  Z = ActiveCell.CurrentRegion.Sort(Selection, xlDescending, Header:=xlYes)
End Sub

[/vba]

Разработчик Битрикс24 php, Google Apps Script, VBA Excel Windows/Mac

Ответить

AndreTM

Дата: Среда, 02.08.2017, 01:20 | Сообщение № 5

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

Ранг: Старожил

Сообщений: 1762

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

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

2003 & 2010

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

Для ТС же я бы посоветовал свою "умную таблицу с подтягивающимися данными" делать (как ранее советовали в предыдущей теме) именно с помощью PowerPivot/PowerQuery. Как раз все разговоры о том, что "огромные количества исходных данных" - на это и намекают, а "придется систему отчетности менять" - так это для меня тоже за гранью: как получение таблицы формулами/макросом не потребует менять "систему", а получение такой же точно таблицы с помощью средств Power -потребует...

Skype: andre.tm.007
Donate: Qiwi: 9517375010

Ответить

InExSu

Дата: Среда, 02.08.2017, 08:39 | Сообщение № 6

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

Ранг: Ветеран

Сообщений: 648

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

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

Excel 2010, 365

Цитата AndreTM, 02.08.2017 в 01:20, в сообщении № 5 ()

зачем вы

Тут сильное колдунство: иой индусский код работает.
А "правильный"

Цитата AndreTM, 02.08.2017 в 01:20, в сообщении № 5 ()

скопировать лист целиком - и потом уже на этом новом листе заменить ячейки на их значения

выдаёт "Невозможно получить свойство Sort класса Range".
Путь "создать чистый лист,и скопировать в него все значения из другого" попробовал: посылались ошибки, непонятки ... жду Ваш рабочий код.