StackOverflow2013

Note that there are some explanatory texts on larger screens.

plurals

PO
primarykey
Id
17696898
data
AcceptedAnswerId
0
AnswerCount
0
ClosedDate
CommentCount
0
CommunityOwnedDate
CreationDate
2013-07-17T10:06:52.193
FavoriteCount
0
LastActivityDate
2013-07-17T10:17:17.687
LastEditDate
2013-07-17T10:17:17.687
LastEditorUserId
2567632
OwnerUserId
2567632
ParentId
17692687
PostTypeId
2
Score
0
ViewCount
0
LastEditorDisplayName
text
Body
I wanted to test my skills a little with this, even though @matzone gave exact answer already. I made this Sub which does exactly the same, but using <code>Range</code> objects and <code>.Find()</code> method. With comments... <pre><code>Private Sub Test() FindAndColorMatchesOfTwoColumns "A", "B" End Sub Private Sub FindAndColorMatchesOfTwoColumns(colTarget As String, colList As String) Dim rLookUp As Range ' Column range for list compared against Dim rSearchList As Range ' Column range for compare items Dim rMatch As Range Dim sAddress As String ' Set compared against list from colTarget column Set rLookUp = Range(colTarget & "1:" & _ colTarget & Range(colTarget & "1").End(xlDown).Row) ' Loop trough list from colList column For Each rSearchList In Range(colList & "1:" & colList & Range(colList & "1").End(xlDown).Row) ' Find for a match Set rMatch = rLookUp.Find(rSearchList.Value, LookAt:=xlWhole) If Not rMatch Is Nothing Then ' Store first address found sAddress = rMatch.Address ' Loop trough all matches using .FindNext, ' exit if found nothing or address is first found Do ' Set the color rMatch.Font.Color = vbRed Set rMatch = rLookUp.FindNext(rMatch) Loop While Not rMatch Is Nothing And rMatch.Address <> sAddress End If Next Set rMatch = Nothing Set rSearchList = Nothing Set rLookUp = Nothing End Sub </code></pre> The idea is to be more dynamic, accept the two columns as arguments, set search ranges until <code>Range.End(xlDown).Row</code> and not fixed counts. Also loop trough only matches. For original question the simple <code>.Cells()</code> nested loops is way simpler, but using <code>.Find()</code> would prove alot faster if column counts would go up to thousand(s). Tested the "long list" hypothesis with this test sub: <pre><code>Private Sub RunTest() Dim tStart As Date Dim tEnd As Date tStart = Timer FindAndColorMatchesOfTwoColumns "A", "B" tEnd = Timer Debug.Print Format(tEnd - tStart, "0.000") tStart = Timer Test tEnd = Timer Debug.Print Format(tEnd - tStart, "0.000") End Sub </code></pre> Added 1500 rows to column A and 184 rows to column B and got Immediate view result as: <pre><code>0,266 12,719 </code></pre> So there indeed is a huge difference in performance... If OP was only providing simplistic example for question and intends to utilize this in larger sets of data.
Tags
Title
singulars
PostAcceptedAnswerId
1. This table or related slice is empty.
PostParentId
1. POHow to find value of one column in another and change color?
 singulars
 PostTypePostTypeId
 PTQuestion
PostTypePostTypeId
1. PTAnswer
UserLastEditorUserId
1. USRaybarg
UserOwnerUserId
1. USRaybarg
plurals
PostLinksPostIdRelatedPostId
1. This table or related slice is empty.
PostLinksRelatedPostIdPostId
1. This table or related slice is empty.
PostsAcceptedAnswerId
1. This table or related slice is empty.
PostsParentIdCreationDate
1. This table or related slice is empty.
VotesPostIdCreationDate
1. This table or related slice is empty.
CommentsPostId
1. This table or related slice is empty.

Querying!

Guidance

A row detail

Detail views are divided into sections. All the information in the data section comes from columns in the selected row. The other sections display data from other, related rows.

Related data can be related in a to-one or a to-many fashion. Captions of data related in a to-many fashion link to a list view showing a filtered view of the table.

Try moving around until you find a non-empty to-many entry and click on the label to get to one. You can move back to the root by clicking on the database name in the header.