Ik loop tegen een probleem aan met VBA, waar ik na zoeken op internet nog niet uitkom terwijl het me geen lastig probleem lijkt.
Ik heb een macro opgenomen (een deel staat hieronder) en deze doet het goed voor de sheet die ik als voorbeeld heb gebruikt de sheet "Partij 1" is zoals ook in de code hieronder te zien is.
De macro moet het niet alleen op sheet partij 1 doen maar met een selectie in een cel in de sheet "Nog te leveren" ook in (partij 1, partij 2 etc etc).
Ik wil dus met een cel in de sheet "Nog te leveren" aan kunnen geven in welke sheet de macro moet zijn.
Hoe doe ik dit? Alvast bedankt!
Selection.Copy
Sheets("Partij 1").Select
Range("Q25").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Nog te leveren").Select
Range("D8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Partij 1").Select
Range("Q26").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Nog te leveren").Select
Range("F8").Select
Application.CutCopyMode = False
Selection.Copy
Ik heb een macro opgenomen (een deel staat hieronder) en deze doet het goed voor de sheet die ik als voorbeeld heb gebruikt de sheet "Partij 1" is zoals ook in de code hieronder te zien is.
De macro moet het niet alleen op sheet partij 1 doen maar met een selectie in een cel in de sheet "Nog te leveren" ook in (partij 1, partij 2 etc etc).
Ik wil dus met een cel in de sheet "Nog te leveren" aan kunnen geven in welke sheet de macro moet zijn.
Hoe doe ik dit? Alvast bedankt!
Selection.Copy
Sheets("Partij 1").Select
Range("Q25").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Nog te leveren").Select
Range("D8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Partij 1").Select
Range("Q26").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Nog te leveren").Select
Range("F8").Select
Application.CutCopyMode = False
Selection.Copy