cel oplichten

[bikkel9]

beste mensen

ben opzoek naar een manier om als je bv cel a2 selecteerd in cel a11 de celkleur veranderd
en dan zo bij het selecteren van de cellen in de rijen 2 t/m 7
dus ook als je c6 selecteerd de celagtergrond van c15 veranderd
alvast bedankt

 

[wiki]

ALT+F11
selecteer betreffende blad en plak onderstaande code

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = 0
ActiveCell.Offset(9, 0).Interior.ColorIndex = 40

End Sub

gr wim

 

[bikkel9]

ALT+F11
selecteer betreffende blad en plak onderstaande code

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = 0
ActiveCell.Offset(9, 0).Interior.ColorIndex = 40

End Sub

gr wim

Hio Wim

werkt perfect
beveiliging erop gezet zodat alleen de boveste rijen geselcteerd kunnen worden
bedankt :thumb::thumb: