есть справочник телефонов по городам, который периодически изменяется (добавляются удаляются абоненты) -нужно отсортировать абонентов по именам в пределах одного города. города отмечены символом "*" для другого макроса, но их я тоже пытаюсь использовать...текст отмеченный плюсом НЕ должен сортироваться в файле мое "творение"...если можно то поднимите его с колен...
есть справочник телефонов по городам, который периодически изменяется (добавляются удаляются абоненты) -нужно отсортировать абонентов по именам в пределах одного города. города отмечены символом "*" для другого макроса, но их я тоже пытаюсь использовать...текст отмеченный плюсом НЕ должен сортироваться в файле мое "творение"...если можно то поднимите его с колен...luny
Sub Сорт() Dim rng As Range With Intersect(Intersect(ActiveSheet.UsedRange, [C:C]).SpecialCells(4).EntireRow, [A:B]) For Each rng In .Areas rng.sort rng(1, 2), xlAscending Next End With MsgBox "отсортировано" End Sub
[/vba]
[vba]
Код
Sub Сорт() Dim rng As Range With Intersect(Intersect(ActiveSheet.UsedRange, [C:C]).SpecialCells(4).EntireRow, [A:B]) For Each rng In .Areas rng.sort rng(1, 2), xlAscending Next End With MsgBox "отсортировано" End Sub
Sub Сорт() Dim rng As Диапазон С Пересечение(Пересечение(ВсеЯчейкиЛистаСДанными, [C:C]).ПустыеЯчейки.ВсяСтрока, [A:B]) Для Каждого rng В .Области rng.Сортировать rng(1, 2), xlПоВозрастанию Next Конец С MsgBox "отсортировано" End Sub
[/vba] luny, так понятнее?
[vba]
Код
Sub Сорт() Dim rng As Диапазон С Пересечение(Пересечение(ВсеЯчейкиЛистаСДанными, [C:C]).ПустыеЯчейки.ВсяСтрока, [A:B]) Для Каждого rng В .Области rng.Сортировать rng(1, 2), xlПоВозрастанию Next Конец С MsgBox "отсортировано" End Sub