сортировка по возрастанию или убыванию

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

сортировка по возрастанию или убыванию (Макросы/Sub)

maslenkin

Дата: Среда, 29.05.2019, 11:31 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 63

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Здравствуйте! Помогите настроить макрос, что бы при "вставании" на столбец I6,J6 или K6 нажатием "стрелок" происходила сортировка по ранжиру всей строки, не захватывая столбец А (там порядковый номер и он не должен меняться). Не пойму где ошибка, раньше все работало. Спасибо.
Вроде разобрался, без моих заполненных значений строк B6 - H6 не будет работать макрос

К сообщению приложен файл: 0541407.xlsm (85.6 Kb)

Сообщение отредактировал maslenkin - Среда, 29.05.2019, 12:00

Ответить

_Boroda_

Дата: Среда, 29.05.2019, 12:24 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16718

Репутация: 6505 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Заполните столбец В
Или в макросах перепишите строку
[vba]

Код

ps = Range("B" & Rows.Count).End(xlUp).row

[/vba]на столбец I,J или K вместо В, как у Вас сейчас

К сообщению приложен файл: 0541407_1.xlsm (79.1 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

maslenkin

Дата: Вторник, 06.08.2019, 19:15 | Сообщение № 3

Группа: Пользователи

Ранг: Участник

Сообщений: 63

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

почему как только выставил запрет на изменение формул столбца J (там только через защиту листа, хочю обезопасить себя от случайного изменения формул, данных), то сразу перестал работать макрос сортировки?

К сообщению приложен файл: 9237946.xlsm (80.5 Kb)

Ответить

китин

Дата: Среда, 07.08.2019, 07:53 | Сообщение № 4

Группа: Модераторы

Ранг: Экселист

Сообщений: 7029

Репутация: 1078 ±

Замечаний: 0% ±

Excel 2007;2010;2016

ну дык сначала надо снять защиту.
[vba]

Код

ActiveSheet.Unprotect Password:="ваш пароль"

[/vba]
затем ее поставить
[vba]

Код

ActiveSheet.Protect Password:="ваш пароль"

[/vba]

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

RAN

Дата: Среда, 07.08.2019, 08:24 | Сообщение № 5

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Устанвливать защиту макросом
КАК ЗАЩИТИТЬ ЛИСТ ОТ ПОЛЬЗОВАТЕЛЯ, НО НЕ ОТ МАКРОСА?

Быть или не быть, вот в чем загвоздка!

Ответить

maslenkin

Дата: Среда, 07.08.2019, 10:31 | Сообщение № 6

Группа: Пользователи

Ранг: Участник

Сообщений: 63

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Цитата китин, 07.08.2019 в 07:53, в сообщении № 4 ()

ну дык сначала надо снять защиту.

если я правильно понял, то сделал вот так
[vba]

Код

Sub Сортировка_по_видам_возрастание()
    ActiveSheet.Unprotect Password:="1"
    Dim kl&, ps&
    kl = Selection.Column
    ps = Range("B" & Rows.Count).End(xlUp).row
    Range("B6:AD" & ps).Sort Key1:=Cells(6, kl), Order1:=xlAscending, Header:=xlNo, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
Rows("2:1000").RowHeight = 20
ActiveSheet.Protect Password:="1"
End Sub

[/vba]
Данный код нужно дописать перед каждым исполняемым макросом ?

Ответить

китин

Дата: Среда, 07.08.2019, 10:41 | Сообщение № 7

Группа: Модераторы

Ранг: Экселист

Сообщений: 7029

Репутация: 1078 ±

Замечаний: 0% ±

Excel 2007;2010;2016

в каждом макросе, который работает на защищенном листе

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

сортировка по возрастанию или убыванию (Макросы/Sub)

Страница 1 из 1
1