Excel - Bedingtes Ausblenden von Zeilen in mehreren Blättern

Problem

Ich habe eine Excel-Datei mit mehreren Blättern und alle mit den gleichen Spalten und Zeilen. Ich muss bestimmte Zeilen in jedem Blatt ausblenden (die gleichen Zeilennummern für alle Blätter), wenn der Wert in einer bestimmten Zelle Null ist.

Also, wie kann ich es in VB tun und automatisch beim Ändern des Werts in der zuvor angegebenen Zelle aktualisiert.

Dh: Ich habe 10 Blätter für zehn Angestellte und in jedem Blatt habe ich die folgenden Daten:

 A1 = Name des Mitarbeiters A2 = Alter, A4 = Gehalt, B4 = 4000 (alle Beträge (Werte) unterscheiden sich in den einzelnen Blättern) A5 = Abzüge, B5 = 500 A6 = Versicherung, B6 = 1000 A8 = Nettogehalt, B8 = 2500 A10 = Per Scheck bezahlt A11 = Per Überweisung bezahlt, B11 = 2500 A13 = Insgesamt, B13 = 2500

Meine Anforderung ist es, jede Zeile mit Null in Spalte B in allen 10 Blättern auszublenden. Natürlich wird der Wert für alle Blätter von einem Masterblatt übernommen. Wenn sich der Wert in den Masterblättern ändert, wird er auch in den 10 Blättern für jeden Korrespondenten geändert.

Hinweis: Ich muss die Werte nicht filtern.

Kurz gesagt, ich möchte ein Makro schreiben, um alle Zeilen (angegeben) mit einer Null in der Spalte B auszublenden und auf die 10 Blätter mit denselben Zeilen und Spalten anzuwenden.

Lösung

Öffnen Sie die VBE
Klicken Sie auf Ihr Masterblatt
Füge diesen Code ein:

 Private Sub Worksheet_Change (ByVal-Ziel als Bereich) Dim bHide As Boolean If Target.Column 2 Dann Exit Sub bHide = True If (CStr (Ziel) "0") Dann bHide = False Für jedes Blatt in Sheets If Sheet.Name = ActiveSheet. Name dann Gehe zu Nächste_Blatt-Blätter (Blatt.Name). Zeilen (Ziel.Zeile). Versteckt = bNächste_Blatt: Nächstes End-Unter