Excel 2013 apply bold with .Replace

[Greemo]

Hi,

I have the following code which makes any cells with strikethrough formatting as blank cells.

Application.FindFormat.Clear
  Application.FindFormat.Font.Strikethrough = True
  Range("TodoCons").Replace "*", "", SearchFormat:=True
  Application.FindFormat.Clear

Can I have some help with, prior to making these cells blank, setting the bold fontstyle as false for all the cells with strikethrough formatting?

Thank you,

Greemo

 

[Rick Rothstein]

Hi,

I have the following code which makes any cells with strikethrough formatting as blank cells.

Application.FindFormat.Clear
  Application.FindFormat.Font.Strikethrough = True
  Range("TodoCons").Replace "*", "", SearchFormat:=True
  Application.FindFormat.Clear

Can I have some help with, prior to making these cells blank, setting the bold fontstyle as false for all the cells with strikethrough formatting?

Excel seems finicky about trying to do everything all at once when using the Replace method. This code seems to do what you want, though..

  Application.FindFormat.Clear
  Application.FindFormat.Font.Strikethrough = True
  Application.ReplaceFormat.Font.Bold = False
  Application.ReplaceFormat.Font.Strikethrough = False
  Range("TodoCons").Replace "*", "#N/A", SearchFormat:=True, ReplaceFormat:=True
  Application.FindFormat.Clear
  Range("TodoCons").SpecialCells(xlConstants, xlErrors).ClearContents

 

[Greemo]

Works wonderfully! Thank you!

Greemo