сортировка таблицы

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » сортировка таблицы (Макросы/Sub)

сортировка таблицы

Timsan

Дата: Среда, 30.09.2015, 17:01 | Сообщение № 1

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

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

Сообщений: 20

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

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

Excel 2003

Добрый день! нужна Ваша помощь!
Ситуация следующая :
есть 1 файл (приложил) записал макрос для сортировки столбца B (Makro1) макрос работает, сортируются необходимые данные в таблице "по столбцу B". в столбце B есть 0 нулевые значение из за этого после сортировки данные оказываются в самом низу на последней строчки, мне нужно чтобы при сортировки данные оставались вверху на том же месте и при открытии файла макрос запускался автоматически

Очень жду Вашей помощи!

[vba]

Код

Sub Makro1()

     Range("B13:B700").Select
     ActiveWorkbook.Worksheets("Stückliste").Sort.SortFields.Clear
     ActiveWorkbook.Worksheets("Stückliste").Sort.SortFields.Add Key:=Range("B13") _
         , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
     With ActiveWorkbook.Worksheets("Stückliste").Sort
         .SetRange Range("A13:I700")
         .Header = xlNo
         .MatchCase = False
         .Orientation = xlTopToBottom
         .SortMethod = xlPinYin
         .Apply
     End With
End Sub

[/vba]