We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Course Of The Month
3 days, 20 hours left to enrollBecome a Premium Member and unlock a new, free course in leading technologies each month.
SolvedPrivate
VBA excel condition
Posted on 2015-01-19
I want to compare one column to another column, for example if in column A I have "Toyota" then in Column D I should have "Corolla" if not then highlight both cells with red color, I want to put multiple conditions like that for different columns. how I can do that through VBA? i have thousand of records.
thanks
thanks
[X]
Welcome to Experts Exchange
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
- Help others & share knowledge
- Earn cash & points
- Learn & ask questions
-
7
3
2- +2
16 Comments
Active today
assuming that you have your data like Toyota and Corolla somewhere in the sheet.
lets assume that your conditional data is in F and G
so if A Toyota is not equal to F value and D Corolla is not equal to G value then it will trigger red background. check it in the attached file. add more data and you will see the highlight is automatic
Book3.xlsx
lets assume that your conditional data is in F and G
so if A Toyota is not equal to F value and D Corolla is not equal to G value then it will trigger red background. check it in the attached file. add more data and you will see the highlight is automatic
Book3.xlsx
Active 3 days ago
You are right, but i want to trigger red only column A cell and D cell not the whole row. Also, I want to have multiple conditions, like instead of Toyota and Corolla if we have "Cell phone" in column A and "Bill" in Column D then it should be also ok otherwise it should trigger the red background.
Thanks
Thanks
Active today
But you need to have your conditional data somewhere I mean list of cellphone etc name against which the check on cells need to happen. You need to put those in F and G or anywhere you like but the data from which the column A and D to be tested must exist somewhere, otherwise excel wouldn't know to check cells of A and D against what data?
I will revise the workbook range that it only colours the two columns if mismatch not the entire row .
I will revise the workbook range that it only colours the two columns if mismatch not the entire row .
Active 1 day ago
Hi Snhandle,
i dont want to step in Flora's toes here, but thought to quickly answer.
please see attached. the conditional data are in sheet2 Column A and Column B.
Book3.xlsx
i dont want to step in Flora's toes here, but thought to quickly answer.
please see attached. the conditional data are in sheet2 Column A and Column B.
Book3.xlsx
Active 3 days ago
But I want to highlight the cells A and D, not the whole row. Also, I want to put multiple condition in sheet two, if cell A and D matches any of those condition then it should not make cell A and D in sheet one red.
Active 3 days ago
I want to see the script so I can modify it according to my needs. Also, I need to highlights those cell only when in the sheet2 there is no match in the column A and B not just the cells.
Active 1 day ago
Look, when you can do things with build in functions of excel, there is no need for VBA. Vba will make your spreadsheet slow and you would not know modify the code , unless you know vba language . Check the last workbook I attached then check the conditional formatting and see the range and formula inside conditional formatting, then you would be able to modify it according your need..
Snhandle, here is some VBA code you can use to start your search:
Sub EE_CellCheckCode()
Dim rng1 As Range, rng2 As Range
Set rng1 = ActiveSheet.Range("A1:A" & ActiveSheet.UsedRange.Rows
Set rng2 = ActiveSheet.Range("D1:D" & ActiveSheet.UsedRange.Rows
For Each cell In rng1
cell.Select
If cell.Value <> "Toyota" Then 'Checks for TOYOTA in the cell (ColumnA)
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255
End With
Else
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Next
For Each cell In rng2
cell.Select
If cell.Value <> "Corolla" Then 'Checks for COROLLAin the cell (ColumnD)
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255
End With
Else
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Next
End Sub
Sub EE_CellCheckCode()
Dim rng1 As Range, rng2 As Range
Set rng1 = ActiveSheet.Range("A1:A" & ActiveSheet.UsedRange.Rows
Set rng2 = ActiveSheet.Range("D1:D" & ActiveSheet.UsedRange.Rows
For Each cell In rng1
cell.Select
If cell.Value <> "Toyota" Then 'Checks for TOYOTA in the cell (ColumnA)
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255
End With
Else
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Next
For Each cell In rng2
cell.Select
If cell.Value <> "Corolla" Then 'Checks for COROLLAin the cell (ColumnD)
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255
End With
Else
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Next
End Sub
Active 3 days ago
The above VBA working fine the only thing is it does not highlight the column A cell in case the condition is not true, it only highlight column D cell if the condition is not true. Also, how i can add multiple conditions into this statement like if column A has mercedez then column d should have benz and so on.
Thanks
Thanks
Hi snhandle,
Maybe something like this would work better for you:
(you will be able to add the car combinations you would like in the IF statement)
Sub EE_CellCheckCode()
Dim index As Integer
Dim ws As Worksheet
'set the sheet to use
Set ws = Sheets("Sheet3")
For index = 1 To ActiveSheet.UsedRange.Rows
'Checks if cells in Column A & Column D MATCH the specified combination
If ws.Range("A" & index).Value = "Toyota" And ws.Range("D" & index).Value = "Corolla" Or _
ws.Range("A" & index).Value = "Toyota" And ws.Range("D" & index).Value = "Tacoma" Or _
ws.Range("A" & index).Value = "Toyota" And ws.Range("D" & index).Value = "Tundra" Or _
ws.Range("A" & index).Value = "Mercedes" And ws.Range("D" & index).Value = "Benz" Or _
ws.Range("A" & index).Value = "Honda" And ws.Range("D" & index).Value = "Fit" Or _
ws.Range("A" & index).Value = "Honda" And ws.Range("D" & index).Value = "Civic" Or _
ws.Range("A" & index).Value = "Honda" And ws.Range("D" & index).Value = "Accord" Then
'DOES NOT Fill any color if both cell values MEET the above conditions
ws.Range("A" & index).Interior.Color = xlNone
ws.Range("D" & index).Interior.Color = xlNone
Else
'Highlights both cell values RED (if FALSE; criteria DOES NOT MEET above conditions)
ws.Range("A" & index).Interior.Color = vbRed
ws.Range("D" & index).Interior.Color = vbRed
End If
Next index
End Sub
Maybe something like this would work better for you:
(you will be able to add the car combinations you would like in the IF statement)
Sub EE_CellCheckCode()
Dim index As Integer
Dim ws As Worksheet
'set the sheet to use
Set ws = Sheets("Sheet3")
For index = 1 To ActiveSheet.UsedRange.Rows
'Checks if cells in Column A & Column D MATCH the specified combination
If ws.Range("A" & index).Value = "Toyota" And ws.Range("D" & index).Value = "Corolla" Or _
ws.Range("A" & index).Value = "Toyota" And ws.Range("D" & index).Value = "Tacoma" Or _
ws.Range("A" & index).Value = "Toyota" And ws.Range("D" & index).Value = "Tundra" Or _
ws.Range("A" & index).Value = "Mercedes" And ws.Range("D" & index).Value = "Benz" Or _
ws.Range("A" & index).Value = "Honda" And ws.Range("D" & index).Value = "Fit" Or _
ws.Range("A" & index).Value = "Honda" And ws.Range("D" & index).Value = "Civic" Or _
ws.Range("A" & index).Value = "Honda" And ws.Range("D" & index).Value = "Accord" Then
'DOES NOT Fill any color if both cell values MEET the above conditions
ws.Range("A" & index).Interior.Color = xlNone
ws.Range("D" & index).Interior.Color = xlNone
Else
'Highlights both cell values RED (if FALSE; criteria DOES NOT MEET above conditions)
ws.Range("A" & index).Interior.Color = vbRed
ws.Range("D" & index).Interior.Color = vbRed
End If
Next index
End Sub
Featured Post
Enable Your Employees To Focus On The Core With Intuitive Onscreen Guidance That is With You At The Moment of Need.
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
Excel can be a tricky bit of software to get your head around. Whilst you’ll be able to eventually get to grips with the basic understanding of how to get by, there are a few Excel tips that not everybody will even know about let alone know how to d…
The Windows Phone Theme Colours is a tight, powerful, and well balanced palette.
This tiny Access application makes it a snap to select and pick a value. And it doubles as an intro to implementing WithEvents, one of Access' hidden gems.
The viewer will learn how to use the =DISCRINV command to create a discrete random variable, use this command to model a set of probabilities and outcomes in a Monte Carlo simulation, and learn how to find the standard deviation of a set of probabil…
Finds all prime numbers in a range requested and places them in a public primes() array. I've demostrated a template size of 30 (2 * 3 * 5) but larger templates can be built such 210 (2 * 3 * 5 * 7) or 2310 (2 * 3 * 5 * 7 * 11).
The larger templa…
Suggested Courses
Course of the Month3 days, 20 hours left to enroll
691 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.