serghei2002
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Подскажите плиз почему, выполняя код макроса в первые три строки выполняет нормально, а на Worksheets("Лист2").Range("J6").Select глохнет. Worksheets("Лист1").Range("J6").Select Selection.Sort Key1:="R6C10", Order1:=xlDescending, Type:=xlSortValues, OrderCustom:=1, Orientation:=xlTopToBottom Worksheets("Лист2").Range("J6").Select Selection.Sort Key1:="R6C10", Order1:=xlDescending, Type:=xlSortValues, OrderCustom:=1, Orientation:=xlTopToBottom А в таком виде работает без нареканий Worksheets("Лист1").Range("J6").Select Selection.Sort Key1:="R6C10", Order1:=xlDescending, Type:=xlSortValues, OrderCustom:=1, Orientation:=xlTopToBottom Worksheets("Лист2").Select Range("J6").Select Selection.Sort Key1:="R6C10", Order1:=xlDescending, Type:=xlSortValues, OrderCustom:=1, Orientation:=xlTopToBottom Добавлено: Люди, подскажите, плиз есть ли еще на форуме еще какие-нибудь темы по VBA для Excel. Темы, которые нашел, давно паутиной заросли от "частой" посещаемости. |