Macro aanroepen

Stel hier je vraag over een Excel probleem
emiel
Berichten: 309
Lid geworden op: 05 okt 2018 17:55

Re: Macro aanroepen

Bericht door emiel » 30 nov 2021 15:56

Als je het niet probeert kan je het natuurlijk niet weten.


Ps verwijder al die onnodige modules in het bestand
Bijlagen
TESTMACRO2 (1) (1) (2).xlsb
(68.24 KiB) 22 keer gedownload

Wally
Berichten: 14
Lid geworden op: 20 nov 2021 20:34

Re: Macro aanroepen

Bericht door Wally » 30 nov 2021 18:33

@Emiel,

De 2 ingevulde bladen doen het goed.
Maar vul ik weer een ander datum in dan verschijnt weer dezelfde fout.

Gebruikersavatar
haije
Berichten: 192
Lid geworden op: 29 okt 2019 09:45

Re: Macro aanroepen

Bericht door haije » 30 nov 2021 18:44

En hoe luidt dit foutmelding?
En op welke regel komt die?
|-|aije

Wally
Berichten: 14
Lid geworden op: 20 nov 2021 20:34

Re: Macro aanroepen

Bericht door Wally » 30 nov 2021 20:05

Foutmelding is:
Fout 1004 tijdens uitvoering
Het item met de opgegeven naam is niet gevonden.

Code: Selecteer alles

sheets("Sjabloon").Copy After:=Sheets(Sheets.Count)
With ActiveSheet
    .Name = x
     .Shapes.Range(Array("cmb_bew")).Visible = True    '' Deze regel wordt geel gearceerd
    .Shapes.Range(Array("cmb_bewa")).Visible = False
End With
With Sheets("Sjabloon")
    .Select
    .Shapes.Range(Array("cmb_bew")).Visible = False
    .Range("B1").Select
End With
[/quote]

emiel
Berichten: 309
Lid geworden op: 05 okt 2018 17:55

Re: Macro aanroepen

Bericht door emiel » 30 nov 2021 21:06

Wally schreef:
30 nov 2021 18:33
@Emiel,

De 2 ingevulde bladen doen het goed.
Maar vul ik weer een ander datum in dan verschijnt weer dezelfde fout.
Het zal dan toch enkel bij u zijn of anders vertel je niet de gehele waarheid.
Bijlagen
TESTMACRO2 (1) (1) (2).xlsb
(113.52 KiB) 18 keer gedownload

Wally
Berichten: 14
Lid geworden op: 20 nov 2021 20:34

Re: Macro aanroepen

Bericht door Wally » 30 nov 2021 21:34

Ik heb 30-12-2020 als nieuwe datum ingevoerd.

Resultaat zie screenshots
Schermopname (4).png
Schermopname (4).png (107.82 KiB) 425 keer bekeken
Schermopname (5).png
Schermopname (5).png (120.63 KiB) 425 keer bekeken

emiel
Berichten: 309
Lid geworden op: 05 okt 2018 17:55

Re: Macro aanroepen

Bericht door emiel » 30 nov 2021 22:25

Aan een screenshot hebben we niets.
bij lukt het in ieder geval wel.
Bijlagen
TESTMACRO2 (1) (1) (2).xlsb
(126.94 KiB) 19 keer gedownload

Wally
Berichten: 14
Lid geworden op: 20 nov 2021 20:34

Re: Macro aanroepen

Bericht door Wally » 01 dec 2021 08:51

Jammer, dan houd het op.

Toch bedankt voor je moeite.

emiel
Berichten: 309
Lid geworden op: 05 okt 2018 17:55

Re: Macro aanroepen

Bericht door emiel » 01 dec 2021 10:17

Probeer eens zonder ingevulde bladen. ik heb ook de tabbladen een andere naam gegeven (jaar-week) zo kan je ze deftig sorteren.
Bijlagen
TESTMACRO2 (1) (1) (2) (1).xlsb
(38.7 KiB) 21 keer gedownload

Wally
Berichten: 14
Lid geworden op: 20 nov 2021 20:34

Re: Macro aanroepen

Bericht door Wally » 07 dec 2021 14:01

Emiel,

Helaas laatste bijlage levert ook geen verbetering op.

Ik heb wel een fout in de regel ontdekt:

Code: Selecteer alles

'x = Right(DatePart("yyyy", [B3]), 2) & Format(DatePart("ww", [B3]), "00") 
Bij gebruik van bovenstaande regel wordt week 49 aangegeven bij ingevulde datum 30-11-2021.
Dit moet week 48 zijn.

Met onderstaande regel gaat het wel goed:

Code: Selecteer alles

x = Right(DatePart("yyyy", [B3]), 2) & DatePart("ww", [B3], vbMonday, vbFirstFourDays)

Plaats reactie