Snuffy, Fihod, zijn jullie er al uit?
Zo niet, hier even stap voor stap hoe je dat kunt doen.
1. Gebruik altijd een copy van je orgineel.
Je weet maar nooit.
2. Plaats een knop op je excel blad, hier voor is het nodig dat je de formulieren werkbalk aan hebt staan.
Mocht deze nog niet aanstaan kun je dat doen door naast de tekst Help in de bovenste blauwe blak met je rechtermuis knop te klikken.
Er verschijn een keuze lijst en zet een vinkje voor formulieren.
Op deze balk staat en icoontje van een grijs rechthoekje, als je er op gaat staan verschijnt de tekst Knop, normaal gesproken is dit het 4e icoontje op deze balk.
Klik op dit icoontje, ga nu naar je excel blad en trek op een lege plek een rechthoek waar de button wilt hebben.
Als je de muisknop los laat krijg je een popup scherm met de tekst Macro toewijzen.
Klik op Nieuw.
3. Er verschijn een nieuw blad met de tekst;
Sub Knop_1BijKlikken()
End Sub
(bij een engels Excel versie zal dit in het engels zijn, voor de werking maakt dit niets uit).
Plaats je cursor op de lege regel tussen de twee regels tekst en kopieer de volgende tekst er tussen.
Dim Savepath As Variant
Savepath = Application.GetSaveAsFilename(Range("A1").Value, _
"Rapporten (*.xls), *.xls", , "Kies de juiste map")
If Savepath = False Then Exit Sub 'stoppen!
ActiveWorkbook.SaveAs Savepath
Vervang de waarde A1 met de cel waarde waar de naam van de naam van de leerling in staat.
Dus als dit cel B8 is wordt A1 B8...
De tekst Rapporten is alleen maar een hulp tekst, als je de macro gaat gebruiken moet je maar eens kijken waar deze tekst komt te staan, het zelfde geldt voor de tekst Kies de juiste map.
Klik nu op het Excel icoontje (groen) links boven, het blad sluit zich.
4. Nu moet je nog de naam van de button aanpassen.
Klik eerst ergens op het excel blad, de zwarte rand om de button verdwijnt.
Klik met de rechter muisknop op de button, je hebt nu de optie Tekst bewerken. Geef de button een logische naam (bv Opslaan) en klaar ben je.
Sla het lege rapport 'sjabloon' op met Bestand en Save as, nu is het klaar voor gebruik.
