Hi all,

How would I add this formula as a worksheet function with VBA

I can't see INT, MOD or Year in VBA. Also want to change C2 to change
to activecell column + row 2.

=INT(((C2-1461)-SUM(MOD(DATE(YEAR(C2-MOD(C2,7)+3),1,2)-1461,{1E+99,7})*{1,-1})+5)/7)

Thanks in advance for your help

VBA Noob


--
VBA Noob
------------------------------------------------------------------------
VBA Noob's Profile: http://www.excelforum.com/member.php...o&userid=33833
View this thread: http://www.excelforum.com/showthread...hreadid=554893

MsgBox
Activesheet.Evaluate("INT(((C2-1461)-SUM(MOD(DATE(YEAR(C2-MOD(C2,7)+3),1,2)-
1461,{1E+99,7})*{1,-1})+5)/7)")

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"VBA Noob" wrote in
message ...

Hi all,

How would I add this formula as a worksheet function with VBA

I can't see INT, MOD or Year in VBA. Also want to change C2 to change
to activecell column + row 2.


=INT(((C2-1461)-SUM(MOD(DATE(YEAR(C2-MOD(C2,7)+3),1,2)-1461,{1E+99,7})*{1,-1
})+5)/7)

Thanks in advance for your help

VBA Noob


--
VBA Noob
------------------------------------------------------------------------
VBA Noob's Profile:
http://www.excelforum.com/member.php...o&userid=33833
View this thread: http://www.excelforum.com/showthread...hreadid=554893

Thanks Bob

I will try to amend your formula to change C2 to active Column and Row
2


VBA Noob


--
VBA Noob
------------------------------------------------------------------------
VBA Noob's Profile: http://www.excelforum.com/member.php...o&userid=33833
View this thread: http://www.excelforum.com/showthread...hreadid=554893

That's is not so easy mate. You might be best to pick up activecell like so

sFormula = "INT(((" & ActiveCell.Address(False, False) & _
"-1461)-SUM(MOD(DATE(YEAR(" & ActiveCell.Address(False, False) &
_
"-MOD(" & ActiveCell.Address(False, False) & _
",7)+3),1,2)-1461,{1E+99,7})*{1,-1})+5)/7)"
myVal = ActiveSheet.Evaluate(sFormula)

B TW, what is it a formula for? I get 25 if the date is TODAY().


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"VBA Noob" wrote in
message ...

Thanks Bob

I will try to amend your formula to change C2 to active Column and Row
2


VBA Noob


--
VBA Noob
------------------------------------------------------------------------
VBA Noob's Profile:
http://www.excelforum.com/member.php...o&userid=33833
View this thread: http://www.excelforum.com/showthread...hreadid=554893