Button to replace several colors by others within a range of cells

[schinois]

Hello,

I'm pretty new to programming in general So your assistance would be very well appreciated

Where it applies?
To the sheet named "Localization" within the range Range("A15:AF2035").

When it applies?
By clicking on a command button (control)

What is the goal?
To replace all cells containing:
Color 1 (Interior.ColorIndex = 35)
AND/OR
color 2 (Interior.ColorIndex = 24)
BY
color 3 (Interior.ColorIndex = 2)


How would you write the code in VBA?

Thanks a lot in advance if you can help me,

Stephane

 

[DonkeyOte]

Stephane,

Welcome to the Board.

Something like the below perhaps ?

Private Sub CommandButton1_Click()
Dim rng As Range: Set rng = Range("A15:AF2035")
Dim cell As Range
Application.ScreenUpdating = False
For Each cell In rng
    Select Case cell.Interior.ColorIndex
        Case 35, 24
            new_col_ind = 3
        Case Else
            new_col_ind = 0
    End Select
    If new_col_ind > 0 Then cell.Interior.ColorIndex = new_col_ind
Next cell
Application.ScreenUpdating = True
End Sub

 

[schinois]

Thanks lasw10!

Clean, working, and quickly done! Everythings is working the way I wanted to.

Thanks again!

Stephane