Find the first previous bold cell in column B

[KentKHI]

Hey guys,

I just need the code to find the first previous "bold fonted" cell in column B. Here is what I had, but it gives me an error, it probably is not even close. please don't laugh at me.

        Cells.Columns("B,B").Find(Font.Bold = True, LookIn:=xlValues, SearchDirection:=xlPrevious).Activate

Thanks,

Kent

 

[Tazguy37]

How about something like this? I used a .Select method at the end to go to the cell, but you could MsgBox() the address instead, if you wanted.

Sub findBold()
Dim i As Long
    i = 1
    
    Do
        i = i + 1
    Loop Until Cells(i, 2).Font.Bold
    Cells(i, 2).Select
    
End Sub

Hope that helps!

 

[KentKHI]

Hey Tazguy!

Thanks for the response! I actually posted a little differently to better explain what I am trying to do. See if it makes sense.

Thanks for your response!

http://www.mrexcel.com/board2/viewtopic.php?p=623554#623554

Kent

 

[Zack Barresse]

Please continue here:
http://www.mrexcel.com/board2/viewtopic.php?p=623554