2 ошибки в макросе, в чем причина?

[robbe]

Здравствуйте, уважаемые программисты.
Помогите пжлста разобраться, почему не работает макрос.
Две проблемы в макросе «База2» (он смотрит на лист 1, сравнивает значения в последнем столбце со значением в предпоследнем и если оно больше чем заданное значение, выводит в один список, если нет – в другой):
1. Постоянно ругается на строку If chN > [J1] / 100 Or chN = [J1] / 100 Then, что-то не так с типом данных.
2. Не могу понять, почему не работает сортировка. Хочу отсортировать данные для диапазона столбцов I-L по столбцу L по возрастанию, и отдельно для диапазона столбцов N-Q по столбцу Q по возрастанию…
Макрос «База1» делает примерно то же самое, но там все ок.
Спасибо.

[Vasuha]

[J1] - берете не с того листа, как понимаю нужно брать его со второго. Вроде этого : Sheets(2).[J1]

[Maxx]

1. Постоянно ругается на строку If chN > [J1] / 100 Or chN = [J1] / 100 Then, что-то не так с типом данных

Замените
If chN > [J1] / 100 Or chN = [J1] / 100 Then
на
If chN >= sb.Cells(1, 10) / 100 Then
(у Вас данные берутся с листа wb, а там в J1 ничего нет

По второму вопросу не могу ничего внятного подсказать, так как сортировкой не пользовался

[robbe]

)) и правда... Спасибо. Сама я уже что только не делала. И как я листы не заметила.
А с сортировкой кто-нибудь может помочь? Просто у меня в макросе База1 тоже есть сортировка по двум значениям. И она прекрасно работает. А для макроса "База2" - нет. Как так может быть?

[robbe]

получилось сделать так:

    sb.Range("I5:L3000").Select
    Selection.Sort Key1:=Range("L5"), Order1:=xlAscending
    
    sb.Range("N5:Q3000").Select
    Selection.Sort Key1:=Range("Q5"), Order1:=xlAscending