IF Statement For Conditional "Bolding"

[Jrub]

Hi All,

I have two columns with data, A and B.

What kind of IF statement is needed to say that if the cell is blank in column B, make the adjacent cell in column A bold?

I imagine it would need to be within something like this:

With Me.Range("A" & LR + 2)
   
   
End With

Can anyone help me out?

[HaHoBe]

Hi, Jrub,

maybe like this:

With Range("A" & LR + 2)
   If IsEmpty(.Offset(0, 1).Value) Then
      .Font.Bold = True
   End If
End With

If the cells in Column B are really empty (blanks, no formulas) you could try something like this:

Dim rngCell As Range

On Error Resume Next
For Each rngCell In Range("B2:B" & Cells(Rows.Count, "B").End(xlUp).Row).SpecialCells(xlCellTypeBlanks)
  rngCell.Offset(0, -1).Font.Bold = True
Next rngCell

Ciao,
Holger

[Jrub]

Holger,

Thanks alot, much appreciated.

The first code didn't work, so I tried the following and it worked great!

 With Range("A" & LR + 2)
    On Error Resume Next
    For Each rngCell In Range("B2:B" & Cells(Rows.Count, "B").End(xlUp).Row).SpecialCells(xlCellTypeBlanks)
    rngCell.Offset(0, -1).Font.Bold = True
    Next rngCell
End With

Thanks again!

[HaHoBe]

Hi, Jrub,

your With statement isnīt referred to in the code so it may be omitted (the code within refers to all cells in column B`s filled range).

Glad I could be of help.
Holger