From e5c2cd726c831a15a3ad91454200da237eb0449d Mon Sep 17 00:00:00 2001
From: Mathijs Lermer <mathijs@lermer.nl>
Date: Wed, 3 Mar 2021 13:47:38 +0100
Subject: [PATCH] 'Excel-VBA/Rijen verbergen.vba' toevoegen

---
 Excel-VBA/Rijen verbergen.vba | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 create mode 100644 Excel-VBA/Rijen verbergen.vba

diff --git a/Excel-VBA/Rijen verbergen.vba b/Excel-VBA/Rijen verbergen.vba
new file mode 100644
index 0000000..05dd0b2
--- /dev/null
+++ b/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
\ No newline at end of file