Excel - Skrivanje redaka s nultom vrijednosti u višestrukim listovima

Problem

Pomozite mi u izradi makronaredbe u Excelsheetu koja:

Mogu sakriti cijele retke ako vrijednost ćelije ili (raspon vrijednosti) ima nultu vrijednost u više listova ??? Mislim, na primjer, kada otvorim datoteku ili kada kliknem na dno kontrole za pokretanje makronaredbe.

Moj slučaj je:

Imam jednu Excel datoteku koja ima 32 lista za svako osoblje, a svaki list ima tablicu od 3 stupca

 (A, B, C) i 26 redaka (1-26). Stupac A za tekst Stupac B za tekst i Stupac C za vrijednosti

moj zahtjev je skrivanje / otkrivanje cijelog retka / ovisno o vrijednosti u stupcu C i za svaki list od 32 ili pritiskom na naredbu ili promjenom vrijednosti ili bilo čega.

Riješenje

Cilj:

Za filtriranje / skrivanje redaka na cijelom listu za danu vrijednost.

pretpostavke:

1. Položaj stupca je isti na svakom listu

3. Filtar se mora primijeniti na svim listovima

3. Listovi nisu skriveni

4. Svi listovi imaju barem jednu ispunjenu ćeliju

KORACI

1. Pročitajte pretpostavke

2. Izradite sigurnosnu kopiju

3. Pritisnite ALT + F11 i umetnite novi modul

4. Zalijepite kôd i pokrenite ga

KODIRATI:

 Sub HideRows () Dim Sheet kao objekt Dim filterZa varijantu Dim iFilterCol As Integer iFilterCol = 3 'primijeni filtar na 3 col filterFor = InputBox ("Unesite vrijednost koja će se filtrirati", "Filtriraj") za svaki list u listovima Odaberite ako je ActiveSheet.AutoFilterMode stanica. Odaberite Selection.AutoFilter End Ako Cells.Select Ako ActiveSheet.AutoFilterMode = Netočno onda Selection.AutoFilter End Ako Selection.AutoFilter Polja: = iFilterCol, Criteria1: = "" & filterZa, Operator: = xlAnd Sljedeći kraj Sub