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...

Quote

Excel kan zoiets natuurlijk nooit weten.

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?

Prettig weekend!!!

@ grote Woef

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,

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!

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