data verplaatsen, afhankelijk van datum

[joske13]

Hoi.

Ik ben een beetje aan het klooien met Excel en Vba om handmatige "dingen" makkelijker te maken.

Zo wil ik wat gegevens verplaatsen naar een tabblad, afhankelijk van de datum van vandaag.
Ik heb een klein opzetje gemaakt waaruit blijkt wat ik wil. (verplaats_op_datum.xlsm)

Nu wordt de data verplaatst naar tabblad "Feb"

Dim lrij As Long
Sheets("Feb").Activate
lrij = ActiveSheet.Range("A65536").End(xlUp).Row

Maar dat zou ik graag automatisch naar het juiste tabblad hebben, afhankelijk van de datum van vandaag "=nu()"

Ik ben een beginner in VBA en heb overal wat code's vandaan gehaald en aangepast, maar dit laatste stukje krijg ik niet gevonden.

Is er iemand die mij kan en wil helpen?

Bij voorbaat dank

Jos

 

[OctaFish]

Zoiets?

Dim sMaand As String
SMaand = Format(Date();"mmm")
Sheets(sMaand).Activate

 

[joske13]

Michel

Dit werkt perfect.
Ik heb alleen de puntkomma moeten vervangen door een komma.

Hartelijk dank.

(moet/kan ik dit topic ergens sluiten?)

Jos