Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Access add in functions to VBA
New to creating custom functions. I'm trying to add workday, which is an
add-in, to a function I'm creating but "Application.Workday(a,b)" isn't working. Any suggestions? |
#2
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Access add in functions to VBA
You are trying to use the Analysis ToolPak in VBA.
See: http://www.cpearson.com/excel/ATP.htm for complete instructions -- Gary's Student "OCONUS" wrote: New to creating custom functions. I'm trying to add workday, which is an add-in, to a function I'm creating but "Application.Workday(a,b)" isn't working. Any suggestions? |
#3
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Access add in functions to VBA
Thanks for the link, but the site tells me I need to select atpvbaen.xls in
my available references in VBA. Unfortunately, thats not there to select. "Gary''s Student" wrote: You are trying to use the Analysis ToolPak in VBA. See: http://www.cpearson.com/excel/ATP.htm for complete instructions -- Gary's Student "OCONUS" wrote: New to creating custom functions. I'm trying to add workday, which is an add-in, to a function I'm creating but "Application.Workday(a,b)" isn't working. Any suggestions? |
#4
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Access add in functions to VBA
Figured out that I didn't have the Add-in for VBA. Sorry about that. But
now after I select atpvbaen.xls in the references is giving me an error pop-up that says nothing but "400". Any suggestions? "OCONUS" wrote: Thanks for the link, but the site tells me I need to select atpvbaen.xls in my available references in VBA. Unfortunately, thats not there to select. "Gary''s Student" wrote: You are trying to use the Analysis ToolPak in VBA. See: http://www.cpearson.com/excel/ATP.htm for complete instructions -- Gary's Student "OCONUS" wrote: New to creating custom functions. I'm trying to add workday, which is an add-in, to a function I'm creating but "Application.Workday(a,b)" isn't working. Any suggestions? |
#5
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Access add in functions to VBA
If you post some of you code, I can look at it tomorrow (Saturday)
-- Gary''s Student "OCONUS" wrote: Figured out that I didn't have the Add-in for VBA. Sorry about that. But now after I select atpvbaen.xls in the references is giving me an error pop-up that says nothing but "400". Any suggestions? "OCONUS" wrote: Thanks for the link, but the site tells me I need to select atpvbaen.xls in my available references in VBA. Unfortunately, thats not there to select. "Gary''s Student" wrote: You are trying to use the Analysis ToolPak in VBA. See: http://www.cpearson.com/excel/ATP.htm for complete instructions -- Gary's Student "OCONUS" wrote: New to creating custom functions. I'm trying to add workday, which is an add-in, to a function I'm creating but "Application.Workday(a,b)" isn't working. Any suggestions? |
#6
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Access add in functions to VBA
This is the code I'm trying to use:
Function ESD(payment_date, payment_type) If payment_type = "ACH Deposit" Then ESD = [atpvbaen.xls].WORKDAY(payment_date, 6) Else If payment_type = "Credit Card" Then ESD = [atpvbaen.xls].WORKDAY(payment_date, 9) Else If payment_type = Application.Or("Check (Secured)", "Money Order") Then ESD = [atpvbaen.xls].WORKDAY(payment_date, 13) Else If payment_type = "Check (unsecured)" Then ESD = [atpvbaen.xls].WORKDAY(payment_date, 20) Else End If End If End If End If End Function The problem is when I select the aptvbaen.xls box and try to exit the references screen, I'm getting and error message that says nothing but "400". Thanks again for all your help "Gary''s Student" wrote: If you post some of you code, I can look at it tomorrow (Saturday) -- Gary''s Student "OCONUS" wrote: Figured out that I didn't have the Add-in for VBA. Sorry about that. But now after I select atpvbaen.xls in the references is giving me an error pop-up that says nothing but "400". Any suggestions? "OCONUS" wrote: Thanks for the link, but the site tells me I need to select atpvbaen.xls in my available references in VBA. Unfortunately, thats not there to select. "Gary''s Student" wrote: You are trying to use the Analysis ToolPak in VBA. See: http://www.cpearson.com/excel/ATP.htm for complete instructions -- Gary's Student "OCONUS" wrote: New to creating custom functions. I'm trying to add workday, which is an add-in, to a function I'm creating but "Application.Workday(a,b)" isn't working. Any suggestions? |
#7
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Access add in functions to VBA
Unfortunately, I've added the VBA Toolpak in the addins already. I'm trying
to select the atpvbaen.xls in the references now, but everytime I hit OK I'm getting that 400 error. Could this be specific to some security settings that my company has in place? Also, I'm not sure I understand the bigmac sub you wrote. "Gary''s Student" wrote: There are two things you need to do, not just one: In addition to Tools Addins... and checking the Toolpak VBA You must (in the VBA window) pull-down: Tools References and check the atpvbaen.xls box as well. Once both have been done, then: Sub bigmac() MsgBox (workday(12, 12)) End Sub will work. No need to preface the WORKDAY() function with anything. Any more problems == update the post. Otherwise, have a good day!! -- Gary's Student "OCONUS" wrote: This is the code I'm trying to use: Function ESD(payment_date, payment_type) If payment_type = "ACH Deposit" Then ESD = [atpvbaen.xls].WORKDAY(payment_date, 6) Else If payment_type = "Credit Card" Then ESD = [atpvbaen.xls].WORKDAY(payment_date, 9) Else If payment_type = Application.Or("Check (Secured)", "Money Order") Then ESD = [atpvbaen.xls].WORKDAY(payment_date, 13) Else If payment_type = "Check (unsecured)" Then ESD = [atpvbaen.xls].WORKDAY(payment_date, 20) Else End If End If End If End If End Function The problem is when I select the aptvbaen.xls box and try to exit the references screen, I'm getting and error message that says nothing but "400". Thanks again for all your help "Gary''s Student" wrote: If you post some of you code, I can look at it tomorrow (Saturday) -- Gary''s Student "OCONUS" wrote: Figured out that I didn't have the Add-in for VBA. Sorry about that. But now after I select atpvbaen.xls in the references is giving me an error pop-up that says nothing but "400". Any suggestions? "OCONUS" wrote: Thanks for the link, but the site tells me I need to select atpvbaen.xls in my available references in VBA. Unfortunately, thats not there to select. "Gary''s Student" wrote: You are trying to use the Analysis ToolPak in VBA. See: http://www.cpearson.com/excel/ATP.htm for complete instructions -- Gary's Student "OCONUS" wrote: New to creating custom functions. I'm trying to add workday, which is an add-in, to a function I'm creating but "Application.Workday(a,b)" isn't working. Any suggestions? |
#8
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Access add in functions to VBA
I am sorry that I cannot replicate yuor error message.
The tiny macro will just demonstrate that the WORKDAY() function will work directly in VBA (once you succeed in getting the ToolPak to work). If you have the time to update the post once you find the solution, others may benefit from it. Good Luck -- Gary''s Student "OCONUS" wrote: Unfortunately, I've added the VBA Toolpak in the addins already. I'm trying to select the atpvbaen.xls in the references now, but everytime I hit OK I'm getting that 400 error. Could this be specific to some security settings that my company has in place? Also, I'm not sure I understand the bigmac sub you wrote. "Gary''s Student" wrote: There are two things you need to do, not just one: In addition to Tools Addins... and checking the Toolpak VBA You must (in the VBA window) pull-down: Tools References and check the atpvbaen.xls box as well. Once both have been done, then: Sub bigmac() MsgBox (workday(12, 12)) End Sub will work. No need to preface the WORKDAY() function with anything. Any more problems == update the post. Otherwise, have a good day!! -- Gary's Student "OCONUS" wrote: This is the code I'm trying to use: Function ESD(payment_date, payment_type) If payment_type = "ACH Deposit" Then ESD = [atpvbaen.xls].WORKDAY(payment_date, 6) Else If payment_type = "Credit Card" Then ESD = [atpvbaen.xls].WORKDAY(payment_date, 9) Else If payment_type = Application.Or("Check (Secured)", "Money Order") Then ESD = [atpvbaen.xls].WORKDAY(payment_date, 13) Else If payment_type = "Check (unsecured)" Then ESD = [atpvbaen.xls].WORKDAY(payment_date, 20) Else End If End If End If End If End Function The problem is when I select the aptvbaen.xls box and try to exit the references screen, I'm getting and error message that says nothing but "400". Thanks again for all your help "Gary''s Student" wrote: If you post some of you code, I can look at it tomorrow (Saturday) -- Gary''s Student "OCONUS" wrote: Figured out that I didn't have the Add-in for VBA. Sorry about that. But now after I select atpvbaen.xls in the references is giving me an error pop-up that says nothing but "400". Any suggestions? "OCONUS" wrote: Thanks for the link, but the site tells me I need to select atpvbaen.xls in my available references in VBA. Unfortunately, thats not there to select. "Gary''s Student" wrote: You are trying to use the Analysis ToolPak in VBA. See: http://www.cpearson.com/excel/ATP.htm for complete instructions -- Gary's Student "OCONUS" wrote: New to creating custom functions. I'm trying to add workday, which is an add-in, to a function I'm creating but "Application.Workday(a,b)" isn't working. Any suggestions? |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Not able to access certain Excel functions | Excel Worksheet Functions | |||
Linking Large Access Table into Excel | Links and Linking in Excel | |||
Please make it easier to access the IS functions (e.g., isblank) . | Excel Worksheet Functions | |||
Excel and Access talking | Excel Discussion (Misc queries) | |||
How to call worksheet functions from Access ? | Excel Worksheet Functions |