Need code to edit text

djl0525

Well-known Member
Joined
Dec 11, 2004
Messages
1,240
I need a macro to:

- Remove the numbers for number bulleted items
- Remove the letters for alpha bulleted items
- Insert two line breaks after each sentence
- Replace → with [space]>[space]
- Remove [space]▼ (replace with nothing)

There can be as many as 20 bullets; they can go beyond E and 7.

---------- BEFORE

1. Start Excel, open E5-D1-PerformanceData from your Excel Chapter 5 folder, and save it as E5-D1-PerformanceReport.
To begin, you will choose a different theme for the document, which will change the font, font color, and fill color in both worksheets.
2. Choose Page Layout→Themes→Themes Themes Icon.
Notice that as you place the mouse over the different themes, you can see a preview of the changes on the worksheet. Modifying the theme means any existing formatting that uses a theme font or a theme color will change to match the new theme. However, if, for example, a cell uses standard colors instead of theme colors, it will not be affected by changing the theme.
3. Choose the Slice theme.
4. Choose Home→Font→Fill Color Fill Color Icon menu button ▼.
You can see the Theme Colors in the Fill Color menu have changed, but do NOT select any of the colors at this time. Now you will adjust two of the colors specifically.
5. Choose Page Layout→Themes→Colors Colors Icon→Customize ColorsÂ….
6. Follow these steps to set the colors for Accent 4 and Accent 5:
Figure showing how to set accent colors
Figure showing how to set accent colors
A Click the color menu button ▼ beside Accent 4.
B Choose Dark Purple, Accent 2, Darker 50%.
C Click the color menu button ▼ beside Accent 5.
D Choose Light Turquoise, Text 2, Darker 25%.
E Type LearnFast in the Name box for the new theme colors and click Save.
The new colors for Accent 4 and 5 are seen in the headings at the top of the worksheet. The new theme colors will now be saved for use in other workbooks.
7. Save the file.

---------- AFTER

Start Excel, open E5-D1-PerformanceData from your Excel Chapter 5 folder, and save it as E5-D1-PerformanceReport.


To begin, you will choose a different theme for the document, which will change the font, font color, and fill color in both worksheets.


Choose Page Layout > Themes > Themes Themes Icon.


Notice that as you place the mouse over the different themes, you can see a preview of the changes on the worksheet.


Modifying the theme means any existing formatting that uses a theme font or a theme color will change to match the new theme.


However, if, for example, a cell uses standard colors instead of theme colors, it will not be affected by changing the theme.


Choose the Slice theme.


Choose Home > Font > Fill Color Fill Color Icon menu button.


You can see the Theme Colors in the Fill Color menu have changed, but do NOT select any of the colors at this time.


Now you will adjust two of the colors specifically.


Choose Page Layout > Themes > Colors Colors Icon > Customize ColorsÂ….


Follow these steps to set the colors for Accent 4 and Accent 5:


Figure showing how to set accent colors


Figure showing how to set accent colors


Click the color menu button beside Accent 4.


Choose Dark Purple, Accent 2, Darker 50%.


Click the color menu button beside Accent 5.


Choose Light Turquoise, Text 2, Darker 25%.


Type LearnFast in the Name box for the new theme colors and click Save.


The new colors for Accent 4 and 5 are seen in the headings at the top of the worksheet.


The new theme colors will now be saved for use in other workbooks.


Save the file.


Any help will be greatly appreciated!!
DJ
 
Last edited:

Excel Facts

Format cells as date
Select range and press Ctrl+Shift+3 to format cells as date. (Shift 3 is the # sign which sort of looks like a small calendar).
let's start by looking at some data with bullets and tell us how you want it to end up

I am loosely referring to 1., 2., 3., 4., 5., 6., 7., and A, B, C, D and E, above, as bullets. In the cell, it's actually plain text.

The BEFORE and AFTER is showing you how I want it to look.

DJ
 
Upvote 0
are we talking real bullets or a cell with the letter 1 so it looks like a bullet


say cell A1 is 1. do this I assume you want to change it to do this
assuming you could have 12. do that you will need to detect where the "." is with the search function

say cell A1 is 1 do the other you will need to use search to detect that "." does not appear in the first 4 characters
so if A1 is 13 do nothing you need to ensure there is no "." and that the space is the third character

can you now write a suitable macro ?
 
Upvote 0
[TABLE="width: 968"]
<colgroup><col><col><col span="12"></colgroup><tbody>[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]col A[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]1. Do this[/TD]
[TD]Do this[/TD]
[TD]####[/TD]
[TD][/TD]
[TD]row 10[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]12. Do that[/TD]
[TD]Do that[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]1 do the other[/TD]
[TD]do the other[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]13 do nothing[/TD]
[TD]do nothing[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]A think[/TD]
[TD]think[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]AB ponder[/TD]
[TD]ponder[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD]####[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD="colspan: 11"]=IF(MID(A10,2,1)=".",MID(A10,4,99),IF(MID(A10,3,1)=".",MID(A10,5,99),IF(MID(A10,2,1)=" ",MID(A10,3,99),MID(A10,4,99))))[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD="colspan: 6"]this formula finds the dot or the space and returns the appropriate text[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD="colspan: 4"]it also works with A and AB as shown[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD="colspan: 7"]you need to build this logic into your macro - if you must have a macro[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]
 
Upvote 0
I can appreciate that this can be done with a formula. No macro required. Thank you for that.

I tried the formula you offered. It only returned a small portion of the cell contents.

Start Excel, open E5-D1-PerformanceData from your Excel Chapter 5 folder, and save it as E5-D1-Per

Do you know how to make it work for the entire cell contents?

DJ
 
Upvote 0
my post 5 - it does return entire cell contents UNLESS there are more than 99 characters, if so change the 99 in the formula to 999
 
Upvote 0
Is your "BEFORE" sample data shown in post 1 ..
- All in a single cell, or
- In 18 different cells in a column, or
- Something else?
 
Upvote 0

Forum statistics

Threads
1,223,984
Messages
6,175,786
Members
452,670
Latest member
nogarth

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top