Hi All,
This may help. Chang the code as you want.
Sub ChangeformulaColor()
If Application.IsText(ActiveCell) = True Then
MsgBox ("Text")
Else
If ActiveCell = "" Then
MsgBox ("Blank")
Else
End If
If ActiveCell.HasFormula = True Then
ActiveCell.Select
With Selection.Font
.Name = "Arial"
.FontStyle = "Regular"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 46
End With
With Selection.Interior
.ColorIndex = 36
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Else
End If
If IsDate(ActiveCell.Value) = True Then
MsgBox ("date")
Else
End If
End If
End Sub
Regards
Hari Kumar
_____
From: excel-macros@googlegroups.com [mailto:excel-mac...@googlegroups.com]
On Behalf Of Dave Bonallack
Sent: Monday, April 13, 2009 9:55 PM
To: excel-macros@googlegroups.com
Subject: $$Excel-Macros$$ Re: color code excel cell if a cell has a formula
Hi,
A quick way to reveal which cells have formulas:
Ctrl+`
That's Ctrl plus the key above the Tab key.
Regards - Dave.
> Date: Mon, 13 Apr 2009 11:15:32 -0700
> Subject: $$Excel-Macros$$ color code excel cell if a cell has a formula
> From: ned...@yahoo.com
> To: excel-macros@googlegroups.com
>
>
> could anyone tell me how to color code an excel cell if a cell has a
> formula. I have a long worksheet with lot of data and it it hard to
> tell which data is a formula and which is just value entered by users.
> Thanks
>
> </html
--~--~---------~--~----~------------~-------~--~----~
-------------------------------------------------------------------------------------
Some important links for excel users:
1. Excel and VBA Tutorials(Video and Text), Free add-ins downloads at
http://www.excelitems.com
2. Excel tutorials at http://www.excel-macros.blogspot.com
3. Learn VBA Macros at http://www.vbamacros.blogspot.com
4. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
If you find any spam message in the group, please send an email to:
Ayush Jain @ jainayus...@gmail.com or
Ashish Jain @ 26may.1...@gmail.com
-------------------------------------------------------------------------------------
-~----------~----~----~----~------~----~------~--~---
