mercredi 25 février 2015
check boxes
Posted on 03:32 by Unknown
Beste collega's,
Ik heb een kolom met data. Daarachter heb ik check boxes geplaatst.
Voor elke check box die wordt aangevinkt zou ik de corresponderende cel willen plakken en knippen op een ander blad.
Die doe ik met VBA. Als er echter meerdere check boxen worden aangeklikt wil ik dat alle cellen meteen verplaatst worden.
Weet iemand hoe die moet?
VBA code hieronder
Sub VerplaatsenData()
If ActiveSheeet.CheckBoxes("CheckBox 1").Value = 1 Then
Range("A1").Select
Selection.Copy Worksheets("Sheet2").Range("A2")
'hoe nu verder voor de andere boxen???
Alvast bedankt mocht iemand dit weten....
Ik heb een kolom met data. Daarachter heb ik check boxes geplaatst.
Voor elke check box die wordt aangevinkt zou ik de corresponderende cel willen plakken en knippen op een ander blad.
Die doe ik met VBA. Als er echter meerdere check boxen worden aangeklikt wil ik dat alle cellen meteen verplaatst worden.
Weet iemand hoe die moet?
VBA code hieronder
Sub VerplaatsenData()
If ActiveSheeet.CheckBoxes("CheckBox 1").Value = 1 Then
Range("A1").Select
Selection.Copy Worksheets("Sheet2").Range("A2")
'hoe nu verder voor de andere boxen???
Alvast bedankt mocht iemand dit weten....
check boxes
Categories: check boxes
Inscription à :
Publier les commentaires (Atom)
0 commentaires:
Enregistrer un commentaire