ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Worksheet Functions (https://www.excelbanter.com/excel-worksheet-functions/)
-   -   unrecognized fuctions evapp etc (https://www.excelbanter.com/excel-worksheet-functions/5632-unrecognized-fuctions-evapp-etc.html)

Lee

unrecognized fuctions evapp etc
 
I have an excel spreadsheet that was sent to me that
contains functions that I do not recognize - e.g. EVAPP
EVGTS, etc. I get an #NAME? error in these cells. Does
anyone know what these are? I'm guessing some kind of
user defined functions.

Don Guillett

If you are getting name, it means they don't exist. a UDF would be in a
regular macro module.

--
Don Guillett
SalesAid Software

"Lee" wrote in message
...
I have an excel spreadsheet that was sent to me that
contains functions that I do not recognize - e.g. EVAPP
EVGTS, etc. I get an #NAME? error in these cells. Does
anyone know what these are? I'm guessing some kind of
user defined functions.




hgrove


Lee wrote...
I have an excel spreadsheet that was sent to me that contains

functions that I
do not recognize - e.g. EVAPP EVGTS, etc. I get an #NAME? error in

these cells.
Does anyone know what these are? I'm guessing some kind of user

defined
functions.


They're almost certainly user-defined or add-in functions. If they're
implemented in a commercial product, i.e., one you'd have to pay to
use, then the only way you could use this workbook would be for the
person who sent it to you to convert all formulas containing these
formulas to values or you'd have to buy the add-in yourself.

With regard to converting all formulas containing these functions to
values, a simple macro may suffice.


Sub foo()
Dim ws As Worksheet, c As Range, fn As Variant, fa As Variant
Dim p As Long, cf As String

fa = Array("EVAPP", "EVGTS") 'etc.


For Each ws In ActiveWorkbook.Worksheets

For Each c In ws.UsedRange

If c.HasFormula Then
cf = c.Formula

For Each fn In fa
p = InStr(2, cf, fn & "(", vbTextCompare)

If p 1 And Mid(cf, IIf(p 1, p - 1, 1), 1) Like
"[-+*/^=(,]" Then
c.Value = c.Value
Exit For

End If

Next fn

End If

Next c

Next ws

End Sub


--
hgrove
------------------------------------------------------------------------
hgrove's Profile: http://www.excelforum.com/member.php...o&userid=11432
View this thread: http://www.excelforum.com/showthread...hreadid=275076



All times are GMT +1. The time now is 02:51 AM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com