Hi, is there a formula for cond. format, if cell is formula / not a formula,
then no formatting / background color. this would occur if typing a number
in place of formula. thanks

Add this UDF to a module in your workbook.

Function IsFormula(cell)
IsFormula = cell.HasFormula
End Function

In CFFormula is: =IsFormula(cellref)


Gord Dibben MS Excel MVP


On Mon, 30 Apr 2007 11:32:01 -0700, nastech
wrote:

Hi, is there a formula for cond. format, if cell is formula / not a formula,
then no formatting / background color. this would occur if typing a number
in place of formula. thanks

hi, thanks; seems I have hardest time with code.
with this example pasted on sheet 2 tab, (right-click, view code, paste..)
did hit save, not sure if necessary; entering a cond. format for background
to go red (for: =isformula(K12)), nothing happens for any present of:
formula, number, empty, text

imagine something simple i am missing

"Gord Dibben" wrote:

Add this UDF to a module in your workbook.

Function IsFormula(cell)
IsFormula = cell.HasFormula
End Function

In CFFormula is: =IsFormula(cellref)


Gord Dibben MS Excel MVP


On Mon, 30 Apr 2007 11:32:01 -0700, nastech
wrote:

Hi, is there a formula for cond. format, if cell is formula / not a formula,
then no formatting / background color. this would occur if typing a number
in place of formula. thanks

The UDF is to be copied and pasted to a general module in your workbook.

It is a Function, not an event.

Alt + F11 to open VBE then CTRL + r to open Project Explorer.

Right-click on your workbook/project and InsertModule.


Gord

On Mon, 30 Apr 2007 14:04:02 -0700, nastech
wrote:

hi, thanks; seems I have hardest time with code.
with this example pasted on sheet 2 tab, (right-click, view code, paste..)
did hit save, not sure if necessary; entering a cond. format for background
to go red (for: =isformula(K12)), nothing happens for any present of:
formula, number, empty, text

imagine something simple i am missing

"Gord Dibben" wrote:

Add this UDF to a module in your workbook.

Function IsFormula(cell)
IsFormula = cell.HasFormula
End Function

In CFFormula is: =IsFormula(cellref)


Gord Dibben MS Excel MVP


On Mon, 30 Apr 2007 11:32:01 -0700, nastech
wrote:

Hi, is there a formula for cond. format, if cell is formula / not a formula,
then no formatting / background color. this would occur if typing a number
in place of formula. thanks

thank you much for help.

"Gord Dibben" wrote:

The UDF is to be copied and pasted to a general module in your workbook.

It is a Function, not an event.

Alt + F11 to open VBE then CTRL + r to open Project Explorer.

Right-click on your workbook/project and InsertModule.


Gord

On Mon, 30 Apr 2007 14:04:02 -0700, nastech
wrote:

hi, thanks; seems I have hardest time with code.
with this example pasted on sheet 2 tab, (right-click, view code, paste..)
did hit save, not sure if necessary; entering a cond. format for background
to go red (for: =isformula(K12)), nothing happens for any present of:
formula, number, empty, text

imagine something simple i am missing

"Gord Dibben" wrote:

Add this UDF to a module in your workbook.

Function IsFormula(cell)
IsFormula = cell.HasFormula
End Function

In CFFormula is: =IsFormula(cellref)


Gord Dibben MS Excel MVP


On Mon, 30 Apr 2007 11:32:01 -0700, nastech
wrote:

Hi, is there a formula for cond. format, if cell is formula / not a formula,
then no formatting / background color. this would occur if typing a number
in place of formula. thanks

on first sheet, am using code:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Target
If .Count 1 Then Exit Sub
If Target.Row < 56 Then Exit Sub
If Me.Cells(.Row, "A").Value = "." Then Exit Sub
If Not Intersect(Me.Range("BF:BG"), .Cells) Is Nothing Then
Application.EnableEvents = False
With Me.Cells(.Row, "BD")
.NumberFormat = "dd"
.Value = Now
End With
Application.EnableEvents = True
End If
End With
End Sub

Enter this one-line UDF:

Function isformula(r As Range) As Boolean
isformula = r.HasFormula
End Function

and then for any cell, say A1, pull-down:
Format Conditional Formatting Formula is and then
=isformula(a1)
--
Gary''s Student - gsnu200718

hi, thanks; seems I have hardest time with code.
with this example pasted on SHEET 2 tab, (right-click, view code, paste..)
did hit save, not sure if necessary; entering a cond. format for background
to go red (for: =isformula(K12)), nothing happens for any present of:
formula, number, empty, text

imagine something simple i am missing; On First Sheet, am using code:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Target
If .Count 1 Then Exit Sub
If Target.Row < 56 Then Exit Sub
If Me.Cells(.Row, "A").Value = "." Then Exit Sub
If Not Intersect(Me.Range("BF:BG"), .Cells) Is Nothing Then
Application.EnableEvents = False
With Me.Cells(.Row, "BD")
.NumberFormat = "dd"
.Value = Now
End With
Application.EnableEvents = True
End If
End With
End Sub


"Gary''s Student" wrote:

Enter this one-line UDF:

Function isformula(r As Range) As Boolean
isformula = r.HasFormula
End Function

and then for any cell, say A1, pull-down:
Format Conditional Formatting Formula is and then
=isformula(a1)
--
Gary''s Student - gsnu200718