Discussion:
VBA: Task.ID <> Regelnummer
(te oud om op te antwoorden)
Remco Kappert
2008-10-31 15:33:02 UTC
Permalink
Beste lezer,

Dezelfde planning wil ik soms als één grote planning uitprinten en een
andere keer wil ik er pagina einden aan toevoegen vanaf bepaald taken. Om dit
niet steeds met de hand te doen, heb ik geprobeerd een VBA script hiervoor te
schrijven wat nog niet is gelukt.

Mijn idee is om bij markering1(Flag1) een Ja in te vullen bij de taken waar
ik een pagina einde wil hebben en daarop te zoeken. Ik denk dat ik daarvoor
eerst met SelectRow de regel moet selecteren en met PageBreakSet de pagina
einde kan aanbrengen. Als ik zoek naar de taken waarvan de Markering1 op Ja
staat, krijg ik daarvan het ID. Als ik dit ID nummer invoer bij "SelectRow
Row:=ID, rowrelative:=False" dan klopt dit niet omdat ik op verschillende
plaatsen subtaken heb verborgen. SelectRow telt echt de regels in je Gantt
Chart en gebruikt niet de ID nummers.

Wie heeft een beter idee om dit aan te pakken?
--
Remco Kappert
Coördinator Planning & Logistiek
Jan De Messemaeker
2008-11-02 09:38:00 UTC
Permalink
Dag Remco

Er zijn verschillende mogelijkheden, hier is er één van

Selectall
Visibletasks=activeselection.tasks.count
selectrow rowid:=1,rowrelative:=false
for counter=2 to visibletasks
set tsk=activeselection.tasks(1)
......
selectrow rowid:=1,rowrelative:=true
next counter

Groeten,
--
Jan De Messemaeker
Microsoft Project Most Valuable Professional
+32 495 300 620
For availability check:
http://users.online.be/prom-ade/Calendar.pdf
Post by Remco Kappert
Beste lezer,
Dezelfde planning wil ik soms als één grote planning uitprinten en een
andere keer wil ik er pagina einden aan toevoegen vanaf bepaald taken. Om dit
niet steeds met de hand te doen, heb ik geprobeerd een VBA script hiervoor te
schrijven wat nog niet is gelukt.
Mijn idee is om bij markering1(Flag1) een Ja in te vullen bij de taken waar
ik een pagina einde wil hebben en daarop te zoeken. Ik denk dat ik daarvoor
eerst met SelectRow de regel moet selecteren en met PageBreakSet de pagina
einde kan aanbrengen. Als ik zoek naar de taken waarvan de Markering1 op Ja
staat, krijg ik daarvan het ID. Als ik dit ID nummer invoer bij "SelectRow
Row:=ID, rowrelative:=False" dan klopt dit niet omdat ik op verschillende
plaatsen subtaken heb verborgen. SelectRow telt echt de regels in je Gantt
Chart en gebruikt niet de ID nummers.
Wie heeft een beter idee om dit aan te pakken?
--
Remco Kappert
Coördinator Planning & Logistiek
Remco Kappert
2008-11-06 14:10:02 UTC
Permalink
Dag Jan,

Ik heb het hiermee werkend gekregen. Bedankt weer voor je hulp.
--
Remco Kappert
Coördinator Planning & Logistiek
Post by Jan De Messemaeker
Dag Remco
Er zijn verschillende mogelijkheden, hier is er één van
Selectall
Visibletasks=activeselection.tasks.count
selectrow rowid:=1,rowrelative:=false
for counter=2 to visibletasks
set tsk=activeselection.tasks(1)
.......
selectrow rowid:=1,rowrelative:=true
next counter
Groeten,
--
Jan De Messemaeker
Microsoft Project Most Valuable Professional
+32 495 300 620
http://users.online.be/prom-ade/Calendar.pdf
Post by Remco Kappert
Beste lezer,
Dezelfde planning wil ik soms als één grote planning uitprinten en een
andere keer wil ik er pagina einden aan toevoegen vanaf bepaald taken. Om dit
niet steeds met de hand te doen, heb ik geprobeerd een VBA script hiervoor te
schrijven wat nog niet is gelukt.
Mijn idee is om bij markering1(Flag1) een Ja in te vullen bij de taken waar
ik een pagina einde wil hebben en daarop te zoeken. Ik denk dat ik daarvoor
eerst met SelectRow de regel moet selecteren en met PageBreakSet de pagina
einde kan aanbrengen. Als ik zoek naar de taken waarvan de Markering1 op Ja
staat, krijg ik daarvan het ID. Als ik dit ID nummer invoer bij "SelectRow
Row:=ID, rowrelative:=False" dan klopt dit niet omdat ik op verschillende
plaatsen subtaken heb verborgen. SelectRow telt echt de regels in je Gantt
Chart en gebruikt niet de ID nummers.
Wie heeft een beter idee om dit aan te pakken?
--
Remco Kappert
Coördinator Planning & Logistiek
Loading...