If, then bold row

  • Thread starter Thread starter puiuluipui
  • Start date Start date
P

puiuluipui

Hi, i need a macro to bold a row or a range in that row(A:J) if in column A
the macro finds "Nr. Crt.".
Can this be done?
Thanks!
 
Try the below....

Sub Macro()
Dim varFound As Variant, varSearch As Variant, strAddress As String

varSearch = "Nr. Crt."
ActiveSheet.Range("A:A").Font.Bold = False
With ActiveSheet.Columns(1)
Set varFound = .Find(varSearch, LookIn:=xlValues)
If Not varFound Is Nothing Then
strAddress = varFound.Address
Do
varFound.Resize(, 10).Font.Bold = True
Set varFound = .FindNext(varFound)
Loop While Not varFound Is Nothing And _
varFound.Address <> strAddress
End If
End With
End Sub


If this post helps click Yes
 
Hi Jacob, it's working, but can you make this code to highlight that row? (to
bold and highlight)?
Thanks!

"Jacob Skaria" a scris:
 
Try..

Sub Macro()
Dim varFound As Variant, varSearch As Variant, strAddress As String

varSearch = "Nr. Crt."
ActiveSheet.Range("A:J").Font.Bold = False
ActiveSheet.Range("A:J").Interior.ColorIndex = xlNone
With ActiveSheet.Columns(1)
Set varFound = .Find(varSearch, LookIn:=xlValues)
If Not varFound Is Nothing Then
strAddress = varFound.Address
Do
varFound.Resize(, 10).Font.Bold = True
varFound.Resize(, 10).Interior.ColorIndex = 6
Set varFound = .FindNext(varFound)
Loop While Not varFound Is Nothing And _
varFound.Address <> strAddress
End If
End With
End Sub

If this post helps click Yes
 
Back
Top