Bold all rows where a cell contains text "X"

[limpuiting]

I want to BOLD all rows where a cell contains text "X" in any cell in
range.

Does anyone has the solution?

 

[papou]

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

 

[limpuiting]

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

<[email protected]> a écrit dans le message de (e-mail address removed)...





- Show quoted text -

Although I had changed the range to A1:H1000, only one row was bold.

 

[Guest]

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

 

[limpuiting]

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






- Show quoted text -

It work but the system hang???