Lampie173
Gebruiker
- Lid geworden
- 21 jan 2012
- Berichten
- 296
- Besturingssysteem
- Windows 11 Pro
- Office versie
- Office 365
Goedenavond Excellers,
Met dank aan SjonR :thumb:heb ik onderstaande code gekregen en naar mijn wensen aangepast.
Wat er gebeurt is dat de als je een cel in kolom B activeert dat de rij t/m kolom N groen kleurt en de aangrenzende cel in kolom O wordt rood.
Nu wil ik graag dat deze opmaakcode alleen voor een bepaald bereik (B9:O41) gaat gelden.
Wie kan mij op weg helpen?
Alvast bedankt,
Toon
Met dank aan SjonR :thumb:heb ik onderstaande code gekregen en naar mijn wensen aangepast.
Wat er gebeurt is dat de als je een cel in kolom B activeert dat de rij t/m kolom N groen kleurt en de aangrenzende cel in kolom O wordt rood.
Nu wil ik graag dat deze opmaakcode alleen voor een bepaald bereik (B9:O41) gaat gelden.
Wie kan mij op weg helpen?
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
Cells.Font.Bold = False
Cells.Font.Size = 11
Cells.Font.Underline = -4142
Cells(Target.Row, 2).Resize(, 14).Interior.ColorIndex = 43
Cells(Target.Row, 15).Interior.ColorIndex = 3
Cells(Target.Row, 15).Font.Underline = 2
Cells(Target.Row, 15).Font.Bold = True
Cells(Target.Row, 15).Font.Size = 13
End Sub
Alvast bedankt,
Toon