Ron001

@ Grote Woef Dit was het probleem, al opgelost... Ik deed opmaak kopieren/plakken, daarom dat het lettertype mee veranderde en dus ook de icoontjes... Is het werken met de datums een goed voorstel?

@ Grote woef, Is alvast een hele vooruitgang... Voor het kleuren van de niet uitgevoerde onderhoudswerken, kan je dan niet zeggen: <startdatum Geplande werken: =>startdatum Zo is het misschien handiger om te werken, want als de datum blijft staan blijven deze ook week na week "rood" kleuren... Soms staat er in kolom D, a & @ en soms een groen vinkje en een rood niet uitgevoerd vinkje, vanwaar dit verschil? Wat is verschil?

@ Grote Woef Alvast bedankt voor de moeite, ga dit maandag eens grondig bekijken... Waarom niet? Het verschil wordt toch omschreven in onderstaande? M en E TD ASS-M TD ASS-E ***EDIT*** Als de omschrijving operatie hetzelfde is (is uniek) , zijn de werken niet uitgevoerd, als ik alleen daarop filter kan ik de terugkerende toch laten oplichten? En heb ik toch de niet uitgevoerde? Of zie ik dit verkeerd? Omschrijving operatie Prettig weekend!!!

@ grote Woef Voor een groot deel is dit wat ik zoek ja... Alleen moeten de regels onder week x (in dit geval 3) vergeleken worden met "week x -1" (week 2). De keer daarna: week 4 met week 3 en week 2 enzo... Dat zo steeds de niet uitgevoerde blijven oplichten ook al zijn deze langer uitgesteld dan de voorbij week (zodat ik een beetje controle heb :-)) Dus twee dezelfde regels onder één week is geen probleem, want de rode regels die oplichten onder week 2 zijn werken aan een ZELFDE machine door een elektriker en een mechanieker. Kan je gewoon zeggen: regels onder week x vergelijken met week x -1 of moeten er ranges worden opgegeven (wat moeilijk in te geven is, want de niet uitgevoerde werken zijn de éne week 15 regels en de andere week 2)... ***Kan heel de tekst in de rij oplichten?***

@ Bucky Ik voeg in de lijst elke week een "week" toe met werken die wel gepland, maar niet uitgevoerd... Om extra in de verf te zetten dat deze werken weken na elkaar niet uitgevoerd zijn, zou ik deze willen laten "opvallen"... Door de achtergrond rood te kleuren, de regel in het vet te zetten,... Dus, De huidige week zou steeds tegenover de vorige vergeleken moeten worden waaruit dat dan de "dubbele/dezelfde" in het oog springen.. Alvast bedankt!

Allen, Ik heb vanaf heden een lijst waar de "niet uitgevoerde onderhoudswerken" per week gaan ingevuld worden... Het is dus de bedoeling dat dit intern wordt opgelost voor ik de week erop terug een lijstje stuur. Als dit nu niet opgelost is en dezelfde melding komt terug, kan deze dan oplichten of in het vet gezet worden, iets om te laten merken dat hier iets met gedaan moet worden? Alvast bedankt! ***Misschien ook dat alle tekst in het midden uitgelijnd moet worden*** Voorbeeld in bijlage...Regel 5,6 en 7 zijn in dit voorbeeld dus de "dubbele" Achterstand geplande werken.xlsm

@ Bucky Pas = paswoord Dit is Chinees voor mij.... Mvg Ron

Allen, Week 6 en 7 zijn de lege weken (die ik steeds kopieer) in mijn file... Zoals je kan zien heeft in week 5 een collega zich aan het amuseren geweest :-( Kan ik heel de opmaak van de lege in te vullen vakken (Week 6 en Week 7 en al de toekomstige) beveiligen zodat de collega's alleen nog tekst kunnen typen (wat deze enkel moeten doen) zoals in de andere weken te zien.... Dat de opmaak helemaal geblokkeerd is, alleen nog schrijven mogelijk is... Alvast bedankt! Mvg ron PO planlijst TD Assen.xlsm

Opgelost, mag gesloten worden...

Opgelost, mag gesloten worden....

Als ik onderstaande code onder Workbook "Changesheets" plaats, werkt deze.. ron = ActiveSheet.Name Range("B3") = Replace(ron, "WEEK ", "") With Selection .HorizontalAlignment = xlLeft .VerticalAlignment = xlBottom .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With End Sub Maar elke keer als ik dan van blad wissel, moet de file 2 seconden "nadenken, macro's ophalen"... De bovenstaande codes voor "Newsheet" werken niet.. alvast bedankt! ron

Nu ben ik mee... Maar ik zou eigenlijk willlen dat ik een nieuw tabblad aanmaak (bv tabblad1), dan pas ik de naam aan naar Bv WEEK 12, dit getal 12 (variabel) moet dan in cel B3 komen te staan. In cel B3 zit een code dat hij automatisch adhv de weeknummer de weekdagen (ma-vrij) en datums gaat aanpassen. Als je in mijn testfile de week van getal gaat veranderen zie je dat de weekdagen/datums gaan veranderen..

Code in de ThisWorkbook Met in het tabblad ron in cel B3 01 of 02 of 03......... en Worksheets.Count Ik ben precies ff helemaal in de war...

Mmmmmmmmm Gisteren werkte het in mijn testfile, nu doet hij niks meer... Waarom moet er eigenlijk een teller in het tabblad 'ron' staan?

@ Alpha/Grote Woef, Zelf hier ook nog wat zitten testen en wat me opvalt is dat er geen foutmelding komt als ik "werkmap beveiligen" NIET instel. Deze staat dus bij mij ingesteld, ik denk dat hier het probleem zit... Viel me in een keer op.... mvg ron

@ Woef, blijft foutmelding geven... in bijlage planfile... mvg woef.xlsm

ik krijg wel deze foutmelding als ik dit activeer... ActiveSheet.Tab.Color = 255 foutmelding.docx foutmelding.docx

Thanks!!!!!

Kan het tabblad van de huidige week dan ook nog voorzien worden van een rode kleur? Nu doe ik dit handmatig....

Beste Grote Woef, Code neemt ook de naam "WEEK" over, moet enkel getal zijn. Deze dan replace door ""? Nu gaat deze ook bij verwisselen tussen tabbladen elke keer dit uitvoeren precies, het lijkt of bij springen tussen de tabbladen de cursor een drietal seconden blijft "lopen". mvg ron

Btw hoe moet dit topic gesloten worden? mvg ron

Allen, In bijlage mijn PO planlijst (testfile) RON.xlsm In cel B3 zou steeds het getal dat in de naam staat van het tabblad moeten komen. Ik heb onderstaande macro voor "geschreven" en deze werkt. Sub tabblad() ron = ActiveSheet.Name Range("B3") = Replace(ron, "WEEK ", "") With Selection .HorizontalAlignment = xlLeft .VerticalAlignment = xlBottom .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With End Sub Mijn probleem is dat deze werkt bv via een knop en deze dan uitvoeren, maar dit zou automatisch moeten gebeuren bij het aanmaken van een nieuw tabblad; bv WEEK 52 Alle hulp welgekomen

@ Grote Woef, Hero! Super bedankt!!!!

Beste Forumgebruikers Ik heb een vraagje; Ik ben voor mijn werk een PO planfile aan het maken (Lees: plannen preventief onderhoud CNC machines), wij werken hier "samen" in met 4 mensen. Nu ben ik in mijn testfile nog iets proberen aan het programmeren dat bij openen file deze steeds opent op de huidige week. Ik heb alles al geprobeerd, maar krijg hier geen code voor gevonden Kunnen jullie mij misschien helpen? Private Sub Workbook_Open() Alvast bedankt! RON.xlsm