Workbook open

[verluc]

Graag zou ik mijn bestand verder willen automatiseren.
Heb verschillende sheets met als benaming 2009, 2010,2011 enz.

Nu staat er in workbook open : Sheets("2009").Select

Kan deze macro worden aangepast zodanig dat automatisch het juiste jaar gekozen word afhankelijk van het huidig jaar , zonder het jaartal te moeten vermelden.
(Vanaf 01.01.2010 zal automatisch het workbook worden geopend met sheet 2010 enz.
Met dank.

 

[snb]

Kijk eerst eens hier.

 

[Warme bakkertje]

Aangezien je in je andere topic het boetekleed hebt aangetrokken

Private Sub Workbook_Open()
    Sheets(Right(Date, 4)).Select
End Sub

Indien mogelijk laat je de Select ook beter achterwege. Dit getuigt niet van verstandig programmeren

 

[verluc]

Topic sluiten met een dankwoordje was gewoon een vergetelheid.
(zie al mijn andere topics hieromtrent).

Hoe kan ik de "select" vermijden.U gebruikt deze toch ook en zonder deze "select" werkt deze macro niet.
Heb U misschien een ander voorstel. Voor mij werkt deze prima.
Graag Uw mening misschien ?

 

[Warme bakkertje]

Ik weet niet hoe de rest van jouw macro eruit ziet, maar in 99% v/d gevallen is het onnodig van Select, Activate, enz te gebruiken, daarom mijn opmerking. Werkt hij zo voor jou dan is er voor mij ook geen probleem natuurlijk.

 

[Wigi]

Private Sub Workbook_Open()
    Application.GoTo Sheets(Right(Date, 4)).[A1]
End Sub

 

[verluc]

Hi Warme Bakkertje en Wigi,

Dit is mijn macro zoals deze naar behoren werkt voor mij.
Zonder die "select" en "activate" werkt deze inderdaad niet zodat ik genoodzaakt ben deze termen te gebruiken.


In Sub Workbook_Open()
Sheets(Right(Date, 4)).Select
Range("A65536").End(xlUp).Offset(1, 0).Activate
End Sub

In ieder geval mijn dank voor U beide voor deze oplossing.

 

[Efsix]

Ik vind dit een interssant onderwerp.
Wat ik me nu afvraag, zou dit ook werken met weeknummers?

groeten, Romé

 

[Wigi]

Verluc

Ik denk dat je mijn oplossing niet goed bestudeerd hebt:

Private Sub Workbook_Open()
    Application.GoTo Sheets(Right(Date, 4)).Range("A" & Rows.Count).End(xlUp).Offset(1)
End Sub

Wigi

 

[verluc]

Hi Wigi,

Inderdaad met dergelijke macro is "select" en "activate" niet nodig.
Ben nog niet zo onderlegd om dergelijke macro te schrijven.
Zeer bedankt.

 

[Wigi]

Wat niet is kan nog komen :thumb:

Graag de vraag even op opgelost zetten aub.