Make A Cell Font Bold
Jul 30, 2009I have the following code that I am using for a header row of an excel sheet
View 3 RepliesI have the following code that I am using for a header row of an excel sheet
View 3 RepliesI 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 formula (Below) and it is working great. Only problem is that I want the client name to be be bold and font size 12, then I want it to highlight in Red. I also want the rows in colunm L to highlight in bright green.
Sub InputData()
Dim varUserInput As Variant
Dim LastRow As Integer
LastRow = Cells(Rows.Count, "G").End(xlUp).Row + 1
varUserInput = InputBox("Enter client name:", _
"Client Name", "")
If varUserInput = "" Then Exit Sub
Range("G" & LastRow).Value = varUserInput
Range("G" & LastRow + 20).Value = "Total".......................
I have a cell (lets say F4) with the formula "=A3" in it. In cell A3 is text that is partially italicized. I need a way for F4 to populate not only the text that is in A3 but also the font style.
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 Relatedi have some code where i need to make the text bold but not sure how to go about it
the formula is
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 to create an if statement based on font properties.
I did a couple searches on "conditional formatting" but didn't find anything, and it seems like the only way would be through a macro, am i correct? I'd much rather be able to do this on a formula sheet if possible.
I have a pivot table with 10 sub total rows, I would like to know if it is possibe to change the font into bold for rows who are subtotals.
View 6 Replies View RelatedI need to create a macro that will examine a range of cells, for example D12:T12, find the cell with the largest number value in that range then set the font for that cell to bold (or red, or change the cell background color).
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 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 RelatedmyItem = "Big"
myText.Text = myItem & " houses are " & myItem
Is it possible to make myItem bold inside the textboxes? If so, how?
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.
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.
'Code1
Call movedata(1, rrow, ecol, erow)
'Contact Person
Call movedata(26, rrow, ecol, erow)
Worksheets("new").Activate
Worksheets("new"). Range(Cells(erow, ecol), Cells(erow, (ecol - 2))).Font.Bold = True
'Name
Call movedata(2, rrow, ecol, erow)
'Street Address
Call movedata(3, rrow, ecol, erow)
'city
Call movedata(4, rrow, ecol, erow)
' zip
Call movedata(5, rrow, ecol, erow)
Worksheets("new").Range(Cells(erow, ecol)).Font.Bold = True
' speed dial
Call movedata(6, rrow, ecol, erow)
the first time font.bold is set to true, it completes w/o error. The bolded line returns 'application defined or object defined error 1004'. Ive tried activating the new sheet immediately before setting bold (like the first time it gets set) but it still errors.
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.
How do we run a macro if the selection is not bold and If bold then do nothing.
View 3 Replies View Relatedi am trying to write a small piece of vba
basically if the cell in column "0" is bold then bold colum "o"
and "m" this must loop to last data row of colum "O"
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'm looking to set up a spreadsheet whereby individuals answer questions and have to format their answer using a particular font, colour, font size and so on. The idea is that I can then compare their answer sheet to a pre completed one using an =IF function and get a total score. The only problem is =if and =exact only lookup cell text/numbers and don't look at how the text is formatted within them.
View 9 Replies View RelatedI'm trying to create a VBA module that will update data. However, I need it to skip any updates to data that has been set by the user. For simplicity, the user changes will be bold. I've found the info on the site for a function for counting cells in a range that are bold. But really just need to know how to get format of the cell.
View 4 Replies View RelatedThe text of the active cell's row should be displayed BOLD. In other words, My cursor is on row 8, then this whole row should be bold. Is this possible ?
View 5 Replies View RelatedI 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 want to change the last 16 characters of a cell to bold and font color.
I have this code but doesn't work. make it a working one.
VB:
Private Sub CommandButton1_Click()
Dim ctrRight As String
ctrRight = Right(Sheets("Planning").Range("B35").Value, 16)
MsgBox ctrRight
Right(Sheets("Planning").Range("B35").Value, 16).Font.Color = RGB(51, 153, 102)
Sheets("Planning").Range("B35").Font.Bold = True
End Sub
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].....
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 have a question regarding the formatting of cell values. Is it possible to format particular value of each cell in to Bold and Colored?
For example in the below example for cells A1 to A5 contains some values.
I want the value BBBBB to be bold and with red color font.
Title
AAAAA BBBBB CCCCC
DDDDD BBBBB EEEEE
BBBBB GGGGG HHHHH
LLLLL AAAAA BBBBB
I'm looking for VBA function in excel that will look up for bold cells in K column and copy values at the and of worksheet.
Lets say that cells K23, K56, K123 is bold. Macro will copy that cells to the end of worksheet with formula:
=+K23
=+K56
=+K123