Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Custom UDF
I have a UDF that have tried to add to my Personal.xls, so it will be
available as needed. (It works fine if I put the code in a normal workbook.) It is in a regular module in my Personal.xls VBA project. After researching thought it had to do with needing to add a reference to Personal.xls; when I try to do that via Tools/References/Browse and select Personal.xls it adds 'VBAProject' to the list of references with a checkmark, but then says that the name conflicts with an existing module, project or object library and removes it. Am confused about what I'm doing wrong here. Any advice please? |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Custom UDF
It should work fine in your Personal.xls workbook. It could have to
do with the code in the UDF. If you are referencing something like ThisWorkbook, then it is trying to apply the UDF to the Personal.xls workbook, which would be incorrect. Could you post up the UDF code? Paige wrote: I have a UDF that have tried to add to my Personal.xls, so it will be available as needed. (It works fine if I put the code in a normal workbook.) It is in a regular module in my Personal.xls VBA project. After researching thought it had to do with needing to add a reference to Personal.xls; when I try to do that via Tools/References/Browse and select Personal.xls it adds 'VBAProject' to the list of references with a checkmark, but then says that the name conflicts with an existing module, project or object library and removes it. Am confused about what I'm doing wrong here. Any advice please? |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Custom UDF
Thanks, JW; here is the code:
Option Explicit Function SumColor(rColor As Range, rSumRange As Range) 'Sums cells based on a specified fill color 'Formula: =sumcolor(cell with desired color to sum,range to sum) Application.Volatile True Dim rCell As Range Dim iCol As Integer Dim vResult As Single iCol = rColor.Interior.ColorIndex For Each rCell In rSumRange If rCell.Interior.ColorIndex = iCol Then vResult = WorksheetFunction.Sum(rCell) + vResult End If Next rCell SumColor = vResult End Function "JW" wrote: It should work fine in your Personal.xls workbook. It could have to do with the code in the UDF. If you are referencing something like ThisWorkbook, then it is trying to apply the UDF to the Personal.xls workbook, which would be incorrect. Could you post up the UDF code? Paige wrote: I have a UDF that have tried to add to my Personal.xls, so it will be available as needed. (It works fine if I put the code in a normal workbook.) It is in a regular module in my Personal.xls VBA project. After researching thought it had to do with needing to add a reference to Personal.xls; when I try to do that via Tools/References/Browse and select Personal.xls it adds 'VBAProject' to the list of references with a checkmark, but then says that the name conflicts with an existing module, project or object library and removes it. Am confused about what I'm doing wrong here. Any advice please? |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Format Cell as custom type but data doesn't display like I custom. | Excel Discussion (Misc queries) | |||
2003 - 2007 custom macro and custom button restore. | Excel Discussion (Misc queries) | |||
Adding custom list and text boxes to the custom tool bar from Excel C API | Excel Discussion (Misc queries) | |||
Can you link a custom property to an Excel custom header text? | Setting up and Configuration of Excel | |||
Excel custom plots and custom trend lines | Excel Programming |