Privé SubWorkbook_Open ()
Schemerige lastRow zoals lang
Met Aantekenvellen („Sheet1“)
. Cells.FormatConditions.Delete 'SCHRAP AL het FORMATTEREN COND
lastRow =. Rows.Count
Met. Waaier („A3: O“ & lastRow) 'PLAATSTE standaardvoorwerp, alle uitdrukkingen die beginnen met
'„.“ zal verwijzen naar het. Nota „wordt genesteld die met“
. Selecteer 'om ActiveCell aan hoogste linkerhoek van de waaier te plaatsen
.FormatConditions.Add type: =xlExpression, Formula1: = " =COUNTIF ($E$3: $E3, $E3) >1 "
.FormatConditions (1). Interior.ColorIndex = 44
.FormatConditions (1) .StopIfTrue = Waar
.FormatConditions.Add type: =xlExpression, Formula1: = " =COUNTIF ($E$3: $E$ " & lastRow & „, $E3) >1“
.FormatConditions (2). Interior.ColorIndex = 37
.FormatConditions.Add type: =xlExpression, Formula1: = " =UPPER ($K2) = "" JA """
.FormatConditions (3). Interior.Color = vbRed 'Rood
Eind met
Eind met
Sub van het eind
|