CODEWITHSUNDEEP
vbaexcel
Yassin Hajaj
Yassin Hajaj

Reputation: 21975

VBA : Error using Range.Formula

I'm using this formula

ThisWorkbook.Sheets("Overview").Range(formrange).Formula = "=IF(OR(ISBLANK(B2);WEEKDAY(DATE($B$38;$B$37;B2);2)>5;DAY(EOMONTH(DATE($B$38;$B$37;B$3);0))<B2);0;IF(C2=""Y"";0,5;1))"

And am having the following error

Run-time error "1004"
Application-denied or object-defined error

Would you guys have an idea what that is?

Upvotes: 2

Views: 1172

Answers (1)

Rory
Rory

Reputation: 34045

The Range.Formula property needs a formula string in the same format it would be entered into a cell on a computer with US regional settings. So for this example you need:

ThisWorkbook.Sheets("Overview").Range(formrange).Formula = "=IF(OR(ISBLANK(B2),WEEKDAY(DATE($B$38,$B$37,B2),2)>5,DAY(EOMONTH(DATE($B$38,$B$37,B$3),0))<B2),0,IF(C2=""Y"",0.5,1))"

Upvotes: 5

Related Questions