Deleting multiple rows from value list

[Val]

Is there a way to delete multiple rows in a value list for a Text column? I
have over 200 rows out of a value list that are duplicates that I need to
delete. I can delete them row by row but I'd like to click on the 1st row
and shift click on the last row that needs to deleted. Is this possible?

Thanks in advance (from a Project newbie)

 

[Jack Dahlgren MVP]

Yes. Select then click on the cut icon. Try it.

-Jack Dahlgren

 

[Gérard Ducouret]

Hello Val,

This value list was created in Project (desktop) or in PWA?

Gérard Ducouret

 

[Val]

How do I cut all 200 rows at once? I don't really want to do it one at a time.

Thanks.

 

[Val]

I copied the value list from another project but unfortunately another user
did not restrict the values to this list and allowed the new values to be
appended to the value list. I need to delete over 200 rows in the value list
and then restrict the values to the remaining 200 rows.

 

[Jack Dahlgren MVP]

Select first item by clicking. Scroll down. Hold shift key and click. The
entire set of items between those two points will be selected.

-Jack

 

[Val]

Tried that - it didn't work

I'm inside the value list dialog box so I'm thinking that is the problem.
Is there somewhere else that I can go to edit the value list?

thanks.

 

[Jack Dahlgren MVP]

Which version of MS Project?
In Proj 2007 right-click a column header - select customize fields, then
click the lookup value button.

 

[Gérard Ducouret]

Val,

Several years ago, with 2003 version, I used the following macro to fill a
value list with all the data copied in the Task field of Project 2003.
May be you could adapt it to your purpose.
Gérard Ducouret

Sub ListeDéroulante()

Dim oTache As Object
Dim Texto As String, Desc As String
'Call Chasse_Carac_interdits ' Chasse le "." interdit dans les noms car
utilisé comme séparateur
SelectTaskColumn Column:="Texte10" 'on sélectionne la colonne text10

For Each oTache In ActiveProject.Tasks 'pour chaque tache dans le
projet actif
If Not oTache Is Nothing Then 'si on a pas sauté de ligne
Texto = oTache.Name 'texto=le code (1ère colonne de
la liste)
Desc = oTache.Text1 'desc=colonne de description (la
2ème col.)
CustomFieldValueListAdd FieldID:=pjCustomTaskText10, Value:=Texto,
Description:=Desc
'la ligne ci dessus renseigne le champ "text10" avec la valeur dans
"texto" et dans "desc"
End If
Next oTache
CustomFieldValueList FieldID:=pjCustomTaskText10, ListDefault:=False,
RestrictToList:=True, DisplayOrder:=pjListOrderDefault
'pour le même champ personnalisé : renseigne quelques paramètres liés à la
liste déroulante
CustomFieldProperties FieldID:=pjCustomTaskText10,
Attribute:=pjFieldAttributeValueList, SummaryCalc:=pjCalcNone,
GraphicalIndicators:=False, Required:=False

End Sub

 

[Val]

Project 2003
I right-click the column header - select customize fields, then select
value list. It appears that I can only cut/delete a row from the value list
one at a time. I'd like to delete 200 rows all at once instead of line by
line.

 

[Jack Dahlgren MVP]

Proj 2003 may have that limitation...

How about just creating a custom field and value list?

-Jack

 

[Val]

How about a new approach? Is there a way I can delete the entire value list
without going thru it row by row. I tried to start with Gerard's Visual
Basic script but I'm not that good at VB. So I just want to delete the
entire value list and then start from scratch.

 

[Val]

OK, I figured out a way to get rid of the bad data. I have a project that
has a clean ValueList and if I use "Import Custom Field" from the Customize
Field form then the imported value list writes over my existing value list
where if I used the "Import Value List" from the Value list form then it
appends the list to the existing list.

Thanks for offering help.

 

[Jack Dahlgren MVP]

I think Proj2003 had a function to import a lookup table. Try importing a
blank one from another project.

-Jack