Hiding Strikethrough Data

[jckenney]

Colleagues,

Is there a method for hiding Strikethrough Data via Macro or Formula?

I appreciate everyone support.

Cheers
Jim

 

[Rick Rothstein]

Is there a method for hiding Strikethrough Data via Macro or Formula?

What exactly do you mean by "hiding Strikethrough Data"... hiding the entire row it is on or just making the cell display as blank?

Will the text in a single cell you want to "hide" all be Strikethrough or could only part of it be Strikethrough and the rest non-Strikethrough?

 

[jckenney]

Colleagues,

Is there a method for hiding Strikethrough Data via Macro or Formula?

I appreciate everyone support.

Cheers
Jim

Id libe to hide all rows that have any text with a strikethrough.

 

[Rick Rothstein]

Id libe to hide all rows that have any text with a strikethrough.

You did not answer my second question... for a row you want to hide, will all the text in the cell be Strikethrough or could, say, one word out of three words be Strikethrough?

Also, what column or columns should be checked for the Strikethrough?

PLEASE ANSWER BOTH OF THE ABOVE QUESTIONS

 

[jckenney]

Rick,

I have many rows that I need to hide. I need to retain the data as old and the Strike through helps me identify that the job is complete.
Does this answer your question?

Here is an example ROW 28
[TABLE="width: 1172"]
<tbody>[TR]
[TD]<strike>08/03/15</strike>[/TD]
[TD]KVRT[/TD]
[TD]<strike>JAMES KENNEY</strike>[/TD]
[TD]<strike>Repair</strike>[/TD]
[TD]<strike>1783518</strike>[/TD]
[TD]<strike>PFO 3D-2</strike>[/TD]
[TD]<strike>0042</strike>[/TD]
[TD] [/TD]
[TD]<strike>102235164</strike>[/TD]
[TD]<strike>32566059</strike>[/TD]
[TD]<strike>32565944</strike>[/TD]
[/TR]
</tbody>[/TABLE]

 

[Rick Rothstein]

Rick,

I have many rows that I need to hide. I need to retain the data as old and the Strike through helps me identify that the job is complete.
Does this answer your question?

Here is an example ROW 28
[TABLE="width: 1172"]
<tbody>[TR]
[TD]<strike>08/03/15</strike>[/TD]
[TD]KVRT[/TD]
[TD]<strike>JAMES KENNEY</strike>[/TD]
[TD]<strike>Repair</strike>[/TD]
[TD]<strike>1783518</strike>[/TD]
[TD]<strike>PFO 3D-2</strike>[/TD]
[TD]<strike>0042</strike>[/TD]
[TD] [/TD]
[TD]<strike>102235164</strike>[/TD]
[TD]<strike>32566059</strike>[/TD]
[TD]<strike>32565944</strike>[/TD]
[/TR]
</tbody>[/TABLE]

See if this macro does what you want...

Sub HideStrikethroughRows()
  Dim Rw As Range
  Application.ScreenUpdating = False
  Rows.Hidden = False
  For Each Rw In ActiveSheet.UsedRange.Rows
    If Rw.Font.Strikethrough Or IsNull(Rw.Font.Strikethrough) Then Rw.Hidden = True
  Next
  Application.ScreenUpdating = True
End Sub

 

[jckenney]

Rick,

Thank you it worked perfectly.

 

[sewing]

Rick. This is great. I created a button for this and use it daily. Can you have a macro to unhide the same rows to I can look at them if I want to?

 

[Rick Rothstein]

Give this macro a try...

  Dim Rw As Range
  Application.ScreenUpdating = False
  For Each Rw In ActiveSheet.UsedRange.Rows
    If Rw.Font.Strikethrough Or IsNull(Rw.Font.Strikethrough) Then Rw.Hidden = False
  Next
  Application.ScreenUpdating = True
End Sub

 

[sewing]

Excellent. Works perfectly. Thank you!!