Bepaald bereik opmaken

[Lampie173]

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?

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

 

[edmoor]

Zoiets:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("B9:O41")) Is Nothing Then
        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 If
End Sub

 

[Lampie173]

Deze is perfect!

Dank je wel Edmoor:thumb: