rickmichiel
Gebruiker
- Lid geworden
- 2 feb 2010
- Berichten
- 16
Hallo,
wij willen graag dat deze macro niet de gehele rij kleurt. maar begint vanaf kolom drie. Nu begint die vanaf kolom 1 t/m 16 (Resize(1, 16).Interior)
Wie kan ons helpen
De macro:
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect
Dim rng As Range
If Target.Column = 5 Then
For Each rng In Intersect(Target, Target.Parent.UsedRange)
With rng.EntireRow.Resize(1, 16).Interior
wij willen graag dat deze macro niet de gehele rij kleurt. maar begint vanaf kolom drie. Nu begint die vanaf kolom 1 t/m 16 (Resize(1, 16).Interior)
Wie kan ons helpen
De macro:
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect
Dim rng As Range
If Target.Column = 5 Then
For Each rng In Intersect(Target, Target.Parent.UsedRange)
With rng.EntireRow.Resize(1, 16).Interior