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.
- Reuse Anything: Add the most used or complex formulas, charts and anything else to your favorites, and quickly reuse them in the future.
- More than 20 text features: Extract Number from Text String; Extract or Remove Part of Texts; Convert Numbers and Currencies to English Words.
- Merge Tools: Multiple Workbooks and Sheets into One; Merge Multiple Cells/Rows/Columns Without Losing Data; Merge Duplicate Rows and Sum.
- Split Tools: Split Data into Multiple Sheets Based on Value; One Workbook to Multiple Excel, PDF or CSV Files; One Column to Multiple Columns.
- Paste Skipping Hidden/Filtered Rows; Count And Sum by Background Color; Send Personalized Emails to Multiple Recipients in Bulk.
- Super Filter: Create advanced filter schemes and apply to any sheets; Sort by week, day, frequency and more; Filter by bold, formulas, comment...
- More than 300 powerful features; Works with Office 2007-2019 and 365; Supports all languages; Easy deploying in your enterprise or organization.
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.· 1 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.· 2 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.· 11 months 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?