Сортировка данных в EXCEL в расшаренном файле

Автор JTwitty, 24.04.2012, 11:39

« назад - далее »

JTwitty

Добрый день.
Помогите, пожалуйста
Есть несколько расшаренных файлов, пользователей от 10 и больше
Как я поняла, когда несколько человек сортируют одновременно данные (по разным столбцам)  и вносят в нужные им колонки изменения, то при сохранении информация отображается некорректно.
Как можно обойти эту проблему???

boa

поставить на запуск функцию, которая будет приводить в порядок ваши таблицы ;)
Пример:

Private Sub Workbook_Open()
       For Each ws In ThisWorkbook.Worksheets
           With ThisWorkbook.Worksheets(ws.Name)
                ObrabotkaLista
           End With
       Next
End Sub

Private Sub ObrabotkaLista()
With ThisWorkbook.ActiveSheet
   ND = .Range("Начало_диапазона").Row ' от...
   KD = .Range("Конец_диапазона").Row ' до...
   On Error Resume Next
   .ShowAllData
   iRow = .Cells(Rows.Count, 1).End(xlUp).Row
   iCol = .Cells(1, 1).End(xlToRight).Column                                         'найдем последнюю колонку в таблице с результирующими данными
   .Range(.Cells(1, 1), .Cells(iRow, iCol)).AutoFilter Field:=1                'Установка [url][url=http://msexcel.ru/content/view/27/2/]_автофильтр_[/url][/url]
   .Outline.ShowLevels RowLevels:=1                                                  'Скрытие уровней

End With
End Sub
Ничто не обходится нам так дешево и не ценится так дорого, как вежливость...  Мигель Сервантес де Сааведра