Find and Format column A and B then rows

[sburrill]

I have several spreadsheets with text in Column A and data or text in columns B through T.

Where text in column A contains "TOTAL" I want to format that row bold.

Where text in column B contains "Index" I want to format that row italic.

Apply this to all worksheets (over 70) in the workbook.

Thanks for your leads advice.

 

[mrhartley]

Hiya, you can start with this and go from there. Hope it helps.

Sub totalbold()
'this makes the row bold upon finding "total"
Sheets("sheet1").Select
Dim LastRow
LastRow = Columns(1).Find(What:="TOTAL", After:=[A1], LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Row
Range(Cells(LastRow, "A"), Cells(LastRow, "T")).Select
Selection.Font.bold = True
End Sub

It will find the word total (must be in column A) and make cells A to T bold
You should be able to adapt the above to look for index and make italic.
If anyone can advise how to go about running this across every worksheet, then feel free to advise.
Regards
Mark

 

[sburrill]

Thank you for your prompt reply. Cheers

 

[mrhartley]

oh I just realised that will stop after finding the first "TOTAL" and not continue on to the next.

can anyone else please advise

 

[Norie]

This could easily be done with conditional formatting.

Select all relevant rows, goto Format>Conditional Formatting..., select formula is and enter this

=$A1="TOTAL"

and format as required.

For column B add another condition and use this formula

=$B1="Index"

If you want to apply this to many sheets as indicated I would recommend that you record a macro (Tools>Macro...Record New Macro...) when you do it manually

The code generated can be adpated to run over multiple worksheets/books.

 

[mrhartley]

Do as Norie suggests