Posted by Juan Pablo G. on December 22, 2001 3:57 PM
Jack, i already answered to your previous post.
Juan Pablo G.
Posted by Jack in UK on December 22, 2001 5:03 PM
Im explaining poorly my fault, your post it prefect but i want to add to it.
You have told me how to add a discription wich is wonderful, i would like to add this
Typr =vlookup( and press the = on the formula bar
enter the first argument looup value the below test reads
Searches for a value
also
Lookup value is the valeue to be found
this is the part i want to add
Click in the second box table array
searches for value
BUT the secon part changes to
Table array is a tble of text
It changes to the text fro that argument
This i cant do, im lost now, i know must be something easy but i can see it
Code is :
Function AddA(Offset_Cols_by, _
Offset_Rows_by As Integer) As Variant
MyFormat = ("A0000")
Application.Volatile
AddA = Format(Application.Caller.Offset _
(Offset_Rows_by, Offset_Cols_by).Value, MyFormat)
End Function
Ang help Juan i would love to know, just nice to give it my best, with a little help of cause
Cheers Juan
Posted by Ivan F Moala on December 22, 2001 8:06 PM
Hi Jack
I know what you mean...answered this way back
in achives 1....but have a look @
http://j-walk.com/ss/excel/eee/eee009.txt
Look for Luarent Longre's method
There areother ways.
HTH
Ivan
Posted by Jack in UK on December 23, 2001 2:33 AM
Ivan
I have the section ....Not that it makes much sence to me, my code is under that , confused
Sub Register(FunctionName As String, NbArgs As Integer, _
Args As String, MacroType As Integer, Category As String, _
Descr As String, DescrArgs As String, FLib As String)
Application.ExecuteExcel4Macro _
"REGISTER(" & Lib & ",""" & FLib & """,""" & String(NbArgs, "P") _
& """,""" & FunctionName & """,""" & Args & """," & MacroType _
& ",""" & Category & """,,,""" & Descr & """," & DescrArgs & ")"
End Sub
>>>>
Function Jack_AddA(Offset_Cols_by, _
Offset_Rows_by As Integer) As Variant
MyFormat = ("A0000")
Application.Volatile
Jack_AddA = Format(Application.Caller.Offset _
(Offset_Rows_by, Offset_Cols_by).Value, MyFormat)
End Function
Posted by Ivan F Moala on December 23, 2001 8:44 PM
Jack
When I get time I'll have a look
Ivan
I have the section ....Not that it makes much sence to me, my code is under that , confused Sub Register(FunctionName As String, NbArgs As Integer, _ Application.ExecuteExcel4Macro _ "REGISTER(" & Lib & ",""" & FLib & """,""" & String(NbArgs, "P") _ & """,""" & FunctionName & """,""" & Args & """," & MacroType _ & ",""" & Category & """,,,""" & Descr & """," & DescrArgs & ")" End Sub >>>> Function Jack_AddA(Offset_Cols_by, _ Offset_Rows_by As Integer) As Variant
Posted by Jack in UK on December 24, 2001 3:03 PM
When I get time I'll have a look I have the section ....Not that it makes much sence to me, my code is under that , confused : Sub Register(FunctionName As String, NbArgs As Integer, _ Application.ExecuteExcel4Macro _ "REGISTER(" & Lib & ",""" & FLib & """,""" & String(NbArgs, "P") _ & """,""" & FunctionName & """,""" & Args & """," & MacroType _ & ",""" & Category & """,,,""" & Descr & """," & DescrArgs & ")" : End Sub : >>>> : Function Jack_AddA(Offset_Cols_by, _ Offset_Rows_by As Integer) As Variant
Ivan
When your ready please post i would love to know, i know.....cheers and thanks