Hallo
Is er misschien iemand die voor mij de onderstaande code kan en wil aan passen
Deze code werkt prima en dat zou ook zo moeten blijven,
De cellen / kolommen hebben een bepaalde kleur en deze veranderen met deze code niet
Maar wat ik zoek is de volgende uitbreiding(en)
1- Bij het selecteren van een cel de hele rij automatisch mee kleurt
2- De actieve cel iets anders kleurt dan de rest van de rij (ander kleurnummer bv)
3- Eventueel in te stellen aantal cellen die mee kleuren b.v cel 1 -5 kleurt en de daaropvolgende blijven gewoon wit.
Misschien een leuke uitdaging tijdens het uitbuiken na de kerst ?
Prettige kerstdagen
Monty61 (25-12-1961)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim iColor As Integer
'// Note: Don't use if you have conditional
'// formatting that you want to keep
'// On error resume in case user selects a range of cells
On Error Resume Next
iColor = Target.Interior.ColorIndex
'// Leave On Error ON for Row offset errors
If iColor < 0 Then
iColor = 20
Else
iColor = 20
End If
'// Need this test in case Font color is the same
If iColor = Target.Font.ColorIndex Then iColor = 20
Cells.FormatConditions.Delete
'// Kleur de actieve cels
With Range(Target.Address) 'Rows(Target.Row)
.FormatConditions.Add Type:=2, Formula1:="WAAR"
.FormatConditions(1).Interior.ColorIndex = iColor
End With
End Sub
Is er misschien iemand die voor mij de onderstaande code kan en wil aan passen
Deze code werkt prima en dat zou ook zo moeten blijven,
De cellen / kolommen hebben een bepaalde kleur en deze veranderen met deze code niet
Maar wat ik zoek is de volgende uitbreiding(en)
1- Bij het selecteren van een cel de hele rij automatisch mee kleurt
2- De actieve cel iets anders kleurt dan de rest van de rij (ander kleurnummer bv)
3- Eventueel in te stellen aantal cellen die mee kleuren b.v cel 1 -5 kleurt en de daaropvolgende blijven gewoon wit.
Misschien een leuke uitdaging tijdens het uitbuiken na de kerst ?
Prettige kerstdagen
Monty61 (25-12-1961)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim iColor As Integer
'// Note: Don't use if you have conditional
'// formatting that you want to keep
'// On error resume in case user selects a range of cells
On Error Resume Next
iColor = Target.Interior.ColorIndex
'// Leave On Error ON for Row offset errors
If iColor < 0 Then
iColor = 20
Else
iColor = 20
End If
'// Need this test in case Font color is the same
If iColor = Target.Font.ColorIndex Then iColor = 20
Cells.FormatConditions.Delete
'// Kleur de actieve cels
With Range(Target.Address) 'Rows(Target.Row)
.FormatConditions.Add Type:=2, Formula1:="WAAR"
.FormatConditions(1).Interior.ColorIndex = iColor
End With
End Sub
