Conditional format toepassen op elke nieuwe rij die er wordt toegevoegd

Status
Niet open voor verdere reacties.
K

Kirsten1712

Gebruiker
Lid geworden
11 jan 2017
Berichten
28
Hallo

Ik kom er bij deze niet uit en weet dat ik altijd op jullie advies kan rekenen dus .. help! :)

In een Excel worden er waardes gescand in kolom A. Zodra er in kolom A iets beweegt, worden ook de kolommen B tem G berekend.
Daarna zou ik graag willen dat die lijn ("A:G") een kleur krijgt adhv een formule. Manueel instellen lukt prima, via VBA niet zo prima..

Hier alvast tot waar het wel lukt en wat mij fout lijkt te lopen.

Code: 
Sub redlines()
    Range(Cells(Selection.Row, 1), Cells(Selection.Row, 7)).Select

'Ik heb geprobeerd om de formule op verschillende manieren te formuleren ($), maar dat lijkt niet de juiste oplossing te zijn.

    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=AND($A2<>"""";$E2=0)"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 255
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
End Sub

Sub orangelines()
    Range(Cells(Selection.Row, 1), Cells(Selection.Row, 7)).Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=AND($A2<>"""";$E2<$D2)"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 49407
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
End Sub

De formule baseert zich steeds weer op de waarde in de 2de rij, terwijl deze voor elke nieuwe rij, zich ook op die nieuwe rij zou moeten baseren.

Alvast bedankt!!
 
Kijk eens naar een tabel, daarin neem je alles mee bij invoegen van een rij, geen VBA nodig
 
Ook weer helemaal waar.. :) al heeft zo'n tabel vaak ook weer wat nadelen.

Met een tabel kan het dus worden opgelost. Indien iemand alsnog de VBA oplossing kan bieden, hoor ik het alsnog graag.

Bedankt!!
 
Zo misschien?
Code: 
[FONT=Verdana,Arial,Tahoma,Calibri,Geneva,sans-serif]Sub redlines()
  With Range("A2:G" & Cells(Rows.Count, 1).End(xlUp).Row)
    .FormatConditions.Delete
    .FormatConditions.Add Type:=xlExpression, Operator:=xlEqual, Formula1:="=EN($A2<>"""";$E2=0)"
    .FormatConditions(1).Interior.ColorIndex = 3
  End With
End Sub
Sub orangelines()
  With Range("A2:G" & Cells(Rows.Count, 1).End(xlUp).Row)
    .FormatConditions.Delete
    .FormatConditions.Add Type:=xlExpression, Operator:=xlEqual, Formula1:="=EN($A2<>"""";$E2<$D2)"
    .FormatConditions(1).Interior.ColorIndex = 44
  End With
End Sub[/FONT]
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan