Решил одну свою задачку и все вроде работает, информация собирается не в ручную несколько часов, а за минуту ... а зная как макросы быстро работают минута это долго =) Есть хорошо работающий код. который удаляет строки если в 6-ом столбце дата меньше указанного в ячейке даты (на другом листе) только там где заполнены даты (добавил условие >0). [vba]
Код
Sub mmm() Dim sh As Worksheet, i As Long Set sh = Sheets("из КСС (в периоде)") Set sh2 = Sheets("Отчет") For i = sh.Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1 If sh.Cells(i, 6) < sh2.[N2] And sh.Cells(i, 6) > 0 Then sh.Cells(i, 6).EntireRow.Delete (xlShiftUp) Next i
End Sub
[/vba] Таблицу из 100 строк (в продуктиве больше 8000) отрабатывает минуту. Что в этом коде может быть не так что он мучает таблицу целую минуту?, но делает как нужно
Добрый вечер, всем участникам форума.
Решил одну свою задачку и все вроде работает, информация собирается не в ручную несколько часов, а за минуту ... а зная как макросы быстро работают минута это долго =) Есть хорошо работающий код. который удаляет строки если в 6-ом столбце дата меньше указанного в ячейке даты (на другом листе) только там где заполнены даты (добавил условие >0). [vba]
Код
Sub mmm() Dim sh As Worksheet, i As Long Set sh = Sheets("из КСС (в периоде)") Set sh2 = Sheets("Отчет") For i = sh.Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1 If sh.Cells(i, 6) < sh2.[N2] And sh.Cells(i, 6) > 0 Then sh.Cells(i, 6).EntireRow.Delete (xlShiftUp) Next i
End Sub
[/vba] Таблицу из 100 строк (в продуктиве больше 8000) отрабатывает минуту. Что в этом коде может быть не так что он мучает таблицу целую минуту?, но делает как нужноAnis625
Была у нас как-то тема по оптимизации кода макроса по скрытию строк, там даже есть сравнение разных вариантов по времени. Посмотрите, возможно что-то подойдёт, если заменить .Hidden = True на .Delete
Была у нас как-то тема по оптимизации кода макроса по скрытию строк, там даже есть сравнение разных вариантов по времени. Посмотрите, возможно что-то подойдёт, если заменить .Hidden = True на .DeletePelena
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Pelena, Не получилось разобраться в кодах =( НО увидел полезную штуку откл/вкл пересчет формул в своем коде и все бодро отработало =) спасибо за наводку (не "На Водку" )
Pelena, Не получилось разобраться в кодах =( НО увидел полезную штуку откл/вкл пересчет формул в своем коде и все бодро отработало =) спасибо за наводку (не "На Водку" )Anis625
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
)
