Intymny Okręt podwodny Workbook_Open ()
Ciemnawy lastRow Długo
Z Worksheets ("Sheet1")
. Cells.FormatConditions.Delete 'DELEATUR WSZYSTKIE COND FORMATOWANIE
lastRow =. Rows.Count
Z. Pasmo ("A3: O" & lastRow) 'SET brak przedmiot, wszystkie wyrażenie z
'"." odnosić sie ono. Notatka gniazdować "Z"
. Wybiórka 'ActiveCell odgórny lewy kąt the pasmo
.FormatConditions.Add Typ: =xlExpression, Formula1: = " =COUNTIF ($E$3: $E3, $E3) >1 "
.FormatConditions (1).Interior.ColorIndex = 44
.FormatConditions (1).StopIfTrue = Prawdziwy
.FormatConditions.Add Typ: =xlExpression, Formula1: = " =COUNTIF ($E$3: $E$ " & lastRow & ", $E3) >1"
.FormatConditions (2).Interior.ColorIndex = 37
.FormatConditions.Add Typ: =xlExpression, Formula1: = " =UPPER ($K2) = "" TAK """
.FormatConditions (3).Interior.Color = vbRed 'Rewolucjonistka
Końcówka Z
Końcówka Z
Końcówka Okręt podwodny
|