Opslaan als

[wacco]

Hallo,

Ik maak met een combobox in een userform een keuze uit een aantal gegevens.
Deze keuze wordt op een tablad genaamd data in een cel geplaatst.
De keuze in de combobox wordt op bepaalt in een een ander tabblad in een reeks genaamd "Naam"
Naast deze reeks staat een andere reeks genaamd "folder", met hierin de folder waar de bepaalde tabbladen moeten worden opgeslagen.
De totale reeks ( naam en folder) heeft de naam "Naam_Folder" gekregen.

Nu zou ik graag willen dat, wanneer een bepaalde naam is gekozen en er wordt gekozen voor opslaan als, dat dit sheet wordt opgeslagen in de folder corresponderend met de naam van keuze.
Om het e.e.a. duidelijk te maken, heb ik een test bestandje bijgevoegd.

Ik hoop dat dit mogelijk is.

Gr,

 

[wacco]

ben nog wat verder gekomen.
Maar kan helaas nog niet schakelen naar de juiste folder.
De code die ik momenteel gebruik is :

Private Sub Opslaan_als_Click()
Dim ck As Boolean

Map = Sheets("Data").Range("E6")
Bestand = Sheets("Data").Range("E7")

ChDrive "E:"
ChDir Map

ck = Application.Dialogs(xlDialogSaveAs).Show(Bestand, 52)

If ck = True Then
Application.DisplayAlerts = False
Application.Quit

Else
MsgBox "Het opslaan is geannuleerd, je keert nu terug naar de applicatie."
End If
End Sub

De naam van het bestand wordt keurig over genomen, maar het overschakelen naar de juiste map ( Map = Sheets("Data").Range("E6") ), werkt niet.
Ik blijf terug komen in de laatst gebruikte map/folder.

Kan iemand mij vertellen wat er eigenlijk mis gaat hier,....en natuurlijk hoe dit wel werkend te krijgen.