Opmaak rij bij selectie

[Demeter]

Goedendag,

Ik wil graag als ik een cel selecteer van een rij dat deze rij een voorwaardelijke opmaak krijgt. Bij selecteren van een cel op een andere rij dan wordt de voorgaande rij weer normaal en de rij met de geselecteerde cel krijgt dan een opmaak.

De code tot nu toe is:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

Range("A1") = Target.Row
If Target.Row = Range("A1") Then
Rows(Range("A1")).Select
    Selection.FormatConditions.Delete
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="Target.Row = A1"""
    Selection.FormatConditions(1).Borders(xlLeft).LineStyle = xlNone
    Selection.FormatConditions(1).Borders(xlRight).LineStyle = xlNone
    With Selection.FormatConditions(1).Borders(xlTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.FormatConditions(1).Borders(xlBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.FormatConditions(1).Interior.ColorIndex = 44
    End With
End If
End Sub

Met deze code kan ik wel de rij selecteren maar daarna laat hij niks meer zien!
Hoe krijg ik de opmaak in mijn cellen?


Bijvoorbaat dank,
Ferenc

 

[jpvs]

Misschien is dit iets :

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Cells.Interior.ColorIndex = xlNone
With ActiveCell
.Resize(1, 15).Interior.ColorIndex = 15 'aantal rijen kleuren
.Interior.ColorIndex = 8 'aktieve cell kleur geven
End With
End Sub


en dit is voor de kleuren te kiezen in kolom A:

Sub ColorIndex()
Dim i As Integer
For i = 1 To 200
On Error GoTo exitsub
With Cells(i, 1).Interior
.ColorIndex = i
End With
Cells(i, 2) = i
Next i
exitsub:
End Sub

zie ook eens naar :
http://www.mcgimpsey.com/excel/highlightrow.html#HiLiteRetainColor

Pierre

 

[Demeter]

Dank je wel Pierre :thumb: ,

Dat is precies wat ik zocht, ook lekker met die uitleg pagina erbij.

Thanks,
Ferenc