Automatisch bijbehorende cel oplichten

[zwans]

Mensen,

Ik heb een vraag.
Ik zou graag willen dat wanneer ik een bepaalde cel selecteer een andere bijbehorende cel oplicht door bijvoorbeeld te veranderen van kleur of met een omranding.
Het is elke keer de cel die 7 kolommen verder naar rechts is.
Als ik bijvoorbeeld cel D8 selecteer zou cel K8 moeten oplichten.
Weet iemand hou ik dit zou kunnen doen?

Bij voorbaat dank!

Met vriendelijke groet,

Ronald Buikema

 

[Cobbe]

Deze zou dat kunnen doen als je geen andere kleuren in je werkblad gebruikt.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
ActiveCell.Offset(0, 7).Interior.ColorIndex = 6
End Sub

 

[Niels28]

Zie bijlage.

Bekijk bijlage highlight.xlsm

Rechtermuisknop op tab "blad1" programmacode weergeven.
dan kun je zien wat de code doet, eventueel cellen aanpassen.
De standaard opmaak van de cel wordt niet aangetast.

In kolom K staat een voorwaardelijke opmaak.

Wat ik overigens niet snap is dat bij mij in rij 4 t/m 16 de voorwaardelijke opmaak niet werkt.

opgelost, vervang code achter blad1 door:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

If Not Intersect(Target, Range("D1:e100")) Is Nothing Then
  Range("A1") = Target.Row
 Range("A2") = Target.Column
 Application.ScreenUpdating = True
 Exit Sub
 End If

End Sub

Niels