I'm trying to use the below vba code that was provided by another member. The code show work to bold any text that is found matching the text string provided.
Problem I'm having is that I get a 'Type mismatch' error when the code tries to run, as below:
Public Function Colorandbold()
'USE-COLOR AND BOLD TEXT STRINGS WITHIN TEXT EXCEL VBA
'BROUGHT TO YOU BY WWW.PROGRAMMINGLIBRARY.COM
'CREATED BY MARK SLOBODA
[Code].....
Every week I have a worksheet compiled with large range of data, being input after many meetings done. The action-owner Names in open/close brackets are among the long text input in one Column (there are not more than 50 rows of data).
My problem is that in the Column every time I have to manually Bold-face the owner names in the cells that have their names, pressing F2 and Bold. Examples: ...(Wilfred)... or ...(Jacky/Joseph)... Can someone please help me with a code, say I can list out a fixed list of selected text and such code will be able to have these selected text (which is names in this case) in the cells bold-faced.
I want to have a function or macro that if cells have mingled bold text, that only the bold text shall remain in the cells, and all the rest of the text must be deleted.
View 4 Replies View RelatedHere's an interesting one:
A1 contains a text string which is both bold and unbold (
B1 is blank
I need a macro which scans the cells with text and copies the BOLD portions of the text string into the adjacent cell.
Example:
A1
The sky is blue
Macro is run
B1
sky blue
I am trying to bold specific text in a cell. I have found some language that will do this trick to a point. In addition to the word "Foxwood" I would like to bold 9 other specific words in 5 different sheets in this workbook. Is there a way to do this without the cumbersome task of repeating this language 5 times for the different sheets and 9 times for the additional words?
Dim startPos As Integer
Dim totalLen As Integer
Dim searchText As String
searchText = "Foxwood"
For Each cl In Sheets("Week1").Range("c3:c100")
[Code] ....
i have a worksheet which has a price list for parts, about 2500 rows. in the Column C i have a retail price and in Column D have -5% of the C. i need to add Column E -10% of CERTAIN items, the ones in BOLD Only, of Column D. and change the color of that cell, is there a easy way to do this. i have attached screen shot what i mean.
View 9 Replies View RelatedI am creating a sheet with the cell information coming from different cells. I want to bold and/or underline a part of the cell to add clarity.
For e.g.
Cell A1 = "Trans X" (Name of the transaction);
Cell B1 = "System Y" (System where the transaction exists)
Cell C1 = "Type Z" (Type of transaction)
I want to create a cell which has
Newsheet.Cell (x,y) =
"Name: Trans X
System: System Y
Type: Type Z"
I created the String by reading and concatenating the values, but I am not sure how to add the formatting to a part of the string.
i have some code where i need to make the text bold but not sure how to go about it
the formula is
I have the following formula (taken from the web) in my spreadsheet which let me know if a cell have bold text or not. But when the cell has 'mingled' text, i.e. only partly bold, he gave a #VALUE error.
View 10 Replies View RelatedCode that will turn the entire rows text bold and red if a cell in that row has the word.
New PO
I am merging columns. Col B has all text in bold. Col C has all text in regular font. When I use ASAP to merge, the merged column comes out all bold. When I use a formula to merge the merged column comes out all regular. What I want is for the merged column to contain the bold text from Col B in bold, and the regular text from Col C in regular.
What I want is...
This is for service plan B: Take all data and transer to new server.
What I am getting is...
This is for service plan B:Take all data and transer to new server.
OR
This is for service plan B:Take all data and transer to new server.
I am trying to create a macro that if a value in a cell in column A is bold, then the value in the same row in column H is bold, then loop it to run on the rest of the worksheet.
View 9 Replies View RelatedI am using this code to hide or unhide rows of text on another sheet:
VB:
Sub ProcessSheet1ChangeOnCellJ7(ByVal Target As Range)
Dim sAddress As String
Dim sValue As String
'Get the address of the cell that changed without '$' signs
sAddress = Target.Address(False, False)
[Code]....
When the "Not Pursuing" list box option is selected (in cell "J7" or "J8" in Sheet 1) I need to add (or over-write) "Not Pursuing" to the range of cells in column "B" (in the "Tasks" sheet), but only for that particular Goal, meaning a limited range of cells in column "B". If the "Pursuing - Show All Tasks" option is selected for a Goal then these same cells need to be blank so that the appropriate person can enter their name into the cell.
The purpose for adding "Not Pursuing" automatically to these yellow highlighted cells is that it will facilitate filtering of tasks by individual in the "Tasks" sheet..
Again I have tried several times to upload a sample file and am unable to, which I know makes it more difficult to solve. (Is there some common mistake people make? I know it's an allowed format and is very small in file size....)
Code solution can be entered directly beneath:
VB:
If Target.Value = "Not Pursuing" Then
ActiveWorkbook.Sheets("Tasks").Rows("29:29").EntireRow.Hidden = False
ActiveWorkbook.Sheets("Tasks").Rows("30:48").EntireRow.Hidden = True
I am trying to do is to make it so that users can enter data into my form (I have managed to create the form and am working on trying to figure out how to get the info entered into the form to appear in my worksheet) and then the data will cause the information to, basically, compile sentences that I want to appear in one of three cells at the bottom of the worksheet.
Essentially, at this point in time, the end goal is to make 3 cells that contain text. Eventually, this text will be indexed elsewhere, but that is for the next person to deal with. I am creating a prototype that I want to present as a process improvement.
So, when the user selects 3 in cell D7 I want the text "Customer purchased 3 Widgets at $20 each." to print in cell 82B.
I also want the user to be able to copy and paste some customer records from another program directly into a cell in the form that will just print (unchanged) into one of these boxes, too.
Lastly, I want the user to be able to select checkboxes that will, when selected, print a comment that will print in two of these boxes. For example, if the user selects yes for cell D26 then I want the text "Customer not eligible for free shipping" to appear in both cells C82 and D82.
A cell is having some content eg. "This is MrExcel Forum". Now the user selects (By dragging the cursor or Shift + Arrow keys) - "is MrE".
Is there a way i can access only this selected data thru vba?
Something like when u select some text in a cell & right click > Look-up , the selected text shows up on the look-up box.
I have an Excel sheet with 2 columns : Date and TextColumn
The TextColumn column contains in each cell text such as this :
Title1
TextLine1
TextLine2
Title2
TextLine3
TextLine4
....
I need to split each line as follows : Each title (in bold and on a new line) and the text who follows should be placed in a new row, copying the date in each new row created.
I'm using the code snippet below to add text and apply formatting to a cell within a given sheet.
[Code] .....
I'm now trying to amend this so, the word "All" is in bold text and I've recorded the a macro, and have the following:
[Code] ....
The problem is, is that when I try to amalgamate the two, I'm unable to get this to work.
i'm trying to write a macro that does the same thing as the bold button. Click once and the text is bold, click again and it un-bolds.
View 14 Replies View RelatedI need to figure out how to make certain text bold in a comment using vba. I'm making it so it adds a comment that looks like this:
View 7 Replies View RelatedI have a sheet full of names, addresses and phone numbers in one cell like this
Albert Young 16 teststreer 12C..................7888-6338
The name Albert Young is bold. The thing is I would like to split the cell putting the names in another colomn. Then it would be ideal to split the addresses and phone numbers as well. But I have no idea how to split any of these. I scanned this from a phone book, the dots are different on each row.
I have a spreadsheet with a pivot table in it. Column "G" has all of the data in it I need to abbreviate, problem is, I only want the values in BOLD face, and there are 3-5 rows seperating each boldfaced item. I would have to manually copy-paste each bold value into a new, 'clean' column ( column "I", or in a new sheet/workbook, it doesn't matter), and lather-rinse-repeat for the next 700+ rows. It sucks. No, it really does. I stumbled upon this website which is seemingly the utopia for excel macro and programming problems, so is there anyone out there that might take the time to walk me through it...?
I'm not too sure if this will be really easy difficult or really difficult but I want to write some code that compares the value of two strings, and any characters that arent in string 2 will be return formatted in bold. For example, if String1 was "The Quick Brown Fox" and String2 was "The Quick Yellow Fox jumped over the lazy dog", String2 would then be returned as "The Quick Yellow Fox jumped over the lazy dog".
View 9 Replies View RelatedI've got a messagebox in my VBA code and I would like to bold the title of the filename that I've stored in a variable. My message box code (even though you probably don't need to see it) is as follows:
MsgBox ("There has been error. Please check the file - " & strFile & " and make sure there are no #REF errors." & vbCrLf _
& "If there are, correct the errors, save the workbook and regenerate the report. If the error still persists, reboot your machine and try again.")
Is this possible, and if so, how would I go about bolding the strFile variable?
Macros question - The user enters a word, e.g. Malaysia in a particular cell (always the same location) and I want the macro to be able to find the next cell with that word in it, but it appears that when using macros you can't paste anything into the find function, so was just wondering what to do!
View 1 Replies View RelatedI have a spreadsheet with rows of cells which are either blank or have text in them.
Is there an easy way to write a formula which will make the cells which have text in them bold and make the cell colour grey. But if the cell is blank keep the cell white.
Can Excel format text in a formula?
i.e.: =if(R25>6"This is Simple test", "This is the other part part of the test")
and then underline the word "Simple" or to have the word "other" bold.
I have a data example
Cell A1 which contain text I.E = "Words"
I have link B1 To cell A1 I.E = A1
Now what I want is I want the last two words or any alphabet between alphabet
to be bold
W O R D
Example
WORD or WORD
Any alphabet between word to be bold upon my requirement.
Instead of linking that cell to another cell , i want any value when entered into that cell.
That alphabet automatically becomes bold as this will not be requiring linking to that cell
I'm using excel to open a new word document, stick some text on different lines and then save and close. The trouble is, I want to bold the titles but when I do I either bold or unbold the entire document. The codes looks like this:
With wrdDoc
With .Content
.InsertAfter "TEST"
.Bold = True
End With
.Content.InsertAfter [Word_WordCount].Offset(0, 1).Value
.Content.InsertParagraphAfter
, etc....
I am trying to select and move text from one column to another. I have roughly 1,000 cells in column A and I would like to tell Excel to select characters at certain positions and move them into the adjacent column.
I want it to look like this...
column A column B
ABCDEFGHI BCI
Each cell in column A has a 9-letter sequence. I would like to move characters 2,3 and 9 into the adjacent column
How can I change the format ie. Bold Text in one coloumn if the the data in another column is checked.
Basically, want the text in corresponding row of column "B2:B124" to be bold if the check box in the perspective row is checked?
