Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » fmind
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Исключение при SpecialCells(xlVisible)
 
#
15.11.2015 14:15:31
Цитата
Казанский написал:
А вообще, зависит от того, что является объектом перед точкой.
Перед точкой ActiveSheet. Ваш вариант более правильный и функциональный )) Спасибо за наводку!)  А7 - строка под фильтром ) Не судите строго, у меня было так:
Код
        With ActiveSheet
          With .Range(.Range("A7"), .Range("A5000").End(xlUp))
    
          On Error GoTo GoOn:
          Set rw = .Offset(0).Resize(.Cells.Count).SpecialCells(xlVisible)                
              . . .              
              rw(1, CellFill) = ConsolidateData(I).Refill
              . . .
            End With
        End With
 
Перейти    
Исключение при SpecialCells(xlVisible)
 
#
15.11.2015 13:50:38
Цитата
Kuzmich написал: Используйте On Error Resume Next
тогда выполнение пойдёт дальше за этой строкой, а этого не должно быть.
Цитата
МВТ написал: 2. Что мешает делать проверку
Вы абсолютно правы )) Сам не додумался до очевидного =\ Спасибо!
Цитата
МВТ написал: 1. ...зачем .Offset(0)?
Да, offset тут излишен. Думал что без оффсет я не получу объект range. Хотя с ним же и работаю. Моя глупость )
 
Перейти    
Исключение при SpecialCells(xlVisible)
 
#
15.11.2015 08:25:32
Доброго времени суток.
Использую следующий код
Set rw = .Offset(0).Resize(.Cells.Count).SpecialCells(xlVisible)
До этого устанавливаю фильтр. Если строки есть - то всё хорошо. Но если фильтр ничего не нашел (нет записей удовлетворяющих условиям), тогда выходит ошибка. Можно как-то это обойти без использования исключения ? Почему эта строка не может просто вернуть пустой Range, у которого можно просто проверить кол-во строк и, если равно нулю, что-то сделать и продолжить цикл дальше?
Спасибо
 
Перейти    
Выполнить макрос в другой книге
 
#
06.10.2015 08:13:52
Цитата
Сергей написал:
попробуйте добавить имя помогающего Апострофф, тут
Application.Run "'транспорт - старый месяц.xlsm'!FlushFilters(1)"
Спасибо большое! Помогло!
 
Перейти    
Выполнить макрос в другой книге
 
#
06.10.2015 07:09:37
фаил есть 100%
Вдобавок первая стрчка кода работает, сам фаил открывается. А на второй стрчоки уже такая ошибка.
 
Перейти    
Выполнить макрос в другой книге
 
#
06.10.2015 06:43:06
доброго времени суток.
по нажатии кнопки должна октрыться книга и в ней нужно выполнить макрос.
Код кнопки:
Скрытый текст
Получаю ошибку что такой фаил не найден (прикреплен).
Сама процедура лежит в Module1 целевого файла.
Подскажите что не так.
 
Перейти    
Страницы: 1
Наверх