Excel - Voorwaardelijke rijen verbergen in meerdere bladen

Kwestie

Ik heb één Excel-bestand met meerdere bladen en allemaal met dezelfde kolommen en rijen. Ik moet specifieke rijen verbergen in elk blad (dezelfde rijnummers voor alle bladen) als de waarde nul is in een specifieke cel.

Dus, hoe kan ik het doen in VB en automatisch bijgewerkt bij het wijzigen van de waarde in de vorige opgegeven cel.

dat wil zeggen: ik heb 10 bladen voor tien werknemers en op elk blad heb ik de volgende gegevens:

 A1 = Werknemernaam A2 = Leeftijd, A4 = Salaris, B4 = 4000 (alle bedragen (waarden) verschillen per blad) A5 = Inhoudingen, B5 = 500 A6 = Verzekeringen, B6 = 1000 A8 = Netto salaris, B8 = 2500 A10 = Betaald door cheque A11 = Betaald door overschrijving, B11 = 2500 A13 = totaal, B13 = 2500

Mijn vereiste is om elke rij met nul in kolom B in alle 10 de bladen te verbergen. Uiteraard is de waarde voor alle vellen afkomstig van één hoofdblad, dus als de waarde in de hoofdpagina's is gewijzigd, wordt deze ook in de 10 vellen op elke correspondent gewijzigd.

Opmerking: ik hoef de waarden niet te filteren.

In het kort wil ik een macro schrijven om alle rijen (opgegeven) met een nul in de B-kolom te verbergen en om te worden toegepast op de 10 bladen met dezelfde rijen en kolommen.

Oplossing

Open de VBE
Klik op uw hoofdpagina
Plak deze code:

 Particulier subwerkblad_Wijziging (ByVal-doel als bereik) Dim b Verberg Boolean als doel. Kolom 2 en vervolgens sub b verlaten = Waar als (CStr (doel) "0") Vervolgens bHide = False voor elk blad in bladen indien Sheet.Name = ActiveSheet. Name Then GoTo Next_Sheet Sheets (Sheet.Name). Rows (Target.Row). Hidden = bHide Next_Sheet: Next End Sub