Styjun

Delete n lines skip 1 line script

Knights and Knaves: What does C say?

Realistically, how much do you need to start investing?

What could cause lower torque than normal during cruise in a King Air 300?

Implementation of a Thread Pool in C++

If someone asks a question using “quién”, how can one shortly respond?

Isn't the detector always measuring, and thus always collapsing the state?

Would a 737 pilot use flaps in nose dive?

disable all sound permanently?

Calculate the Ultraradical

GPLv3 forces us to make code available, but to who?

Phonetic distortion when words are borrowed among languages

Why most footers have a background color has a divider of section?

To what degree did the Supreme Court limit Boris Johnson's ability to prorogue?

Sci-fi movie with one survivor and an organism(?) recreating his memories

Verb ending in -ん with positive meaning?

Should I be an author on another PhD student's paper if I went to their meetings and gave advice?

What action is recommended if your accommodation refuses to let you leave without paying additional fees?

Writing a program that will filter the integer solutions

How to work around players whose backstory goes against the story?

Smallest PRIME containing the first 11 primes as sub-strings

How deep is the liquid in a half-full hemisphere?

French license plates

If a spaceship ran out of fuel somewhere in space between Earth and Mars, does it slowly drift off to the Sun?

1004 Unable to get the Workday_Intl property of Worksheet Function Class

Excel error 1004 “Unable to get … property of WorksheetFunction class” appearing inconsistentlyVBA Lookup - Unable to get the Vlookup property of the WorkSheet function classrun time error 1004 in opening two different workbooksExcel- VBA PasteSpecial Method of Range Class Failedexcel vba insert column runtime error 1004Copy/Paste Date format into a column on a WS in another workbookRun time error 1004 on using Vlookup functionCopying multiple ranges but get runtime error 1004Error 1004 'Range' of object '_Worksheet' failed when trying to copy values (Workbook and worksheet explicitly set, no named ranges)Error 1004 when tried to change data in secondary worksheet

.everyoneloves__top-leaderboard:empty,.everyoneloves__mid-leaderboard:empty,.everyoneloves__bot-mid-leaderboard:empty margin-bottom:0;

0

Im at a loss at why I am getting the 1004 Runtime error with this code and could use some assistance.

Error happens here:

rescDate = Application.WorksheetFunction.WorkDay_Intl(CloseDate, 3, 11, Holidays)

Things ive tried:

Option Explicit
Dim CloseDate as Date

CloseDate = GeneralInfo.Range("genCloseDate")

rescDate = Application.WorksheetFunction.WorkDay_Intl(CloseDate, 3, 11, Holidays)

AND

Option Explicit

 Dim wb as workbook
 Dim CloseDate as Range

 Set wb=MLAChecklist 'Codename of workbook
 set CloseDate = wb.GeneralInfo.Range("genCloseDate")

 rescDate = Application.WorksheetFunction.WorkDay_Intl(CloseDate, 3, 11, Holidays)

When I step through the code, in either scenario I have tried the CloseDate variable does have the date in the format of MM/DD/YYYY.

Below is the full code as it stands right now:

 Option Explicit
 Sub FundDateCalc()
 Dim CloseDate As Range, HolidayDates As Range
 Dim rescDate As Date, FundingDate as Date
 Dim LoanPurp As String

 Set HolidayDates = Holidays.Range("Holidays")

 Set CloseDate = GeneralInfo.Range("genCloseDate")

 rescDate = Application.WorksheetFunction.WorkDay_Intl(CloseDate, 3, 11, Holidays)

 FundingDate = Application.WorksheetFunction.WorkDay(rescDate, 1, Holidays)

End Sub

excel vba

share|improve this question

asked Mar 28 at 20:18

Zack EZack E

55133 silver badges1818 bronze badges

• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  What is Holidays? A worksheet? Shouldn't HolidayDates be passed to the worksheet functions instead?
  
  – Mathieu Guindon
  Mar 28 at 20:27
  
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  Start by adding Option Explicit at the top of your code module, and fix any errors it flags up.
  
  – Tim Williams
  Mar 28 at 20:27
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  @MathieuGuindon - Correct Holidays is a worksheet Holidays is the codename for the worksheet.
  
  – Zack E
  Mar 28 at 20:34
  

  
  
  
  


• 
  
  
  

  
  1
  

  
  
  
  
  
  

  
  
  So you're passing a Worksheet as an argument to the function - it's expecting a Range, I think ;-)
  
  – Mathieu Guindon
  Mar 28 at 20:35
  

  
  
  
  


• 
  
  
  

  
  1
  

  
  
  
  
  
  

  
  
  Thats what it was @MathieuGuindon. I knew it was something small. Thanks :) Now its off to (I think this goes to) CodeReview to get some help in turning this into an actual Function.
  
  – Zack E
  Mar 28 at 20:37
  
  

  
  
  
  

 | 
show 1 more comment

0

Im at a loss at why I am getting the 1004 Runtime error with this code and could use some assistance.

Error happens here:

rescDate = Application.WorksheetFunction.WorkDay_Intl(CloseDate, 3, 11, Holidays)

Things ive tried:

Option Explicit
Dim CloseDate as Date

CloseDate = GeneralInfo.Range("genCloseDate")

rescDate = Application.WorksheetFunction.WorkDay_Intl(CloseDate, 3, 11, Holidays)

AND

Option Explicit

 Dim wb as workbook
 Dim CloseDate as Range

 Set wb=MLAChecklist 'Codename of workbook
 set CloseDate = wb.GeneralInfo.Range("genCloseDate")

 rescDate = Application.WorksheetFunction.WorkDay_Intl(CloseDate, 3, 11, Holidays)

When I step through the code, in either scenario I have tried the CloseDate variable does have the date in the format of MM/DD/YYYY.

Below is the full code as it stands right now:

 Option Explicit
 Sub FundDateCalc()
 Dim CloseDate As Range, HolidayDates As Range
 Dim rescDate As Date, FundingDate as Date
 Dim LoanPurp As String

 Set HolidayDates = Holidays.Range("Holidays")

 Set CloseDate = GeneralInfo.Range("genCloseDate")

 rescDate = Application.WorksheetFunction.WorkDay_Intl(CloseDate, 3, 11, Holidays)

 FundingDate = Application.WorksheetFunction.WorkDay(rescDate, 1, Holidays)

End Sub

excel vba

share|improve this question

asked Mar 28 at 20:18

Zack EZack E

55133 silver badges1818 bronze badges

• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  What is Holidays? A worksheet? Shouldn't HolidayDates be passed to the worksheet functions instead?
  
  – Mathieu Guindon
  Mar 28 at 20:27
  
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  Start by adding Option Explicit at the top of your code module, and fix any errors it flags up.
  
  – Tim Williams
  Mar 28 at 20:27
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  @MathieuGuindon - Correct Holidays is a worksheet Holidays is the codename for the worksheet.
  
  – Zack E
  Mar 28 at 20:34
  

  
  
  
  


• 
  
  
  

  
  1
  

  
  
  
  
  
  

  
  
  So you're passing a Worksheet as an argument to the function - it's expecting a Range, I think ;-)
  
  – Mathieu Guindon
  Mar 28 at 20:35
  

  
  
  
  


• 
  
  
  

  
  1
  

  
  
  
  
  
  

  
  
  Thats what it was @MathieuGuindon. I knew it was something small. Thanks :) Now its off to (I think this goes to) CodeReview to get some help in turning this into an actual Function.
  
  – Zack E
  Mar 28 at 20:37
  
  

  
  
  
  

 | 
show 1 more comment

Im at a loss at why I am getting the 1004 Runtime error with this code and could use some assistance.

Error happens here:

rescDate = Application.WorksheetFunction.WorkDay_Intl(CloseDate, 3, 11, Holidays)

Things ive tried:

Option Explicit
Dim CloseDate as Date

CloseDate = GeneralInfo.Range("genCloseDate")

rescDate = Application.WorksheetFunction.WorkDay_Intl(CloseDate, 3, 11, Holidays)

AND

Option Explicit

 Dim wb as workbook
 Dim CloseDate as Range

 Set wb=MLAChecklist 'Codename of workbook
 set CloseDate = wb.GeneralInfo.Range("genCloseDate")

 rescDate = Application.WorksheetFunction.WorkDay_Intl(CloseDate, 3, 11, Holidays)

When I step through the code, in either scenario I have tried the CloseDate variable does have the date in the format of MM/DD/YYYY.

Below is the full code as it stands right now:

 Option Explicit
 Sub FundDateCalc()
 Dim CloseDate As Range, HolidayDates As Range
 Dim rescDate As Date, FundingDate as Date
 Dim LoanPurp As String

 Set HolidayDates = Holidays.Range("Holidays")

 Set CloseDate = GeneralInfo.Range("genCloseDate")

 rescDate = Application.WorksheetFunction.WorkDay_Intl(CloseDate, 3, 11, Holidays)

 FundingDate = Application.WorksheetFunction.WorkDay(rescDate, 1, Holidays)

End Sub

excel vba

share|improve this question

asked Mar 28 at 20:18

Zack EZack E

55133 silver badges1818 bronze badges

rescDate = Application.WorksheetFunction.WorkDay_Intl(CloseDate, 3, 11, Holidays)

Option Explicit
Dim CloseDate as Date

CloseDate = GeneralInfo.Range("genCloseDate")

rescDate = Application.WorksheetFunction.WorkDay_Intl(CloseDate, 3, 11, Holidays)

Option Explicit

 Dim wb as workbook
 Dim CloseDate as Range

 Set wb=MLAChecklist 'Codename of workbook
 set CloseDate = wb.GeneralInfo.Range("genCloseDate")

 rescDate = Application.WorksheetFunction.WorkDay_Intl(CloseDate, 3, 11, Holidays)

 Option Explicit
 Sub FundDateCalc()
 Dim CloseDate As Range, HolidayDates As Range
 Dim rescDate As Date, FundingDate as Date
 Dim LoanPurp As String

 Set HolidayDates = Holidays.Range("Holidays")

 Set CloseDate = GeneralInfo.Range("genCloseDate")

 rescDate = Application.WorksheetFunction.WorkDay_Intl(CloseDate, 3, 11, Holidays)

 FundingDate = Application.WorksheetFunction.WorkDay(rescDate, 1, Holidays)

End Sub

share|improve this question

asked Mar 28 at 20:18

Zack EZack E

55133 silver badges1818 bronze badges

share|improve this question

asked Mar 28 at 20:18

Zack EZack E

55133 silver badges1818 bronze badges

asked Mar 28 at 20:18

Zack EZack E

55133 silver badges1818 bronze badges

asked Mar 28 at 20:18

Zack EZack E

55133 silver badges1818 bronze badges