Has =TEXT(. . .,0) been applied?
 

Is there a way to tell if a value in a cell has been treated with the
=TEXT formula, and then pasted back as values?

Pete

Has =TEXT(. . .,0) been applied?
 

On Jun 1, 8:25*am, Pete wrote:
Is there a way to tell if a value in a cell has been
treated with the =TEXT formula, and then pasted back
as values?

Certainly not literally. You cannot know what was in the cell before
it was changed.

However, you can write a macro that determines if a cell contains a
formula or not.

Function cellHasFormula(r As Range) As Boolean
cellHasFormula = r.hasFormula
End Function

AFAIK, there is no way to accomplish the same thing using just Excel
functions.

Has =TEXT(. . .,0) been applied?
 

Hi Pete,

Am Wed, 1 Jun 2011 08:25:16 -0700 (PDT) schrieb Pete:

Is there a way to tell if a value in a cell has been treated with the
=TEXT formula, and then pasted back as values?

for TEXT formula in range("C1:C10"):
Sub TextFormula()
Dim rngCell As Range

For Each rngCell In Range("C1:C10")
With rngCell
If Left(.Formula, 5) = "=TEXT" Then
.Value = .Value
End If
End With
Next
End Sub


Regards
Claus Busch
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2

Has =TEXT(. . .,0) been applied?
 

On Jun 1, 12:13*pm, Claus Busch wrote:
Hi Pete,

Am Wed, 1 Jun 2011 08:25:16 -0700 (PDT) schrieb Pete:

Is there a way to tell if a value in a cell has been treated with the
=TEXT formula, and then pasted back as values?

for TEXT formula in range("C1:C10"):
Sub TextFormula()
Dim rngCell As Range

For Each rngCell In Range("C1:C10")
With rngCell
* * If Left(.Formula, 5) = "=TEXT" Then
* * * * .Value = .Value
* * End If
End With
Next
End Sub

Regards
Claus Busch
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2

Thank you both joeu2004 and Claus.

Pete