OzGrid

How to add frequently used text to a cell

< Back to Search results

 Category: [Excel]  Demo Available 

How to add frequently used text to a cell

 

Requirement:

 

The user would like to add the words "Dynamic Assessment:" to the end of the body of text in the active cell. The user would also like this text to be in bold.

For example:

This is the body of text.

This is the body of text. Dynamic Assessment:

 

Solution:

 

Code:
Sub AddBoldText()
'Adds Bold Text to Active Cell
Dim x As Long
    x = Len(ActiveCell) + 2
    ActiveCell = ActiveCell & " Dynamic Assessment:"
    ActiveCell.Characters(Start:=x, Length:=19).Font.FontStyle = "Bold"

 

Obtained from the OzGrid Help Forum.

Solution provided by Carim and KjBox.

 

See also: Index to Excel VBA Code and Index to Excel Freebies and Lesson 1 - Excel Fundamentals and Index to how to… providing a range of solutions and Index to new resources and reference sheets

 

See also:

How to copy cell value on Sheet 1 to a location in a text in another cell on Sheet 2
How to run a macro if a column has a certain text in it
How to find list of most frequent text in excel
How to add rows and specific text after changes in data

 

Click here to visit our Free 24/7 Excel/VBA Help Forum where there are thousands of posts you can get information from, or you can join the Forum and post your own questions.


Gallery



stars (0 Reviews)