Opslaan als: Bestandsnaam uit celinformatie

[Chiel001]

Is het mogelijk een bestand op te laten slaan (via een macro) waarbij de bestandsnaam gebaseerd is op celinformatie (tekst & datum) uit 2 cellen uit hetzelfde tab ?

Voorbeeld:

Cel A1: Jan
Cel A2: 18-12-2008
Bestandsnaam wordt Jan18122008.xls

 

[richard1970]

Beste Chiel,

Allereerst: Welkom op dit forum.
Bekijk de volgende thread eens: http://www.helpmij.nl/forum/showthread.php?t=392242

Die gebruiker stelde exact dezelfde vraag als jij.

Richard

 

[Roncancio]

Sub Opslaan()
ActiveWorkbook.SaveAs Range("A1").Value & Format(Range("A2").Value, "ddmmyyyy")
End Sub

Met vriendelijke groet,


Roncancio

 

[Chiel001]

Bedankt; werkt prima !

 

[Roncancio]

Bedankt; werkt prima !

Graag gedaan.
Gaarne de vraag op opgelost zetten.(rechts onderaan het scherm).
Bvd.

Met vriendelijke groet,


Roncancio

 

[Chiel001]

Nog 1 vraag: ook de bestandslocatie (dir. op LAN) wil ik uit een cel lezen. Deze cel bevindt zich in een ander TAB blad. Hoe kan ik dit doen ??

 

[snb]

Als je een bestand wil hernoemen met de gebruikersnaam, de bewerkingsdatum en het pad van het bestand:

ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\" & Application.UserName & Format(Date, "yyyymmdd") & ".xls"

Hiermee hoeft geen cel in het werkboek 'belast' te worden.

 

[Roncancio]

Sub Opslaan()
ActiveWorkbook.SaveAs WorkSheet("Andere TAB").Range("A1").Value & Range("A1").Value & Format(Range("A2").Value, "ddmmyyyy")
End Sub[/CODE]

Je moet even kijken naar de padverwijzing.

Met vriendelijke groet,


Roncancio