via macro automatisch "opslaan als"

[jong.braster]

Ik ben in windows '98 en Excel 97 een leuk uitziend programmatje aan het maken. Ik heb een werkblad gemaakt met allemaal knoppen voor diverse functies. Eén van de knoppen haalt een sjabloon op dat een briefhoofd weergeeft.

Deze brief wordt van tekst voorzien, geprint en moet dan door 1 muisklik opgeslagen worden.

Met welke functie (macro) kan ik dat sjabloon, door een klik met de muis, opslaan in een bepaalde map en ook steeds een andere naam geven.

 

[Ingrid B]

Maak de macro eerst via Extra/Macro/Nieuwe macro opnemen. Wijzig nadien de naam van het document (in de macro) door bijv. een celverwijzing.

 

[jong.braster]

Macro maken gaat uitstekend. Maar een verwijzing maken naar een cel gaat mijn pet te boven.

In de macro staat:
"C:\Mijn documenten\schoonheidssalon\brieven verstuurd\1.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False

Ik heb het document "1" genoemd. Het volgende docoment moet dan "2" gaan heten, enz.

Ik begrijp dat je voor dit probleem veel kennis nodig heb. Dit bezit ik niet. Als het te moeilijk is laat dan maar zitten.

In ieder geval bedankt.
groetjes Henk

 

[Ingrid B]

Dim fName$
[COLOR=green]'teller ophogen[/COLOR]
  Sheets("Blad1").Range("A1") = Sheets("Blad1").Range("A1") + 1
[COLOR=green]'documentnaam samenstellen[/COLOR]
  fName = "C:\Mijn documenten\schoonheidssalon\brieven verstuurd\" & Sheets("Blad1").Range("A1") & ".xls"
[COLOR=green]'document opslaan met nieuwe naam[/COLOR]
  ... Filename:=fName ...

 

[jong.braster]

Bloemen en kusjes.
Hartelijk bedankt, het werkt perfect.

groetjes

 

[terbeest]

Ik denk dat Ingrid toch wel een prijs zou verdienen voor de meeste goede excel antwoorden...

Hulde hulde hulde....

 

[Marrosi]

Inderdaad, Ingrid's Excel-lente kennis van Excel grenst aan het ongelofelijke!

 

[MoRpHeUz]

ja mensen, daar kunnen wij nog wat van leren(en ik d8 dat ik veel van excel wist )

HULDE!!!:thumb: