Could you please attach one example of using the function i.e. left lookup function using the user defined function.
Regards, C.G.Kumar _____ From: excel-macros@googlegroups.com [mailto:excel-mac...@googlegroups.com] On Behalf Of Paul Schreiner Sent: Thursday, October 29, 2009 8:09 PM To: excel-macros@googlegroups.com Subject: $$Excel-Macros$$ Re: Help with user defined function The problem is with the LOCATION of your UDF. VBA itself will look in Personal.xls and Personal.xlsb, but the Excel worksheet is NOT. If you had a sheet called "Sheet1" and another called "Sheet2", and you wanted the cell B4 of Sheet1 to display the contents of cell C10 of Sheet2, you couldn't use: =C10 in B4, because it would show you the contents of C10 in the CURRENT SHEET. You would have to use: =Sheet2!C10 so that Excel knows WHERE the cell is located. the same thing applies to Functions. the worksheet looks in standard Excel functions, then in the functions defined in the CURRENT WORKBOOK. but it doesn't automatically go looking in other workbooks. What you need to do is EITHER put the function in the workbook where you intend to use it, or.. use the Function Wizard to add the formula to the cell. the last category entry of the Function Wizard is "User Defined". You'll find that the function is inserted as: =PERSONAL.XLS!VLOOKNEW(..... Paul _____ From: Mayank <mkpat...@gmail.com> To: excel-macros@googlegroups.com Sent: Thursday, October 29, 2009 9:23:50 AM Subject: $$Excel-Macros$$ Help with user defined function Dear friends, I HAVE FOUND THIS USER DEFINED VLOOKUP FUNCTION WHICH FIND THE RESULT FROM LEFT SIDE. CAN ANYONE HELP WITH THIS USER DEFINED FUNCTION, DONT KNOW WHY THIS IS NOT WORKING WHEN I PASTE THIS CODE IN MODULE OF MY PERSONAL WORKBOOK. IT IS GIVING ERROR #NAME? Function VLOOKNEW(lookup_value, table_array As Range, _ col_index_num As Integer, CloseMatch As Boolean) Dim nRow As Long Dim nVal As Integer Dim bFound As Boolean VLOOKNEW = "Not Found" If col_index_num > 0 Then VLOOKNEW = Application.WorksheetFunction.VLookup(lookup_value, _ table_array, col_index_num, CloseMatch) Else nRow = Application.WorksheetFunction.Match(lookup_value, _ table_array.Resize(, 1), CloseMatch) VLOOKNEW = table_array(nRow, 1).Offset(0, col_index_num) End If End Function Please send me the solution. I wud appreciate if u can mark the solution to mkpat...@gmail.com Regards Mayank Patel ITC LTD 9822978041 9422749110 --~--~---------~--~----~------------~-------~--~----~ ---------------------------------------------------------------------------------- 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 <><><><><><><><><><><><><><><><><><><><><><> HELP US GROW !! We reach over 6,500 subscribers worldwide and receive many nice notes about the learning and support from the group. Our goal is to have 10,000 subscribers by the end of 2009. Let friends and co-workers know they can subscribe to group at http://groups.google.com/group/excel-macros/subscribe -~----------~----~----~----~------~----~------~--~---