Выдает ошибку

[manula]

Здравствуйте уважаемые форумчане не могли бы все мне помочь в устранении следующей ошибки, вот листинг макроса:

PHP код:

ThisWorkbook.Worksheets("Архив").Select
Range("A2:H2").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Sort Key1:=Range("D2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal 


Ошибка:Run-time error '1004': Application-defined or object-defined error.
Помогите пожалуйста, в чем проблема.

[manula]

Есть лист "Инвентарь" там кнопка, при нажатии на кнопку вызывается этот макрос и вылетает ошибка. Просто при нажатии на кнопку я должен отсортировать столбец D2 по возрастанию, ну чтобы информация отсортировалась не только в этом столбце а полностью, а то получится что массив данных останется без изменения а сам столбец отсортируется.

[DiemonStar]

Я бы не исключал, что у Вас есть объединенные ячейки в выбранном диапазоне. Но без файла утверждать не берусь.

но вот такой вариант будет работать быстрее:

Application.CutCopyMode = False
[Архив!A1].CurrentRegion.Sort Key1:=[D2], Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

[manula]

Нет объединенных ячеек точно нет, сам массив выгружаемый, всего 225 строк.
А может как то влиять что столбцы разной длины?

[DiemonStar]

Сообщение от manula

Нет объединенных ячеек точно нет, сам массив выгружаемый, всего 225 строк.
А может как то влиять что столбцы разной длины?

без исходного файла вам никто не скажет из-за чего возникает ошибка. можно только догадываться.

[manula]

Сообщение от DiemonStar

без исходного файла вам никто не скажет из-за чего возникает ошибка. можно только догадываться.

В плане исходного файла я его формирую на лист "Архив" вот как он выглядит:

211 01 1010 430100089       Методичка          4.000   867.03   0512
211 01 1010 504114801       КЛАВИАТУРА         2.000   0.00     0311
211 01 1010 504115336       МОНИТОР LG520SI    2.000   0.00     0311
211 01 1010 756985031111    ЦИФРОВАЯ КАМЕРА    1.000   0.00	1210

[manula]

Вот, мне нужно отсортировать 4 столбец.

[Hugo121]

Код вероятно в модуле листа?
Хотя сперва я думал, что просто нет листа "Архив"

[manula]

Сообщение от Hugo121

Код вероятно в модуле листа?
Хотя сперва я думал, что просто нет листа "Архив"

Да код в модуле, но я его вставил на лист "Инвентарь" и появилась ошибка, если же просто использую макрос то все работает, а можно его как то подредактировать чтоб он заработал на листе "Инвентарь"

[DiemonStar]

Сообщение от Hugo121

Код вероятно в модуле листа?
Хотя сперва я думал, что просто нет листа "Архив"

Опять-же: если код в модуле, то ссылка на столбец сортировки неправильная. надо использовать такой вариант:

Application.CutCopyMode = False
[Архив!A1].CurrentRegion.Sort Key1:=[Архив!D2], Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

или, в оригинальной трактовке:

ThisWorkbook.Worksheets("Архив").Select 
Range("A2:H2").Select 
Range(Selection, Selection.End(xlDown)).Select 
Application.CutCopyMode = False 
Selection.Sort Key1:=Worksheets("Архив").Range("D2"), Order1:=xlAscending, Header:=xlGuess, _ 
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ 
DataOption1:=xlSortNormal