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 the following code that I am using for a header row of an excel sheet
View 3 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 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 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 Related '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 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 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 am trying to use VBA code to set the last row to bold. I have been able to set the entire row to bold using:
Code:
EntireRow.Font.Bold = True
but I would like for the code to be more dynamic. I.E. Only making cells on the last row Bold If they contain values. I have been able to do something similar in the past with interior color on the header row but, am looking for the same type of thing for the last row in this instance. The code I was able to use to turn the interior color of cells Green looked like this:
Code:
Range("A1", Cells(1, Columns.Count).End(xlToRight)).SpecialCells(xlCellTypeConstants).Interior.ColorIndex = 3
I need to sort by cells that are bold. Does anybody know a way I can do this?
View 10 Replies View RelatedCol. A are dates,I would like to format Cells so the last day of the month is bold useing conditional fomating
I have a simple concatenate in Excel...
=CONCATENATE(A1, ", ", A2)
Which produces:
This is, my text
Now, I want 'my text' i.e. the contents of A2 to be in bold.
I've played with the TEXT() function before, as per this page:
[url]
To get Excel to play nicely with date formats and stuff, however, my research has come to a dead end with Bold/Italic - with everyone suggesting that VBA is the only solution.
As I don't feel overly comfortable using VBA is there any other solution? (If not, is this a VBA 101 task or an advanced task?)
I'm new to VBA and needed help with:
I need to 'bold' the row which contains sum, the problem is that the location of the row varies depending on how long/short the report is....
Here is the code I used to bold a particular row:
Range("A14").EntireRow.Font.Bold = True
But instead of A14, i need it to be a row of no more than 5 columns, one of which contains the word 'SUM'.
i 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"
Instead of bolding only the cells with an asterick in them it will bold every cell with text in it. I also would like to adapt this code to only search through column A but have not been able to figure it out.
Sub FindIt()
Dim c As Range, firstaddress As String, ws As Worksheet, FindMe As String
FindMe = "*"
For Each ws In ThisWorkbook.Worksheets
With ws.UsedRange
Set c = .Find(FindMe, LookIn:=xlValues)
If Not c Is Nothing Then
firstaddress = c.Address
Do
c.Font.bold = True
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstaddress
End If
End With
Next ws
End Sub
is there any way to get a formula to count only the entries that are in bold abd ignore all others
View 9 Replies View Relatedi'm using the following code to make a selection bold or not (basically as a replacement for the bold button). It works fine unless you select a group of cells...some of which are already bold and some of which are not...in this case it doesn't work....here is the code
View 2 Replies View RelatedThe following code doesn't seem to work for me except when I use an actual number.
Set MR = Range("A1:A100")
For Each cell In MR
If cell.Value = "*3L*" Then cell.EntireRow.Font.Bold = True
Next
I am attempting to bold the entire row if the macro finds text that begins with 3L in a tab. If I change the code to look for a number, then it works fine.
Also - Is there a way to make this run on specified tabs? For instance, if I have four tabs:
January
February
March
Q1
Say I only want it to run on the January, March, and Q1 tab, how would I go about doing that?
in the Score column I want a 3 for the SnAkEs team and 7 for the dj2 team. How do I total up the bold cells?
View 9 Replies View RelatedI 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'm having a problem making my font bold when I click on my checkbox and when I uncheck it I want the font to become unbold. I can make it bold when its checked but am not able to make it return to normal when i uncheck it..
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 Relatedim trying to write a function and i want output to be bold when integers are outputed i did it like
Range("years").Cells(j).Font.Bold =periods
which is fine but i want to clear cells each time program is run so i used
range("x").clearcontents
, but this only deletes the values, so my question is how to delete boldness as well? i tried using IF then false function but it didnt do the job. This is what i tried to use
For j = i To def_frq * i
periods = j / def_frq
If periods = i Then Range("years").Cells(j).Font.Bold = periods Else Range("years").Cells(j) = periods
If periods <> i And Range("years").Cells(j).Font.Bold = periods = True Then Range("years").Cells(j).Font.unbold = periods Else Range("years").Cells(j) = periods
Basically I use it to split year into however many periods so it will give me fractions of the year ,but i want to select in bold when it is the whole year.
As a starter in VBA i have a lot of doubts... one of them is, how can i sum in a column the cells that are bold? i've thought that sumif was the trick, but i don't find the way to be able to adapt code.
View 2 Replies View Related