
Není to bohužel z mé hlavy a upřímně řečeno, úplně do detailu tomu kódu nerozumím.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Set rng = Range("A1:F10")
If Not Intersect(Target, rng) Is Nothing Then
With rng.FormatConditions
.Delete
.Add xlNoBlanksCondition
End With
With rng.FormatConditions(1)
.Borders.LineStyle = xlContinuous
With .Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
End With
End If
End Subcitovat