Automatisch uitvoeren code VBA

Status
Niet open voor verdere reacties.

Bigbrains

Gebruiker
Lid geworden
27 mei 2009
Berichten
57
Hallo Allemaal,

Ik heb een vraagje hoop dat een van jullie mij er mee kan helpen.

ik heb onderstaande code in VBA geplaatst, werkt op zich prima. Alleen moet ik na een verandering in een van de cellen in het bereik, op een opdrachtknop die ik in het bestand heb toegevoegd drukken, anders worden de wijzigingen niet meegenomen. De vraag nu, hoe kan ik er voor zorgen dat macro automatisch wordt uitgevoerd.?

Ik ben jullie bij voorbaat zeer erkentelijk:thumb:

Private Sub CommandButton1_Click()
Dim c As Range
For Each c In Range("AC11:AC130")
Select Case c.Value
Case Is = 1
c.Interior.ColorIndex = 20
Case Is = 2
c.Interior.ColorIndex = 8
Case Is = 3
c.Interior.ColorIndex = 45
Case Is = 4
c.Interior.ColorIndex = 36
Case Is = 5
c.Interior.ColorIndex = 27
Case Is = 6
c.Interior.ColorIndex = 35
Case Is = 7
c.Interior.ColorIndex = 3
Case Is = 8
c.Interior.ColorIndex = 4
Case Is = 9
c.Interior.ColorIndex = 24
Case Is = 10
c.Interior.ColorIndex = 29
Case Is = 11
c.Interior.ColorIndex = 32
Case Else
c.Interior.ColorIndex = xlNone
End Select
Next c
End Sub

Private Sub CommandButton2_Click()
CommandButton1_Click
End Sub
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan