[ elektroing @ 30.12.2012. 14:42 ] @
Potreban mi je upit za sumiranje obojenih celija, celije su formatirane pomocu Conditional Formatting. Imam kod za slucaj kad su celije rucno obojene. Potrebna mi je alternativa za funkciju Cell.Interior.ColorIndex za moj slucaj. Code: Private Sub CommandButton1_Click() Br = 0 For Each Cell In Range("A1:A10") If Cell.Interior.ColorIndex > 0 Then Br = Br + 1 End If Next Cell Cells(5, 5).Value = Br End Sub |