I have the following code:
[Code] ..........
However, whenever I run the code, if there's even on word that is bold in the cell, then the entire text string in the cell turns bold. How can I stop this from happening? i want to keep the format of the text string the same, only remove and replace the items listed in the code.
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 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 RelatedCode that will turn the entire rows text bold and red if a cell in that row has the word.
New PO
i have some code where i need to make the text bold but not sure how to go about it
the formula is
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.
Public Sub OptionButton1_click()
Sheet1.Select
ActiveSheet.OLEObjects("OptionButton1").Interior.Font.Bold = True
End Sub
The problem i have is when i click on one of the option buttons it should change the cells ive highlighted to bold.
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 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 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've created an Excel 2007 workbook with about a dozen worksheets that are full of formulas and links to other workbooks, as well as conditional formatting that isn't backwardly compatible with Excel 2003. However, many people who want to see this workbook are still on Excel 2003. I need to recreate an Excel 2003 compatible workbook with the appearance and formatting of the original and have all the formulas and links converted to values. So, the final product will "look" just like the original without the conditional formatting, links or formulas. It will just have the look, colors and values displayed for all cells.
Essentially, I want a macro that will copy however many worksheets (1-n) are in an Excel 2007 workbook to a new Excel 2003 workbook. I'd like the worksheets to retain their label names as well.
I 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'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 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.
I'm trying to copy entire row from sheet "source" to sheet "output".
Condition: If cell or cells in range (E7: lastcoll, lastrow) value is "A" then copy entire row.
Find the excel template in attachment.
My problem is that my macro is copying particular row, as many times as many "A" finds.
I want to copy entire row just once doesn't matter how many cells with "A" are in particular row.
VB:
'function to find last column a change letter of column to number
Private Function ColLetter(LastCol)
ColLetter = Split(Cells(1, LastCol).Address, "$")(1)
End Function
[Code] .....
copyROW.xlsm
How to copy the content of cells from an excell->sheet1 to an string array
View 2 Replies View RelatedI am trying to make a word within a formula bold.
The word doesn't have to be bolded depending on the result. It will either appear or not based on the result of the formula. But obviously, if it appears, it [should] be bolded...
Obviously you can't format text on the formula bar. This is something I've wanted to do in Excel for YEARS!
I have the following code that I am using for a header row of an excel sheet
View 3 Replies View RelatedI'm trying to have a macro run to search a specific column (S) for a particular text value "y" and if true it will change the font to bold and the color to red for the entire row of the cell that contains the "y". the column is part of a data table that is constantly refreshed not sure if that makes a difference or not.
View 2 Replies View RelatedmyItem = "Big"
myText.Text = myItem & " houses are " & myItem
Is it possible to make myItem bold inside the textboxes? If so, how?
I have a formula that combines the the text of various cells.
Is there a way to automatically make part of the cell Bold - so in this case I want the Cell B13 to appear in bold.
See formula below:
How do we run a macro if the selection is not bold and If bold then do nothing.
View 3 Replies View RelatedI have an Excel 2010 spreadsheet that I am using to save several numbers all in the same column. These numbers can range from the several thousands up to billions. The formatting I am using for these numbers is Number (using 1000s separator).
number_forma.png
I am also using the spreadsheet to generate a text string for each of the numbers. I don't want the text string to show the number as it is, I want to shorten the number by only showing the first few digits followed by a "B" for billion, "M" for million, or "K" for thousand. For example, in the text string I want to show 1,600,000 as 1.6B.
In order to shorten the number I use the cell in the column to the right of each number. This cell uses the following custom formatting (which I found by doing a Google search): [>999999999.999]#.0,,,"B";[>999999.999]#,,"M";#,"K";
custom_format.png
As you can see the formatting is quite complex (at least for me it is) but it does what I want it to do.
Here is a screenshot of what the original and custom formatted cells look like:
custom_formatted_cells.png
As you can see the custom formatting works and does exactly what I wan
The next column (after the custom formatted number) is where I put the generated text string for each of the numbers. As I stated above, I want the generated text to use the shortened version of the number (e.g. 1.6B).
To generate the text I use the CONCATENATE function with a reference to the cell containing the shortened number as one of the arguments. For example:
CONCATENATE("SOME STRING ", B1)
Where B1 is the custom formatted cell.
The problem I am running into is, the text that gets generated doesn't show the shortened format of the number, it shows the full number. Here is a screenshot demonstrating what is happening:
concatenate_formula.png
As you can see the generated text is "SOME STRING 1600000000". This is not what I want. I want the generated text to be "SOME STRING 1.6B".
I think I understand what's going on. When the CONCATENATE function references a cell it takes the actual value of the cell and ignores any formatting. (I suppose formatting is just the way you see the data, not how underlying functions receive the data.)
My question is, how can I re-write the CONCATENATE function (or use another function, etc. available to me) to use the formatted version of the cell?
*UPDATE* I have attached my spreadsheet as an attachment to this post (tackyjan_excelforums.xlsx). Please note that it was created and saved using Excel 2010.
I am using ctrl+f to find a string that may or may not be in a worksheet.
If it is found, i need to bold the row.
If it is not found, i need to go on to the next instruction in the macro.
I just don't know quite how to combine the If/Then with Find.
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 write some code that will look in an excel cell find if it contains the word that I am looking for and make it bold. I have written the following code so far
VB:
With Worksheets("Label Print").Cells(i, J)
.Characters(Start:=InStr(.Value, "Name"), Length:=Len("Name")).Font.Bold = True
End With
[COLOR=#3E3E3E][B][/B][/COLOR]
The issue is that if "Name" occurs twice (or more) in a cell it will highlight only the first.
I have some text in a cell, which is longer than the width that I am going to make that cell. When I don't wrap the text, it cuts it off at the end of the cell.
Since each column represents a day in a calendar, it would be incorrect to merge the two cells, but I don't want the text hidden, since I need to print the final product.
It is non-numeric text, and i've pasted --> values to remove formula issues.
I'm working on a Excel template where 6 cells are filled with text. Now I want to put all the text in those cells into one 'result cell'. I already know how to put the cell values into strings and paste them beneath each other.
My problem is that I don't only want to copy the cell values but also the formatting, because all of the separate cells have a bold title. If I only copy the values the formatting isn't copied with it, so my question is:
How do I copy the cell formatting (bold titles) with it or how can I make a string bold?? Beneath is my code:
[Code] ....
I'm trying to figure out a macro that will add b and /b tags around bold text. Bolded text can appear multiple times within a cell. I need it to run on all cells within a sheet.
So I need it to:
1. Search for bold strings within cells
2. Identify the length of the bolded strings
3. Add b and /b at the beginning and end of those strings
4. Repeat for all active cells
The only macro I was able to work out adds tags to only the last bolded string, whereas I need the tags on several non-continuous strings.
I want to run a macro to Import Entire Text File in Single Cell
I have some Text Files in a Directory
Code:
Eg: C:Records
Each Sub Folder will have 1 Text File
Code:
Eg: C:RecordsFolder1Text File1.txt
C:RecordsFolder2Text File2.txt
C:RecordsFolder3Text File3.txt
I want to import Each Text File into One Single Cell Like
Code:
Row Column A Column B
1 Text File1 Text File1 Content
2 Text File2 Text File2 Content
3 Text File3 Text File3 Content
4
5
Is it possible to this through VBA.