locked
Bulk Edit "Earliest Available" and "Latest Available" RRS feed

  • Question

  • We have the need to add "Earliest Available" and "Latest Available" dates to the ERP (MSPS 2010).   Many resources will share the same dates.    I am looking for a way to quickly do this without having to open each resource individually - but I am finding  that (1) this is not an option available in the Bulk Edit option in PWA - or (2) there is no column I can insert in MS Project with the ERP open to quickly edit this field.    Is there a way to accomplish this quickly?

    Thanks!

    Randy

    Monday, August 6, 2012 6:21 PM

Answers

  • Hi Randy,

    sorry to say but no is the answer. It would require custom development if you wanted a new user interface to manage information like earliest available.


    Marc Soester [MVP] http://marcsoester.blogspot.com

    Monday, August 6, 2012 11:26 PM

All replies

  • Hi Randy,

    sorry to say but no is the answer. It would require custom development if you wanted a new user interface to manage information like earliest available.


    Marc Soester [MVP] http://marcsoester.blogspot.com

    Monday, August 6, 2012 11:26 PM
  • Drats!   :-)

    Tuesday, August 7, 2012 6:32 PM
  • If (IF!!!) all your resources you want to edit just have the single NA to NA Availbility values in the Resource Information dialog then you can use the code below to bulk edit them. just edit the NewFrom, NewTo and NewUnits values in the code, open the resources into Project Pro and then run the code.

    if you have already done some editing of these values or if you have multiple lines in availabilty area of that dialog then the code gets more complex. :-)

    Sub AvailabilityEditSimple()
    Dim R As Resource
    Dim Av As Availabilities
    Dim a As Availability
    Dim aFrom As Date
    Dim aTo As Date
    Dim aUnits As Single
    
    Dim NewFrom As Date
    Dim NewTo As Date
    Dim NewUnits As Single
    
    
    NewFrom = "12/1/2011"
    NewTo = "12/1/2013"
    NewUnits = 120
    
    
    For Each R In ActiveProject.Resources
        If Not (R Is Nothing) Then
            If R.Availabilities.count = 1 Then
                If R.Availabilities(1).AvailableFrom = "1/1/1984" And R.Availabilities(1).AvailableTo = "12/31/2049 23:59:00" Then
                   
                   R.Availabilities(1).AvailableFrom = NewFrom
    
                   R.Availabilities(1).AvailableTo = NewTo
    
                   R.Availabilities(1).AvailableUnit = NewUnits
    
                End If
    
            End If
        End If
    Next R
    End Sub


    Brian Kennemer - Project MVP
    DeltaBahn Senior Architect
    endlessly obsessing about Project Server…so that you don’t have to.
    Blog | Twitter | LinkedIn

    Tuesday, August 7, 2012 7:30 PM