Tabblad WEEK X openen

[Ron001]

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

[Gast]

Dim tDay As String
tDay = "WEEK " & Format(Date, "ww")
ThisWorkbook.Sheets(tDay).Activate

Zorg ervoor dat de sheets volgend format   WEEK(hoofdletters) spatie en weeknummer hebben

12 december 2017 aangepast door Gast
typo

[Ron001]

@ Grote Woef,

 

Hero!

 

Super bedankt!!!!

 

 

[Gast]

Dank voor de terugkoppeling

Suc6

[Ron001]

Btw hoe moet dit topic gesloten worden?

 

mvg

 

ron

[Gast]

Ik geloof dat de moderators dit zelf doen.

[Ron001]

Kan het tabblad van de huidige week dan ook nog voorzien worden van een rode kleur?

Nu doe ik dit handmatig....

[Gast]

Dim tDay As String
tDay = "WEEK " & Format(Date, "ww")
ThisWorkbook.Sheets(tDay).Activate
ActiveSheet.Tab.Color = 255

 

[Ron001]

Thanks!!!!!

[Ron001]

ik krijg wel deze foutmelding als ik dit activeer...

 

ActiveSheet.Tab.Color = 255

 

foutmelding.docx

foutmelding.docx