'Excel-VBA/Paginas copieren.vba' toevoegen

2021-03-03 13:43:45 +01:00 · 2021-03-03 13:43:45 +01:00 · bcd8e3c5d0
parent 9e141a4aad
commit bcd8e3c5d0
1 changed files with 17 additions and 0 deletions
--- a/Excel-VBA/Paginas
+++ b/Excel-VBA/Paginas
@ -0,0 +1,17 @@
+Sub Copysheet()
+    Dim i As Integer
+    Dim p As Integer
+  On Error GoTo out
+    i = InputBox("Hoeveel?", "Making Copies")
+        Application.ScreenUpdating = False
+            p = 0
+    Do
+        ActiveSheet.Copy After:=Sheets(Sheets.Count)
+            p = p + 1
+        Loop Until p = i
+    Application.ScreenUpdating = True
+        Exit Sub
+out:
+    MsgBox "geanuleerd"
+        Application.ScreenUpdating = True
+End Sub