Code: Select all
book_otchet.workSheets(1).Range("A" id.row ":F" end).Sort(book_otchet.workSheets(1).Columns(component.column),2) - is work, by value
book_otchet.workSheets(1).Range("A" id.row ":F" end).Sort(book_otchet.workSheets(1).Columns(numbs.column),2).SortOnValue.Color := "11389944" - is not work, by color