Vba aanpassen nu slaat hij op met datum en zou week nr moeten worden

[davylenders123]

Heb in de tijd eens een vba gemaakt met behulp van iemand op dit top form :d om makkelijk van een bestand verschillende bestanden ergens klaar te zetten met als naam de datum erin die ergens is ingevuld.

Nu zou ik deze willen gebruiken in een ander bestand waar op de plaats waar de datum werd ingeven nu een weeknummer komt te staan.

Wat moet ik dan juist aanpassen aan de code ?

pad = "G:\Pakketten\Mag-Data\Aanmaak blad ops\aangemaakte\" & Format(Sheets("Data Aanmaak").Range("A2"), "yyyy mm") & "\"
naam = "Input_KPI_Rapport " & Sheets("Data Aanmaak").Range("A2") & ".xlsm"
ActiveWorkbook.SaveAs Filename:=pad & naam

 

[HSV]

Sowieso....

Format(Sheets("Data Aanmaak").Range("A2"), "yyyy mm")

...in:

Sheets("Data Aanmaak").Range("A2")

 

[edmoor]

Of voor de huidige datum:

naam = " Input_KPI_Rapport " & DatePart("ww", Date, vbMonday, vbFirstFourDays)

Voor de datum in A2 op blad "Data aanmaak":

naam = " Input_KPI_Rapport " & DatePart("ww", Sheets("Data Aanmaak").Range("A2"), vbMonday, vbFirstFourDays)

Compleet:

week = DatePart("ww", Sheets("Data Aanmaak").Range("A2"), vbMonday, vbFirstFourDays)
pad = "G:\Pakketten\Mag-Data\Aanmaak blad ops\aangemaakte\" & Format(Sheets("Data Aanmaak").Range("A2"), "yyyy mm") & "\"
naam = "Input_KPI_Rapport " & Sheets("Data Aanmaak").Range("A2") & "_" & week & ".xlsm"
ActiveWorkbook.SaveAs Filename:=pad & naam

 

[davylenders123]

edmoor & hsv

Jullie oplossingen lopen steeds vast op "ActiveWorkbook.SaveAs Filename:=pad & naam"

Dit wordt gebruikt op een citrix omgeving op het werk.
Heb ook al eens de code in een leeg bestandje gezet en dit op mijn laptop zelf laten opslaan zonder in de citrix omgeven te zitten maar hier krijg ik dezelfde fout.

Hier het bestandje dat ik op laptop heb geprobeerd.

Bekijk bijlage Input_KPI_Rapport.xlsm

 

[Ginger]

Moet je in cel A2 natuurlijk wél een datum zetten.... De functie DatePart kan niets met een integer cijfertje...

[EDIT] Overigens dit deel "Format(Sheets("Data Aanmaak").Range("A2"), "yyyy mm")" óók niet....
Is je geplaatste voorbeeld niet zo best? Of is deze identiek aan de werkelijkheid. In dat geval is de oorzaak niet zo moeilijk te achterhalen nietwaar?

 

[davylenders123]

Ginger

Ik heb de code uit post 3 gebruikt en deze was bedoeld om op week nr te kunnen werken.
Had een werkende die het deed op datum niveau zie post 1 , dan stond er in bv A2 een datum.
Nu wou ik een andere voor in de plaats van de datum een week nr te krijgen.
Daarom staat er in de file 1 2 3 4 enz in plaats van datums.

 

[Ginger]

Daarom staat er in de file 1 2 3 4 enz in plaats van datums.

Tja, DAT werkt dus niet (zoals ik al aangaf in m'n reactie). Zet er weer 'ns datums en probeer de code dan opnieuw te runnen...

 

[HSV]

Ik vermoed dat hier hetzelfde probleem zit als in je andere vraag.
Mijn suggestie:
Houd het voorlopig bij die andere vraag..

 

[davylenders123]

Voor deze is de oplossing er.

HSV heeft voor deze de oplossing gegeven in mijn andere vraag.
Hier heb ik deze code gebruikt.

pad = "G:\Pakketten\Mag-Data\Aanmaak blad ops\aangemaakte\"
naam = "Dagrapport PC Sortering " & Sheets("Data Aanmaak").Range("A10") & ".xlsm"


ActiveWorkbook.SaveAs pad & naam , 52

En deze werkt op citrix en op laptop lokaal ook.

Enkel als ik in de sheet een datum ingeef in plaats van een nr of een letters dan werkt het niet.
Dus met deze oplossing kan je opslaan met getallen en letters maar niet als je een datum ingeeft.

Top alle bedankt voor jullie hulp voor deze :thumb::thumb: