Need an excel MACRO that would find the row with the word total and bold it

You can sellect all row and then go to Formattion - Conditional Formatting and select if cell value Contains your word 'total' then add the format you want.

jpaulino

Here is the macro for doing so.

Sub Bold_Yellow()

ASUP = Application.ScreenUpdating
Application.ScreenUpdating = False

    Range("A1:A999").Select
   
        Application.CutCopyMode = False
       
        For Each cell In Range("A:A")
            If cell.Value = "Total" Then
            Range("A" & cell.Row & ":" & "A" & cell.Row).Interior.ColorIndex = 6
            Selection.Font.Bold = True
        End If
    Next
    Application.ScreenUpdating = ASUP

End Sub

Kind regards,
~Irial

You don't need a macro to do that but if you want you have the Jaes code.

The problem (if it is a problem!) is that you need to click on a button or use some worksheet event to use it.

jpaulino

jpaulino:

You are absolutely correct.  I just don't usually like to use Conditional Formatting on an entire column if I can help it.  It is all a matter of personal preference.  :)

Jaes

Nice, two different macro's which are almost the same :)

The only difference between the two macro's is that my macro loops trough each and every cell in a range, and then bolds/colors it if it contains the word "Total" in it. Loneravers macro searches for the first instance of the word Total, and then performs the same operation. Other then that they offer the same functionality.

Kind regards,
~Irial

Irial:

I usually try to not loop through every cell if I don't have to, but your solution would definitely work.  A suggestion I have for your code is as follows.

    With ActiveSheet
        For Each cell In Intersect(.[A:A], .UsedRange)
        '''
        Next cell
    End With

This would make it so you wouldn't loop through every cell in column A thus speeding up the code.


tarigiamal:

If you have multiple Total rows you could use the following using the Find method instead.

Sub FindTotal()
    Dim rngFind As Range
    Dim strAddress As String
    Dim ws As Worksheet
    Set ws = ActiveSheet
    With ws.[A:A]
        Set rngFind = .Find(What:="Total", Lookat:=xlWhole)
        If Not rngFind Is Nothing Then
            strAddress = rngFind.Address
            With rngFind.EntireRow
                .Interior.Color = vbYellow
                .Font.Bold = True
            End With
            Do
                Set rngFind = .FindNext(rngFind)
                With rngFind.EntireRow
                    .Interior.Color = vbYellow
                    .Font.Bold = True
                End With
            Loop While Not rngFind Is Nothing And rngFind.Address <> strAddress
        End If
    End With
End Sub

Kindest Regards,

Jaes