Скриване на празни редове и автоматично обновяване на филтъра в Excel?

0 одобрения 0 неодобрения
попитан 31 октомври в Excel от ИВАН ученик (35 точки)
Здравейте,някой да ми предложи код за Автоматично скриване на празни редове? Трябва ми решение без макро... Че файла се използва на телефон и телефона не ги разпознава.

Примерно: от A15 до I15 и така до A19 ,I19.

Мерси.

Редовете, които искам да скрия са с формули и се пълнят с данни при определени правила. Искам когато в клетките има стойност, да се показват, а когато са празни, да са скрити, т.е филтъра да се обновява автоматично при промяна на числата. Мерси.

3 коментари

коментиран 2 ноември от ИВАН ученик (35 точки)
Пробвах филтрите но и с тях не крие редовете някакви други идеи ?
Това с филтрите ако заработи ще ми свърши работа.  Стига само като няма отметка на празна клетка да крие реда а ако няма празна клетка да си го показва.
коментиран 5 ноември от vbafreak експерт (203 точки)
Филтрите ще ти свършат перфектна работа в този случай. data -> filter и скриваш всички празни редове.
коментиран преди 6 дни от ИВАН ученик (35 точки)
Там е работата че като се скрият после не се показват....

1 отговор

2 одобрения 0 неодобрения
отговорени 5 ноември от Badan експерт (233 точки)
редактиран преди 5 дни от Badan

Здравей,

За да скриеш празни редове най-лесно и бързо е да използваш вградения филтър в Ексел:

1. Маркираш колоната с прази клетки.

2. От Data таба избираш filter, след което на първия ред ще се появи бутонче за филтър.

3. Натискаш филтър бутона и ще се появи прозорче с параметрите, по които можеш да филтрираш

4. Махаш тикчето от последния параметър (Blanks).

Ъпдейт: за да се покажат отново скритите редове, ако има промяна в данните и клетките вече имат стойности, е необходимо да се обнови филтъра. От Ексел 2010г. нагоре има вграден шорткът за това: CTRL + ALT + L.

6 коментари

коментиран преди 5 дни от ИВАН ученик (35 точки)
Здравей, с 2010 се получава CTRL + ALT + L.
Но няма как да стане за телефона :( За това търся решение за Автоматично да се прави.
А  с по горния код ми изписва някаква грешка.
Но не мога да намеря от къде се качват снимки...
коментиран преди 5 дни от Badan експерт (233 точки)
Каква грешка ти дава? Напиши какво пише точно.
коментиран преди 5 дни от ИВАН ученик (35 точки)
Run Time error '9':
Subscript out of range

Sub Worksheet_Change(ByVal Target As Range)
   Sheets("Sheet1").AutoFilter.ApplyFilter -(това ми го подчертава с жълто)
End Sub
коментиран преди 5 дни от Badan експерт (233 точки)
Предполагам, че не си инициализирал филтъра и Ексел не го разпознава и затова връща грешка. При мен работи, когато има филтър. Сложи филтъра и пробвай пак. Ако ти трябва вариант да не връща грешка, когато няма филтър, сложи някаква проверка в кода. Нещо такова:
If Not (Sheets("Sheet1").AutoFilter Is Nothing) Then
    'Do something
End If
коментиран преди 5 дни от Badan експерт (233 точки)
Върнах ти отговор. Не беше сложил макрото във файла.
Добре дошли в българския форум за Ексел и Майкрософт офис! Тук можете да питате хора със знания и опит, както и да споделите знанията и опита си с другите.
...