Hirdetés

Új hozzászólás Aktív témák

  • sz_abika

    addikt

    Hali,
    bentragadtam egy feltételes formázós loop kialakításában és nem jutok tovább benne...

    Range("D6").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=P6<$A$2"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
    .PatternColorIndex = xlAutomatic
    .Color = RGB(230, 230, 230)
    .TintAndShade = 0
    End With

    Ez lenne az alap, amit addig kellene loopoltatni a D oszlopban lefelé haladva,
    ActiveCell.Offset(1, 0).Select

    amíg abban a bizonyos cellában van egy marker letéve

    Do While ActiveCell.Value <> "***"

    Ezt hogy kellene helyesen egybegyúrni? Állandóan abba futok bele, hogy a loop keresi a "do"-t és így nem fut le.
    Vagy lehet inkább egy stopiftrue kéne neki?

Új hozzászólás Aktív témák