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

• #40579 Pakliman tag sz_abika #40578

  Új Válasz 2019-03-27 14:16:54 #40579

  Ú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

  

  Pakliman

  tag

  válasz sz_abika #40578 üzenetére

  Szia!

  Ha jól értem, hogy mit szeretnél (A D2 cellától a ***-aj jelzett sor előtti sorig szeretnéd feltételesen formázni?)...

  Dim jelSora

'Megnézi, hogy a "jel" hanyadik sorban van
jelSora = Application.Match("***", Range("D:D"), 0)
'Ha van egyáltalán "jel", akkor...
If Not IsError(jelSora) Then
With Range("D2:D" & jelSora - 1)
.FormatConditions.Add Type:=xlExpression, Formula1:="=P6<$A$2"
.FormatConditions(.FormatConditions.Count).SetFirstPriority
With .FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = RGB(230, 230, 230)
.TintAndShade = 0
End With
End With
End If

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