Перенести в новую книгу отмеченые строки

[Rom1k06]

Есть файлик со списком данных.
Есть макрос который отмечает галочкой строку.
Нужно создать новый лист,
и переместить туда все отмеченные галочкой строки.

[SAS888]

Посмотрите вложение. Запустите макрос "Main".

[SAS888]

А вот более красивое решение Вашей задачи. Без цикла перебора строк и без поиска.
Запустите макрос "Main".

[дмидми]

SAS888, Вам привет от Билла Гейтса!

    Set x = Columns("A").ColumnDifferences(Comparison:=[A4])

должен, насколько я понимаю, выделить все ячейки в колонке A, не совпадающие по значению с ячейкой A4.

Но выделение почему-то заканчивается на строке 61812 (это нижний край UsedRange).

P.S. Всё же я бы предпочёл (насколько я понял, ячейки колонки A используются как логические переменные) что-то вроде

    Set x = Cells(Rows.Count, 2).End(xlUp)
    If x.Row > 6 Then
        Set x = Range(Cells(6, 2), x).Offset(0, -1). _
             SpecialCells(xlCellTypeBlanks)
        If Not x Is Nothing Then x.EntireRow.Delete
    End If

P.P.S. Поскольку обрабатывается событие Worksheet_SelectionChange, я бы применил в Main Application.EnableEvents, хоть в обработчике события и вставлена проверка Target.Cells.Count. Кашу маслом...

Ну и, надеюсь, Rom1k06 не забудет восстановить значения Application.ScreenUpdating и Application.DisplayAlerts.

[SAS888]

1. Метод ColumnDifferences работает в диапазоне UsedRange. Вы, наверное, обратили внимание, что файл автора очень много "весит"? 61812 это и есть последняя строка используемого диапазона. В следубщем файле исправлено (обратите внимание на его размер).
2. Изменил код обработки события Worksheet_SelectionChange. Упростил и убрал обработку Double_Click.
3. По поводу добавления Application.EnableEvents - полностью согласен (добавлено).
4. Что по поводу Application.ScreenUpdating и Application.DisplayAlerts, то значение True этих функций восстанавливается по умолчанию после окончания выполнения процедуры (так же как и On Error GoTo 0). В отличии от них, Application.EnableEvents остается как есть.

P.S. Просто изначально я не стал вмешиваться в то, что автор уже наработал.
Посмотрите вложение. Считаю, что вполне приемлемо.

[дмидми]

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

1. Метод ColumnDifferences работает в диапазоне UsedRange.

Это документировано? В хэлпе, во всяком случае, такого указания нет.

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

4. Что по поводу Application.ScreenUpdating и Application.DisplayAlerts, то значение True этих функций восстанавливается по умолчанию после окончания выполнения процедуры (так же как и On Error GoTo 0). В отличии от них, Application.EnableEvents остается как есть.

DisplayAlerts - да:

Сообщение от Excel Help

If you set this property to False, Micorosoft Excel sets this property to True when the code is finished, unless you are running cross process code

Но ScreenUpdating?

Сообщение от Excel Help

Remember to set the ScreenUpdating property back to True when your macro ends.

О восстановлении/сохранении EnableEvents в хэлпе ничего не сказано.

P.S. Я всегда исхожу из того, что "лучше перебдеть...", и по возможности явно восстанавливаю измененные настройки.

P.P.S. А Worksheet_BeforeDoubleClick-то за что убили?

[Rom1k06]

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

Только мне неочень понятно что делает эта функция?
Target = IIf(Target = "", "a", "") - я так пологаю что она при нажатии
если пустая то "a" если "a" уже есть то пустая?..

Я понял это так .

[SAS888]

Rom1k06
Абсолютно верно.
дмидми

А Worksheet_BeforeDoubleClick-то за что убили?

А зачем он нужен? Выделением ячейки в столбце "A" "птичка" ставится / убирается. Достаточно.
Скорее всего автор ввел обработку этого события для того, что если мы выделяем ячейку (ставим "птичку"), то как потом ее убрать? Ведь ячейка остается выделена. В измененном мной коде добавлен выбор ячейки рядом. Это позволяет повторным выделением снять "птичку".

[дмидми]

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

Достаточно.

А вот "достаточно" не бывает никогда!

Что (навскидку) я добавил бы, кабы не лень:
1) отсутствие реакции на вход в 1-ю колонку (и перемещение в ней) при помощи не мышки, а клавиатуры;
2) установку/снятие птицы по нажатию клавиши пробела (стандартная возможность в чекбоксах);


И обязательно убрал бы список из первых двух (скрытых) строк на другой лист - а лучше задавал бы его в "Проверке..." непосредственно, а не ссылкой на диапазон.
И поименовал бы шапку таблицы, чтобы не использовать в коде константы номеров строк листа.

[Rom1k06]

Если не трудно то как убрать список и прописать его непосредственно в проверке.
Я в проверке делаю список и источник.
А как без источника?
С этия согласен что будет удобнее.