Quantcast
Viewing all articles
Browse latest Browse all 5347

Automatically entering calender exceptions from resource information MSProject, VBA

Hi there,

Not sure if this is the wrong location, hopefully not.

I have two custom fields for Date1 and Date3 which represent dates of calibration for a resource (instrumentation, and devices) I'm trying to generate a macro that automatically inputs these two dates as the start and end date for a resource's exception, therefore blocking the device.

This macro would then run for all resources in the list, acting as a master resource pool for our instruments and devices.

the code i've been able to make is below, but it gives an 1101 runtime error, saying the number of implied occurances from this exception's configuration is too large. I know this should be a relatively simple macro to write, but i'm completely lost in the syntax, and can't see the error when using MSProject.

Sub Macro1()
Dim R As Resource
For Each R In ActiveProject.Resources

    ActiveProject.Resources(R).Calendar.Exceptions.Add Type:=1, Start:=R.Date1, Finish:=R.Date3, Name:="Calibration"

Next R

End Sub

Thanks for your help!


Viewing all articles
Browse latest Browse all 5347

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>