Opslaan van een nieuw werkboek onder een variabele naam

[blueberry013]

Hallo!

Ik heb een vraagje...
Graag zou ik een nieuw werkboek opslagen onder een variabele naam.

Om het nieuwe werkboek te maken heb ik volgende code...

Sub AddNew()

On Error Resume Next

Set NewBook = Workbooks.Add
With NewBook
.Title = "Planning"
.Subject = "Planning"
.SaveAs Filename:="F:\Planning\Planning 2011\naam"

Sheets.Add.Name = "Manuele"
Sheets.Add.Name = "Multipond"
Sheets.Add.Name = "Ishida"

Application.DisplayAlerts = False
Worksheets("Blad1").Delete
Worksheets("Blad2").Delete
Worksheets("Blad3").Delete
Application.DisplayAlerts = True

End With
End Sub

Probleem is dat hij dit inderdaad zo opslaagt...

enkel zou "naam"
SaveAs Filename:="F:\Planning\Planning 2011\naam" variabel moeten zijn in functie van de waarde van de geselecteerde rij in kolom 2 op mijn actief werkblad (met als naam 2011-w)...

Als daar 21 staat, zou het opgeslagen moeten worden als W21
Staat daar 45, moet het opgeslagen worden als als W45,....

Alvast bedankt!!

 

[Emil S]

voeg toe aan het begin van je code net onder Sub AddNew()

Naam = "W" & Selection.EntireRow.Columns(2)

en pas aan:
SaveAs Filename:="F:\Planning\Planning 2011\" & Naam

 

[blueberry013]

super!!! werkt!!! heel hard bedankt!!!!

Kan ik nu ook macro's (met een tabel) in elk werkblad laten plaatsen?

groetjes

 

[Emil S]

dat is te cryptisch voor me leg eens uit.

 

[blueberry013]

bedoeling was om 1 rapport (uit macro) te plaatsen op sheet 1, een tweede rapport (uit andere macro) in sheet 2 en een derde in sheet 3.
maar dat is ondertussen gelukt...
nu nog mogelijk maken dat als het nogmaals geklikt wordt, er een tweede versie opgeslagen wordt... maar daar ben ik nog niet uit...

pfff als je er niks van kent, is alles zo lang zoeken, he! een geluk dat ik af en toe wat hulp krijg

 

[Emil S]

met DIR kan je opvragen of een bestand al bestaat.
kijk eens in de help [F1] voor uitleg over DIR