Stike out text in a cell
I have a spreadsheet with strike out text combine with regular text in a
cell. How do I remove only the strike out text from the cells? The column is over 7000 rows and it would be great if I can accomplish this task automatically. Thanks in advance for any help provided. Frank |
Stike out text in a cell
Frank
CTRL + a(twice in 2003) to select all cells. FormatCellsFont. Uncheck "strikethrough" Gord Dibben MS Excel MVP On Thu, 23 Aug 2007 08:45:44 -0500, "Frank Beltre" wrote: I have a spreadsheet with strike out text combine with regular text in a cell. How do I remove only the strike out text from the cells? The column is over 7000 rows and it would be great if I can accomplish this task automatically. Thanks in advance for any help provided. Frank |
Stike out text in a cell
Gord,
Thank you for replying. I tried it, but it just removes the strikethrough line from the text. I need all the strikethrough text to be deleted. I am using 2007. Thanks, Frank "Gord Dibben" <gorddibbATshawDOTca wrote in message ... Frank CTRL + a(twice in 2003) to select all cells. FormatCellsFont. Uncheck "strikethrough" Gord Dibben MS Excel MVP On Thu, 23 Aug 2007 08:45:44 -0500, "Frank Beltre" wrote: I have a spreadsheet with strike out text combine with regular text in a cell. How do I remove only the strike out text from the cells? The column is over 7000 rows and it would be great if I can accomplish this task automatically. Thanks in advance for any help provided. Frank |
Stike out text in a cell
Sorry about that.........misread.
Got to go now but will get back later and see what can be done. Hope you get an answer sooner. Gord On Thu, 23 Aug 2007 09:27:49 -0500, "Frank Beltre" wrote: Gord, Thank you for replying. I tried it, but it just removes the strikethrough line from the text. I need all the strikethrough text to be deleted. I am using 2007. Thanks, Frank "Gord Dibben" <gorddibbATshawDOTca wrote in message .. . Frank CTRL + a(twice in 2003) to select all cells. FormatCellsFont. Uncheck "strikethrough" Gord Dibben MS Excel MVP On Thu, 23 Aug 2007 08:45:44 -0500, "Frank Beltre" wrote: I have a spreadsheet with strike out text combine with regular text in a cell. How do I remove only the strike out text from the cells? The column is over 7000 rows and it would be great if I can accomplish this task automatically. Thanks in advance for any help provided. Frank |
Stike out text in a cell
Enter this macro.
Select the cells you want to clean-up. Run the macro. Sub no_strike() ' ' gsnuxx ' For Each r In Selection v = r.Value v_out = "" For i = 1 To Len(v) piece = Mid(v, i, 1) If r.Characters(Start:=i, Length:=1).Font.Strikethrough = False Then v_out = v_out & piece End If Next r.Value = v_out Next End Sub -- Gary''s Student - gsnu200739 "Frank Beltre" wrote: I have a spreadsheet with strike out text combine with regular text in a cell. How do I remove only the strike out text from the cells? The column is over 7000 rows and it would be great if I can accomplish this task automatically. Thanks in advance for any help provided. Frank |
Stike out text in a cell
Thanks for chipping in.
Does the job. I like the way you eliminated the spaces. My attempts.....not yet posted but why bother now........got rid of the strikethrough text but left spaces. Gord On Thu, 23 Aug 2007 16:00:05 -0700, Gary''s Student wrote: Enter this macro. Select the cells you want to clean-up. Run the macro. Sub no_strike() ' ' gsnuxx ' For Each r In Selection v = r.Value v_out = "" For i = 1 To Len(v) piece = Mid(v, i, 1) If r.Characters(Start:=i, Length:=1).Font.Strikethrough = False Then v_out = v_out & piece End If Next r.Value = v_out Next End Sub |
Stike out text in a cell
Freaking awesome! It works really good! I got it to work on Excel 2007,
having a compile error in 2003, but nothing I can't figure out. Thank you guys for the support. Frank "Gord Dibben" <gorddibbATshawDOTca wrote in message ... Thanks for chipping in. Does the job. I like the way you eliminated the spaces. My attempts.....not yet posted but why bother now........got rid of the strikethrough text but left spaces. Gord On Thu, 23 Aug 2007 16:00:05 -0700, Gary''s Student wrote: Enter this macro. Select the cells you want to clean-up. Run the macro. Sub no_strike() ' ' gsnuxx ' For Each r In Selection v = r.Value v_out = "" For i = 1 To Len(v) piece = Mid(v, i, 1) If r.Characters(Start:=i, Length:=1).Font.Strikethrough = False Then v_out = v_out & piece End If Next r.Value = v_out Next End Sub |
Stike out text in a cell
Spoke too soon! Do I need to modify the code for it to work in Excel 2003,
Visual Basic 6.3? I am getting a "compile error: Syntax error". It is working fine in Excel 2007 though. I need to do this in my work computer, which is the one with Excel 2003. Thanks, Frank "Frank Beltre" wrote in message ... Freaking awesome! It works really good! I got it to work on Excel 2007, having a compile error in 2003, but nothing I can't figure out. Thank you guys for the support. Frank "Gord Dibben" <gorddibbATshawDOTca wrote in message ... Thanks for chipping in. Does the job. I like the way you eliminated the spaces. My attempts.....not yet posted but why bother now........got rid of the strikethrough text but left spaces. Gord On Thu, 23 Aug 2007 16:00:05 -0700, Gary''s Student wrote: Enter this macro. Select the cells you want to clean-up. Run the macro. Sub no_strike() ' ' gsnuxx ' For Each r In Selection v = r.Value v_out = "" For i = 1 To Len(v) piece = Mid(v, i, 1) If r.Characters(Start:=i, Length:=1).Font.Strikethrough = False Then v_out = v_out & piece End If Next r.Value = v_out Next End Sub |
Stike out text in a cell
Never mind that. I got it to work. I was inadvertently copying the code in
the wrong place. Thank you again, Frank "Frank Beltre" wrote in message ... Spoke too soon! Do I need to modify the code for it to work in Excel 2003, Visual Basic 6.3? I am getting a "compile error: Syntax error". It is working fine in Excel 2007 though. I need to do this in my work computer, which is the one with Excel 2003. Thanks, Frank "Frank Beltre" wrote in message ... Freaking awesome! It works really good! I got it to work on Excel 2007, having a compile error in 2003, but nothing I can't figure out. Thank you guys for the support. Frank "Gord Dibben" <gorddibbATshawDOTca wrote in message ... Thanks for chipping in. Does the job. I like the way you eliminated the spaces. My attempts.....not yet posted but why bother now........got rid of the strikethrough text but left spaces. Gord On Thu, 23 Aug 2007 16:00:05 -0700, Gary''s Student wrote: Enter this macro. Select the cells you want to clean-up. Run the macro. Sub no_strike() ' ' gsnuxx ' For Each r In Selection v = r.Value v_out = "" For i = 1 To Len(v) piece = Mid(v, i, 1) If r.Characters(Start:=i, Length:=1).Font.Strikethrough = False Then v_out = v_out & piece End If Next r.Value = v_out Next End Sub |
Stike out text in a cell
You are very welcome.
This kind of application is MUCH easier in Word than Excel, but still "do-able" -- Gary''s Student - gsnu200739 "Frank Beltre" wrote: Never mind that. I got it to work. I was inadvertently copying the code in the wrong place. Thank you again, Frank "Frank Beltre" wrote in message ... Spoke too soon! Do I need to modify the code for it to work in Excel 2003, Visual Basic 6.3? I am getting a "compile error: Syntax error". It is working fine in Excel 2007 though. I need to do this in my work computer, which is the one with Excel 2003. Thanks, Frank "Frank Beltre" wrote in message ... Freaking awesome! It works really good! I got it to work on Excel 2007, having a compile error in 2003, but nothing I can't figure out. Thank you guys for the support. Frank "Gord Dibben" <gorddibbATshawDOTca wrote in message ... Thanks for chipping in. Does the job. I like the way you eliminated the spaces. My attempts.....not yet posted but why bother now........got rid of the strikethrough text but left spaces. Gord On Thu, 23 Aug 2007 16:00:05 -0700, Gary''s Student wrote: Enter this macro. Select the cells you want to clean-up. Run the macro. Sub no_strike() ' ' gsnuxx ' For Each r In Selection v = r.Value v_out = "" For i = 1 To Len(v) piece = Mid(v, i, 1) If r.Characters(Start:=i, Length:=1).Font.Strikethrough = False Then v_out = v_out & piece End If Next r.Value = v_out Next End Sub |
All times are GMT +1. The time now is 07:53 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com