Добрый день! нужна Ваша помощь!
Ситуация следующая :
есть 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]