Color Detection in Excel via VBA

Houhou!!!!1 my first VBA code

Sub RedColor()
Dim i, j, n As Integer

n=0
For i = 1 To 10
For j = 1 To 10
If Cells(i, j).Interior.ColorIndex = 3 Then n = n + 1
Next j
Next i

Cells(1, 1) = n

End Sub

It counts the number of red cells between row 10 and column 10
you can change the search size by increasing i and j

it gives the result in A1 you can change that
if you want to change the color 3 it's red, the rest I don't know

Hello,
to get the list of colorIndex, press F1 and in the search box type PatternColorIndex, property
You'll get the page with the colors and their numbers.
See you later
--
Experience teaches more surely than advice. (André Gide)

To search for color...

Sub SearchColor() Dim Color As Integer Dim Cell As Range Dim Counter As Integer Color = 3 Sheets("Sheet1").Select ' adjust to the sheet name For Each Cell In Range("A1:J10") ' adjust the range to the cells to test If Cell.Interior.ColorIndex = Color Then Counter = Counter + 1 Next MsgBox "There are " & Counter & " cells with color No. " & Color End Sub

See you later
--
Experience teaches more surely than advice. (André Gide)

Thank you very much, you are very efficient!
I wasn't far off but still had to search :)