Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Команда не применима для перекрывающихся диапазонов, Удаление отфильтрованных строк работает только при предварительном отменении объединения ячеек ВРУЧНУЮ
 
Всем спасибо. вопрос решился: были сдвинуты некоторые столбцы и программа определяла их как скрытые, видать.
Изменено: volh1 - 10.07.2024 18:52:13
Команда не применима для перекрывающихся диапазонов, Удаление отфильтрованных строк работает только при предварительном отменении объединения ячеек ВРУЧНУЮ
 
Да, спасибо, но это работает долго, криво, нерационально совсем. Не лучше ли как-то убрать перекрывающиеся диапазоны ?
Команда не применима для перекрывающихся диапазонов, Удаление отфильтрованных строк работает только при предварительном отменении объединения ячеек ВРУЧНУЮ
 
Простите, а зачем так сложно и долго, перебирать каждую строку ? Нужно просто удалить уже отфильтрованные строки и все, без подпрограмм. Там лишь нужно решить вопрос с отменой объединения ячеек. Вручную работает на "ура", а VBA почему-то не делает так, как сам же макрорекодер предлагает.
Изменено: volh1 - 09.07.2024 16:06:08
Команда не применима для перекрывающихся диапазонов, Удаление отфильтрованных строк работает только при предварительном отменении объединения ячеек ВРУЧНУЮ
 
Погодите. Вы удалили скрытые фильтром строки. А удалить нужно отфильтрованные, то есть оставшиеся.
Мой макрос хорошо работал, пока во входящем файле не появились какие-то перекрывающиеся диапазоны. И если вручную в столбце убрать "объединение", то он снова хорошо и быстро работает.
Не пойму, что за перекрывающиеся диапазоны такие, что их не видно.
Изменено: volh1 - 09.07.2024 15:58:59
Команда не применима для перекрывающихся диапазонов, Удаление отфильтрованных строк работает только при предварительном отменении объединения ячеек ВРУЧНУЮ
 
Цитата
написал:
Это имело бы смысл, если бы справа от D:G были бы какие-то данные.
Они есть. Я удаляю ненужные столбцы. А кусок файла, который наконец-то вычленил, где макрос не работает, приложил выше.
Команда не применима для перекрывающихся диапазонов, Удаление отфильтрованных строк работает только при предварительном отменении объединения ячеек ВРУЧНУЮ
 
Извиняюсь. Никогда не присоединял раньше макрос к другой книге. Они у меня все в Personal.
Сейчас получилось всё же найти кусок файла, где макрос не хочет работать. Вот он. С макросом.
Команда не применима для перекрывающихся диапазонов, Удаление отфильтрованных строк работает только при предварительном отменении объединения ячеек ВРУЧНУЮ
 
Извините. Ищу кусок проблемного файла, где не работает макрос.
Изменено: volh1 - 09.07.2024 14:42:42
Команда не применима для перекрывающихся диапазонов, Удаление отфильтрованных строк работает только при предварительном отменении объединения ячеек ВРУЧНУЮ
 
Проблемный файл
Изменено: volh1 - 09.07.2024 13:41:14
Команда не применима для перекрывающихся диапазонов, Удаление отфильтрованных строк работает только при предварительном отменении объединения ячеек ВРУЧНУЮ
 
Здравствуйте !
Подскажите, пожалуйста, не могу никак разобраться в этой магии ...
Есть таблица.
Макрос останавливается на удалении отфильтрованных строк по значению "Да" в одном столбце, выдавая сообщение "Команда не применима для перекрывающихся диапазонов". Объединённых ячеек в разделе ленты "Выравнивание" нет (ведь если бы были, то была бы активна строка "Объединить ... )
Если перед запуском макроса вручную "отменяю объединение ячеек" в столбце, то макрос работает.
Если прописываю в макросе Columns("R:R").UnMerge  (на тот момент колонка идёт под буквой R) в начале макроса, или Columns("D:D").UnMerge перед непосредственной фильтрацией столбца — то макрос срабатывает только ОДИН ПЕРВЫЙ раз. Последующие разы удалять отфильтрованные строки не хочет.
Как только вручную перед работой макроса отменяю "объединение ячеек" в столбце — макрос работает.

Что неправильно ? Как так может быть ?

Код
    .................

    Range("D3").AutoFilter Field:=4, Criteria1:="Да" ' Показывает строки в колонке 4, где есть "Да" 
    ActiveSheet.AutoFilter.Range.Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.Delete ' Удаляет эти строки, начиная со второй строки
    
    .............
Изменено: volh1 - 09.07.2024 12:40:54
Пропали пункты в контекстном меню VBA Project, При попытке удалить модуль — нет соответствующего пункта "удалить"
 
Вот уж ..... Спасибо огромное ! Эта кнопка сбрасывает какие-то настройки или что ?
Пропали пункты в контекстном меню VBA Project, При попытке удалить модуль — нет соответствующего пункта "удалить"
 
Здравствуйте !
Подскажите, пожалуйста, как вернуть пункт "удалить модуль". В контекстном меню модуля он, и ещё пункт "распечатать" каким-то образом исчезли .... Может что-то нажал как-то ... Перерыл всё, ничего не могу найти , ни в инете, ни в настройках экселя.
Сносить эксель и устанавливать заново ?  
Страницы: 1
Наверх