How to change value based on cell color in Excel?
This article is talking about changing cell value automatically based on its background color in Excel. For example, if cells filling with red background color in selection, then populate these cells with number 1, and for the blue background color cells, fill in number 0.
You can run the below VBA code to change value based on cell color in Excel. Please do as follows.
1. Select the range that you need to change values based on background color, then press Alt + F11 keys simultaneously to open the Microsoft Visual Basic for Applications window.
2. In the Microsoft Visual Basic for Applications window, click Insert > Module, then copy and paste the below VBA code into the Module window.
VBA code: Change value based on cell color in Excel
Sub ChangeValueBasedOnCellColor() Dim rg As Range Dim xRg As Range Set xRg = Selection.Cells Application.DisplayAlerts = False For Each rg In xRg With rg Select Case .Interior.Color Case Is = 255 'Red .Value = 1 Case Is = 15773696 'Blue .Value = 0 End Select End With Next Application.DisplayAlerts = False End Sub
3. Press the F5 key to run the code, then you can see all red cells in selected range are filled with number 1, and the blue cells are filled with number 0 as below screenshot shown.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
- To post as a guest, your comment is unpublished.· 2 months agoThe code works fine for me, but I would need to rewrite the code to fit colours specific for my document. But I don´t know what code "my colours" have, anyone who know where on can find codes for other colours?
- To post as a guest, your comment is unpublished.· 3 months agois it possible to adjust this code based on the cells conditional formatting rule?
- To post as a guest, your comment is unpublished.· 1 years agoExcel seems to crash whenever I try to run the VBA code. Seems like a bust.
- To post as a guest, your comment is unpublished.· 1 years agoGood day,
The code works well in my case. Can you tell me your Excel version? Thank you for your comment.
- To post as a guest, your comment is unpublished.· 1 years agoI'm in the same boat, trying to run this but the code seems to get hung. Excel 2016.
- To post as a guest, your comment is unpublished.· 2 years agoI'm looking to give a cell a name based on the colour within one worksheet. i.e. if a cell is red then it gets named "name", if it is orange then it gets names "surname" etc.
What code would need to change to have the range as the whole sheet/tab and a name instead of a value?
- To post as a guest, your comment is unpublished.· 3 years agoWhat changes to the code would be needed if you wanted this to apply to the text color of a cell, rather than the cell color?