MS Excel

Téma: VBA podmíněné formátování, písmo + pozadí

Zaslal/a Merlin99 20.4.2021 9:35

Zdravim vsechny
chci se zeptat jestli nekdo poradi jak sloucit tyto dve podminky podmineneho formatovani do jedne, nijak se mi to nepodarilo.. viz příloha

.Range("A2:A" & MaxRadek & "").FormatConditions.Add(Type:=xlExpression, Formula1:="=$A2=1").Font.ColorIndex = 33

.Range("A2:A" & MaxRadek & "").FormatConditions.Add(Type:=xlExpression, Formula1:="=$A2=1").Interior.ColorIndex = 6

Příloha: rar

50492_format.rar (13kB, staženo 12x)

Zaslat odpověď >

Stalker(20.4.2021 13:37)#050500

Myslel si to takto: ???
Private Sub Workbook_Open()
Dim MaxRadek As Long
With List1
MaxRadek = .Cells(Rows.Count, "A").End(xlUp).Row

.Cells.FormatConditions.Delete
With .Range("A2:A" & MaxRadek & "").FormatConditions.Add(Type:=xlExpression, Formula1:="=$A2=1")
.Font.ColorIndex = 33
.Interior.ColorIndex = 6
End With
End With
End Sub

Příloha: rar