Excel - Verberg rijen met nulwaarde in meerdere bladen
Kwestie
Help me alsjeblieft in het maken van een macro in het Excelsheet dat:
Ik kan de volledige rijen verbergen als een celwaarde of (bereik van waarden) een nulwaarde heeft in meerdere bladen ??? Ik bedoel bijvoorbeeld wanneer ik het bestand open of wanneer ik op besturingselement onderaan klik om de macro uit te voeren.
Mijn zaak is:
Ik heb een excelbestand met 32 vellen voor elk personeel en elk werkblad heeft een tabel met 3 kolommen
(A, B, C) en 26 rijen (1-26). Kolom A voor tekst Kolom B voor tekst ook Kolom C voor waarden
mijn verzoek is om de volledige rij / s te verbergen / zichtbaar te maken, afhankelijk van de waarde in kolom C en voor elk blad van de 32 door een opdracht in te drukken of door de waarden of iets anders in te stellen.
Oplossing
Doelstelling:
Om de rijen op alle blad voor een bepaalde waarde te filteren / verbergen.
Veronderstellingen:
1. De locatie van de kolom is hetzelfde op elk vel
3. Filter moet op alle vellen worden toegepast
3. Bladen zijn niet verborgen
4. Voor alle vellen is ten minste één cel gevuld
STAPPEN
1. Lees de veronderstellingen
2. Maak een kopie van de back-up
3. Druk op ALT + F11 en plaats een nieuwe module
4. Plak de code en voer deze uit
CODE:
Sub HideRows () Dim Sheet Als object Dim filterFor As Variant Dim iFilterCol As Integer iFilterCol = 3 'filter toepassen op 3 col filterFor = InputBox ("Voer de waarde in die moet worden uitgefilterd", "Filter uit") Voor elk blad in bladenblad . Selecteer ActiveSheet.AutoFilterMode Then Cells.Select Selection.AutoFilter End If Cells.Select If ActiveSheet.AutoFilterMode = False Then Selection.AutoFilter End If Selection.AutoFilter Field: = iFilterCol, Criteria1: = "" & filterFor, Operator: = xlAnd Next End Sub
Notitie
Bedankt aan rizvisa1 voor deze tip op het forum.