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.
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
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