Oude leerling
Gebruiker
- Lid geworden
- 30 aug 2010
- Berichten
- 554
Geacht forum,
In H1 staat de variabele =Vandaag() , 20-07-2021 dus
Met onderstaande code a) wordt dan een map aangemaakt met de naam "Jeu de Boule 2021" (indien dit mapje nog niet aanwezig zou zijn)
Met code b) wordt het active bestand , de gespeelde wedstrijd met de behaalde punten , opgeslagen in het mapje onder de naam "Wedstrijd 20-07-02021"
Nu komt het probleem!
Soms worden er op een dag meerdere wedstrijden gespeeld en krijg ik steeds de vraag of ik al of niet het reeds bestaande bestand wil vervangen
Is er met VBA een oplossing te vinden dat er een volgnummer achter "Wedstrijd 20-07-02021" komt?
Wedstrijd 20-07-02021" 1 Eerste wedstrijd van die dag
Wedstrijd 20-07-02021" 2 Tweede wedstrijd van die dag
Wedstrijd 20-07-02021" 3 , Derde wedstrijd van die dag
a)
'Nieuw jaarmapje op C-schijfmaken. (indien nog niet aanwezig)
b)
Vriendelijke groet , Jaap
In H1 staat de variabele =Vandaag() , 20-07-2021 dus
Met onderstaande code a) wordt dan een map aangemaakt met de naam "Jeu de Boule 2021" (indien dit mapje nog niet aanwezig zou zijn)
Met code b) wordt het active bestand , de gespeelde wedstrijd met de behaalde punten , opgeslagen in het mapje onder de naam "Wedstrijd 20-07-02021"
Nu komt het probleem!
Soms worden er op een dag meerdere wedstrijden gespeeld en krijg ik steeds de vraag of ik al of niet het reeds bestaande bestand wil vervangen
Is er met VBA een oplossing te vinden dat er een volgnummer achter "Wedstrijd 20-07-02021" komt?
Wedstrijd 20-07-02021" 1 Eerste wedstrijd van die dag
Wedstrijd 20-07-02021" 2 Tweede wedstrijd van die dag
Wedstrijd 20-07-02021" 3 , Derde wedstrijd van die dag
a)
Code:
Sheets("Eindklassement").Select
Jaar = Year(Sheets("Eindklassement").Range("H1"))
mapnaam = "C:\Users\Public\Documents\Jeu de Boule" & " " & Jaar
If Dir(mapnaam, vbDirectory) = vbNullString Then MkDir mapnaam
b)
Code:
ActiveWorkbook.SaveCopyAs Filename:= _
"C:\Users\Public\Documents\Jeu de Boule" & " " & Jaar & "\Wedstrijd " & " " & Format(Range("H1")) & ".xlsm" 'Gespeelde wedstrijd opslaan in jaarmapje
Vriendelijke groet , Jaap