Change font to Italic
Add this as the first line
Dim c As Range
Mike
"DavidH56" wrote:
Mike,
I keep getting an error variable not defined in this line:
If c.Font.ColorIndex = 3 Then
--
By persisting in your path, though you forfeit the little, you gain the
great.
"Mike H" wrote:
David,
I assume you have pasted the macro into the worksheet code module as
indicated below. If you have there are a couple of ways to run it.
Tools|Macro|Select this workbook|Highlight the macro name|Run
or
View|Toolbars|Forms
Click the 'Button' icon
Hover your cursor on the worksheet where you want the button
Left click and drag a button onto the worksheet
In the popup window assign the macro
Click the button
Mike
"DavidH56" wrote:
Thanks Mike for such a fast response,
My mistake, I meant used range because row amounts change each week. Is
there a way to run this in a macro so for my weekly the final report?
Thanks again
--
By persisting in your path, though you forfeit the little, you gain the
great.
"Mike H" wrote:
David,
I didn't understand the range you wanted to work on
cells with red fonts to italics and underline them from cell A2 through Q
so this has a line that will work for A2 - Q100 and another that will work
on the entire used range so use which you prefer.
Right click the sheet tab, view code and paste this in.
Sub Prime_Lending()
ActiveSheet.Range("A2:Q100").SpecialCells(xlCellTy peConstants,
xlTextValues).Select
'ActiveSheet.UsedRange.SpecialCells(xlCellTypeCons tants, xlTextValues).Select
For Each c In Selection
If c.Font.ColorIndex = 3 Then
With c.Font
.FontStyle = "Italic"
.Underline = xlUnderlineStyleSingle
End With
End If
Next
End Sub
Mike
"DavidH56" wrote:
Hi,
Could anyone please let me know how would I programmically to change all
cells with red fonts to italics and underline them from cell A2 through Q
with variable rows?
Thanks in advance.
--
By persisting in your path, though you forfeit the little, you gain the
great.
|