Bold all rows where a cell contains text "X"
I want to BOLD all rows where a cell contains text "X" in any cell in
range. Does anyone has the solution? |
Bold all rows where a cell contains text "X"
Hi
Please amend accordingly: Sub PutInBoldXs() Dim r As Range With Range("A1:C10") Set r = .Find("X", LookIn:=xlValues, searchorder:=xlByRows) If Not r Is Nothing Then r.EntireRow.Font.Bold = True End With End Sub HTH Cordially Pascal a écrit dans le message de news: ... I want to BOLD all rows where a cell contains text "X" in any cell in range. Does anyone has the solution? |
Bold all rows where a cell contains text "X"
On May 14, 3:41 pm, "papou" wrote:
Hi Please amend accordingly: Sub PutInBoldXs() Dim r As Range With Range("A1:C10") Set r = .Find("X", LookIn:=xlValues, searchorder:=xlByRows) If Not r Is Nothing Then r.EntireRow.Font.Bold = True End With End Sub HTH Cordially Pascal a écrit dans le message de news: om... I want to BOLD all rows where a cell contains text "X" in any cell in range. Does anyone has the solution?- Hide quoted text - - Show quoted text - Although I had changed the range to A1:H1000, only one row was bold. |
Bold all rows where a cell contains text "X"
Sub PutInBoldXs()
Dim r As Range With Range("A1:C10") Set r = .Find("X", LookIn:=xlValues, searchorder:=xlByRows) If Not r Is Nothing Then r.EntireRow.Font.Bold = True Do Set r = .FindNext(r) If Not r Is Nothing Then r.EntireRow.Font.Bold = True end if Loop While Not c Is Nothing end if End With End Sub " wrote: Sub PutInBoldXs() Dim r As Range With Range("A1:C10") Set r = .Find("X", LookIn:=xlValues, searchorder:=xlByRows) If Not r Is Nothing Then r.EntireRow.Font.Bold = True End With End Sub On May 14, 3:41 pm, "papou" wrote: Hi Please amend accordingly: HTH Cordially Pascal a écrit dans le message de news: om... I want to BOLD all rows where a cell contains text "X" in any cell in range. Does anyone has the solution?- Hide quoted text - - Show quoted text - Although I had changed the range to A1:H1000, only one row was bold. |
Bold all rows where a cell contains text "X"
On May 14, 7:18 pm, Joel wrote:
Sub PutInBoldXs() Dim r As Range With Range("A1:C10") Set r = .Find("X", LookIn:=xlValues, searchorder:=xlByRows) If Not r Is Nothing Then r.EntireRow.Font.Bold = True Do Set r = .FindNext(r) If Not r Is Nothing Then r.EntireRow.Font.Bold = True end if Loop While Not c Is Nothing end if End With End Sub " wrote: Sub PutInBoldXs() Dim r As Range With Range("A1:C10") Set r = .Find("X", LookIn:=xlValues, searchorder:=xlByRows) If Not r Is Nothing Then r.EntireRow.Font.Bold = True End With End Sub On May 14, 3:41 pm, "papou" wrote: Hi Please amend accordingly: HTH Cordially Pascal a écrit dans le message de news: om... I want to BOLD all rows where a cell contains text "X" in any cell in range. Does anyone has the solution?- Hide quoted text - - Show quoted text - Although I had changed the range to A1:H1000, only one row was bold.- Hide quoted text - - Show quoted text - It work but the system hang??? |
All times are GMT +1. The time now is 01:01 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com