lookup and loop in Macro

[Mickey66]

Hi Excel experts, this girl typing here at mid night because I can not fall asleep, this macros drove me crazy that i have nothing to do but banging my head on the desk...

I have two worksheets: WK1, WK2

in WK1, I have two columns:
Col A is a list of tag# (starts from A2,A3,A4...)
Col B is indicators, it tells me if the Tag# in colA can be found in WK2 bolded. if it is bolded in WK2, Col B says "Yes", otherwise, it says "not in record"
So, it looks like the following:
A B
tag#1 yes
tag#2 not in record
....... ......

In WK2, column A is also a list of tag#
---------------------------------------------------
Now, what I want to do in macro is:
in WK1, if the tag# (say cell "A2" tag#2) is indicated as "not in record", then lookup this tag#2 in WK2,
if it can find this tag# in WK2, then bold this tag# in WK2;
if it can not find this tag# in WK2, then add this tag# to the next available empty row in the same column where the tag# entered, and then bold it.
After the above exersice for cell A2 for example, Then, it will lookup A3 and repeat the above action, then lookup A4,A5,A6... till the end of the list of WK1
---------------------------------------------------
Is this possible??

 

[syntaxed]

Hey Mickey66,

Maybe this will work:

Sub Mickey66()
For i = 2 To Sheets("WK1").UsedRange.Count
    If Sheets("WK1").Cells(i, 2) = "not in record" Then
        Set r = Sheets("WK2").Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row).Find(Sheets("WK1").Cells(i, 1).Value)
        If Not r Is Nothing Then
            r.Font.Bold = True
        Else
            Sheets("WK2").Range("A" & Sheets("WK2").Cells(Rows.Count, 1).End(xlUp).Row + 1) = Sheets("WK1").Cells(i, 1).Value
            Sheets("WK2").Range("A" & Sheets("WK2").Cells(Rows.Count, 1).End(xlUp).Row).Font.Bold = True
        End If
    End If
Next
End Sub

 

[Mickey66]

Oh my god!! It works just so perfectly!!! I don't know how much thank you I can say to you syntaxed to express my feeling now!!

This was my first posting here after I registered and struggled for a long while! and..I don't know what to say but thank you very much!

Have a great day syntaxed!!