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