Tabblad weeknummer automatisch zichtbaar maken

[VenA]

Date -7 ?

 

[lsp1972]

Date -7 ?

als ik dit er van maak, krijg ik alleen de laatste zichtbaar:

   For Each sh In ThisWorkbook.Worksheets
      sh.Visible = sh.Name = Application.WorksheetFunction.WeekNum(Date, 21)   'ISO-week (vanaf excel2013)
      sh.Visible = sh.Name = Application.WorksheetFunction.WeekNum(Date - 7, 21) 'ISO-week (vanaf excel2013)
      
      
   Next

End Sub

 

[cow18]

For Each sh In ThisWorkbook.Worksheets
      sh.Visible = (sh.Name = Application.WorksheetFunction.WeekNum(Date, 21)) or (sh.Visible = sh.Name = Application.WorksheetFunction.WeekNum(Date - 7, 21)) 
      
   Next

 

[HSV]

Waarom niet?

sh.Visible = sh.Name = datepart("ww", date, 2, 2) 'iedere versie

 

[lsp1972]

super dit werkt..

Wat ben ik blij.. het werkt en ik leer veel van jullie... dank je..

Nu heb ik een macro toegevoegd die een sheet verstuurd. Ik krijg echter alleen de active sheet verzonden in de macro..

ik wil graag de sheet van de vorige week versturen..
#(Sh.Name = Application.WorksheetFunction.WeekNum(Date - 7, 21))# die ik nu zo benoem als tabblad zichtbaar te maken. Dat is tabblad "15" in dit geval.

hoe maak ik de naam dus afhankelijk van de datum?

Nu stuur ik:
#ActiveSheet.Copy#

maar wil sturen:
Sheets("Sheet5").Copy --> waarbij de naam "sheet5" afhankelijk is van de datum

 

[snb]

@cow18

Worksheetfunction is overbadig en geeft bij diverse Excelfunkties problemen.

For Each sh In ThisWorkbook.sheets
  sh.Visible = (sh.Name = Application.WeekNum(Date, 21)) or (sh.Name = Application.WeekNum(Date, 21)-1)) 
Next

alternatief:

For Each sh In ThisWorkbook.sheets
  sh.Visible = sh.Name = [weeknum(today(),21)] 
Next

 

[cow18]

@SNB, mooie oplossing, ik moet die vierkante haakjes wat vaker gebruiken, kort en krachtig.
Daardoor wordt het antwoord op TS, los uit de pols, zonder te checken

sheets(cstr([weeknum(today()-7,21)])).copy

 

[lsp1972]

Perfect... thanx

deze was de juiste om vorige week te verzenden:

Sheets(CStr([weeknum(today(),21)] - 1)).Copy

 

[cow18]

met jouw versie ga je tijdens de 1e week van het nieuwe jaar verkeerd, dan verwijs je namelijk naar week 0 als vorige week.
In mijn geval naar week 52 (of 53).

 

[lsp1972]

met jouw versie ga je tijdens de 1e week van het nieuwe jaar verkeerd, dan verwijs je namelijk naar week 0 als vorige week.
In mijn geval naar week 52 (of 53).

bij invoer van jouw code werd de huidige week verstuurd.. dus tabblad week 16.. (of ik heb een typefout gemaakt) test nog een keer...

 

[cow18]

today()-7 is vorige week donderdag, het ISO-weeknummer daarvan is vorige week, toch ...

 

[snb]

@cow18

Daar lijkt me geen speld tussen te krijgen.

 

[lsp1972]

@cow18

Daar lijkt me geen speld tussen te krijgen.

Helemaal gelijk.. moest ik wel eerst op save drukken