strikethrough

[Haydo]

Is there a way to....
- find (and highlight?) all cells containing - just the three letters - scr
- then strikethrough all text on all rows containing scr ?

Is a vba code best for this or something else?

Thanks in advance

 

[Rick Rothstein]

interesting...
The result is that each of the "scr" cells are coloured red, with black ink, and with strikethrough.
But the remainder of the row is unchanged.

When i said highlight, I meant in the sense that the cells would then be able to be changed all at once, just like when you hold down 'CTRL' and choose multiple cells which are then ready to be changed.

My aim is to have the entire row (containing the "scr") with a strikethrough, but have no colour change.

Does this code do what you want?

Sub Find_scr_StrikethroughIt()
    Dim SCR As Range
    With Columns("I")
      .Replace "scr", "=scr", xlWhole
      Set SCR = .SpecialCells(xlCellTypeFormulas)
      .Replace "=", "", xlPart
    End With
    SCR.Font.Strikethrough = True
    SCR.EntireRow.Select
End Sub

 

[Haydo]

thank you.
Strikethrough worked only on 'scr' (column I)
The entire rows with scr are selected.

Is there an extra command that would strikethrough all the selected rows?
Is it ..
SCR.EntireRow.Font.Strikethrough
?

 

[Rick Rothstein]

thank you.
Strikethrough worked only on 'scr' (column I)
The entire rows with scr are selected.

Is there an extra command that would strikethrough all the selected rows?
Is it ..
SCR.EntireRow.Font.Strikethrough
?

Hmm, I posted the wrong code (it was what was in my Clipboard... I had forgotten to replace it with the latest code). Try this...

Sub Find_scr_StrikethroughIt()
    Dim SCR As Range
    With Columns("I")
      .Replace "scr", "=scr", xlWhole
      Set SCR = .SpecialCells(xlCellTypeFormulas)
      .Replace "=", "", xlPart
    End With
    SCR.EntireRow.Font.Strikethrough = True
End Sub

The above code does the strikethrough without selecting anything. If you still want to select the rows as well, add this line of code to the end...

    SCR.EntireRow.Select

 

[Haydo]

Jackpot
Thanks for your time.