Bepaald bereik opmaken

Status
Niet open voor verdere reacties.

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?



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
 
Zoiets:
Code:
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
 
Deze is perfect!

Dank je wel Edmoor:thumb:
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan