'Excel-VBA/Rijen verbergen.vba' toevoegen

Excel-VBA/Rijen verbergen.vba

@@ -0,0 +1,17 @@
+'Rijen met een "1" in kolom A verbergen
+
+    Sub verbergenrijen()
+            Dim X As Variant
+            Rows("13:112").Select
+    Selection.EntireRow.Hidden = False
+      Dim c As Range
+       For Each c In Range("A13:A112").Cells
+           If c.Value = "1" Then
+               c.EntireRow.Hidden = True
+           End If
+       Next c
+
+    Sheets("Samenvatting").Activate
+    MsgBox ("De verborgen rijen zijn aangepast")
+
+    End Sub