Planning aanpassen

[petervdijk]

hoi,

Ik ben al enige tijd aan het stuntelen met het maken van een tijdlijn planning. Ik kreeg de planning maar niet zoals ik wilde, tot dat ik een planning tegenkwam van een medeforum genoot dank aan Grijsbert. Zijn planning voldoet bijna aan alle punten die ik nodig heb, toch heb ik nog aan paar vragen waar ik niet uit kom. Hopelijk kan iemand mij verder helpen.

Ik heb geprobeerd om:
Een keuze in te bouwen zodat ik per regel een tijdlijnkleur kan weergeven.
De begin letter van het project te weergeven in de tijdbalk



Bekijk bijlage 273065

 

[popipipo]

Om de begin letter in de tijdbalk te zetten heb je denk ik VBA nodig.
Daar kan ik je niet bij helpen.
In voorbeeld wel tijdlijnlkleur gemaakt. voor 2 kleuren (en een beperk bereik) wil je er meer dan even zelf nieuwe aanmaken.

 

[petervdijk]

Ik heb nu de kleur rood toegepast alleen komt hij niet in de tijdlijn, wat doe ik nu verkeerd? ik de voorwaardelijke opmaak één op één gekopieerd


Bekijk bijlage 273083

ik heb helaas ook geen ervaring met VBA, het het wel afmaken als de begin letter of de gehele naam van het project in de tijdlijn zou staan.

ziezo bedankt.

 

[VenA]

Er staan een aantal verkeerde formules in de VO. De juiste is

=AND(J$4>=$D8;J$4<=$G8;$C8="r")

 

[popipipo]

Je hebt maar 1 van de 4 regels gekopieerd.

Waarom heb ik 4 regels gebruikt zul je misschien denken.

Dan krijg je nl netjes 1 rand om het geheel
Het kan ook met 1 regel maar dan krijg je een rand alleen boven en onder of elke dag krijgt aan alle kanten een lijn

 

[VenA]

Dan is mijn opmerking niet correct. Maakt dit de sheet niet onnodig zwaar voor een optisch verschil die ik blijkbaar niet gezien heb?

Volgens mij wordt dit met VBA nog wel een lastig klusje.

 

[HSV]

Ik heb niet bedacht dat de beginletter niet past in de smalle cellen.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sn, i As Long, j As Long
Application.EnableEvents = False
  Range("j8:abw99").ClearContents
    sn = Range("a1:abw99")
       For i = 8 To 99
        For j = 10 To 751
          If sn(4, j) >= sn(i, 4) And sn(4, j) <= sn(i, 7) Then sn(i, j) = Left(sn(i, 2), 1)
        Next j
       Next i
   Range("a1:abw99") = sn
Application.EnableEvents = True
End Sub

Edit: Geheel in Vba zonder Voorwaardelijke opmaak in range(j8:abw99).
Zie bijlage.

 

[wjweert]

Ik begrijp dat je mij planning niet meer nodig hebt

 

[petervdijk]

Bedankt heren, voor alle hulp. Ik ga er morgen mee aan de slag.

 

[petervdijk]

Goedemorgen, even een vraagje.

Ik ben het laatste bestand van Harry aan de slag gegaan. als ik nu meerdere kleuren wil hoe krijg ik dat in VBA?

 

[HSV]

Doordat je met voorwaardelijke opmaak werkt in kolom C heb ik de code daar op aangepast.
Onderstaande is uit te breiden naar het aantal voorwaardelijke opmaak.
Let op dat de Vw opmaak op volgorde werkt in samenhang met de 'Select case'.

Select Case cl.Offset(, 1)
          Case "r"
            x = 1
          Case "g"
            x = 2
          Case "b"
            x = 3
        End Select

Je kan natuurlijk ook alle Vw opmaak verwijderen en gewoon de cel kleuren d.m.v. code, maar dan moet het geheel even aangepast worden.

 

[petervdijk]

hmmmm krijg het niet voor elkaar. Ik denk dat het gemakkelijker voor mij is om met Vw te gaan werken, aangezien ik werkelijk geen ervaring met Vba heb.

Ik kwam ook tijdens het testen met Vba op een twee tal uitdagingen.

Hoe zou ik er voor kunnen zorgen dat als een onderwerp repeterend terug komt. bijv. om de week een overleg. Als ik dat nu zou opvoeren dan groeit het aantal regels, en raak je het overzicht kwijt!

is er en mogelijkheid dat je met een druk op de knop naar de datum van vandaag gaat in de planning.

 

[ExcelAmateur]

Kijk of dit lukt om naar de juiste datum te gaan?
http://www.helpmij.nl/forum/showthread.php/891111-naar-datum-vandaag-gaan-bij-openen-file?p=5758601&highlight=naar+vandaag#post5758601

 

[petervdijk]

Dat werkt thx

 

[petervdijk]

nu probeer ik een frequentie in de agenda te krijgen waarin ik de frequentie kan bepalen hoe vaak een overleg terug komt. iemand een idee hoe je dit kan doen?
Hier de bijlage.

Bekijk bijlage 273661