Workbook_Open secundário confidencial ()
lastRow não ofuscante como por muito tempo
Com folhas (“Sheet1”)
. SUPRESSÃO de Cells.FormatConditions.Delete 'TODO O FORMATO de COND
lastRow =. Rows.Count
Com. Escala (“A3: O” & o lastRow) 'AJUSTARAM o objeto do defeito, todas as expressões que começam com
'“.” referir-lhe-á. Anotar aninhado “com”
. Selecionar 'para ajustar ActiveCell ao canto esquerdo superior da escala
tipo de .FormatConditions.Add: =xlExpression, Formula1: = " =COUNTIF ($E$3: $E3, $E3) >1 "
.FormatConditions (1). Interior.ColorIndex = 44
.FormatConditions (1) .StopIfTrue = retificam
tipo de .FormatConditions.Add: =xlExpression, Formula1: = " =COUNTIF ($E$3: $E$ " & lastRow & “, $E3) >1”
.FormatConditions (2). Interior.ColorIndex = 37
tipo de .FormatConditions.Add: =xlExpression, Formula1: = " =UPPER ($K2) = do "" """ SIM
.FormatConditions (3). Interior.Color = ' vermelho vbRed
Extremidade com
Extremidade com
Submarino da extremidade
|