Ik heb een macro opgenomen, werkt goed.
Echter diezelfde macro moet, steeds iets gewijzigd, op andere plekken in de sheets voorkomen.
Variabelen: (herhalen zich door de macro heen)
Hoe is de macro zo aan te passen, dat door gebruik van variabelen, de macro op alle plekken inzetbaar wordt?
Echter diezelfde macro moet, steeds iets gewijzigd, op andere plekken in de sheets voorkomen.
Variabelen: (herhalen zich door de macro heen)
- Het stuk "Groep 1" moet variabel zijn. (of groep 2 óf groep 3).
- De "B" moet variabel zijn, de nummers blijven steeds hetzelfde.
Hoe is de macro zo aan te passen, dat door gebruik van variabelen, de macro op alle plekken inzetbaar wordt?
Code:
Sub Kopieer_data()
'
' Kopieer_data Macro
'
' Maandag
Sheets("Groep 1").Select 'het stuk "Groep 1" moet variabel zijn. (of groep 2 óf groep 3)
Range("B4:B12").Select 'De "B" moet variabel zijn, de nummers blijven steeds hetzelfde
Application.CutCopyMode = False
Selection.Copy
Sheets("Leerling").Select
Range("C5").Select
ActiveSheet.Paste
' Dinsdag
Sheets("Groep 1").Select
Range("B15:B23").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Leerling").Select
Range("D5").Select
ActiveSheet.Paste
' Woensdag
Sheets("Groep 1").Select
Range("B26:B34").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Leerling").Select
Range("E5").Select
ActiveSheet.Paste
' Donderdag
Sheets("Groep 1").Select
Range("B37:B45").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Leerling").Select
Range("F5").Select
ActiveSheet.Paste
' Vrijdag
Sheets("Groep 1").Select
ActiveWindow.SmallScroll Down:=12
Range("B48:B56").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Leerling").Select
Range("G5").Select
ActiveSheet.Paste
' Naam plaatsen
Sheets("Groep 1").Select
Range("B47").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Leerling").Select
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub