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

• #40578 sz_abika addikt

  Új Válasz 2019-03-27 13:49:01 #40578

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  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