• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Opslaan als met een VBA

Status
Niet open voor verdere reacties.
N

Norman Scheuter

Gebruiker
Lid geworden
30 sep 2008
Berichten
124
Hallo,

Op het werk, werken we in diverse QRM cellen, we openen ieder een bepaalde Excelsheet, welke we opslaan op onze eigen schijf.
Bij iedereen heet deze schijf de R:\....
Maar toch is dit voor iedereen een eigen schijf.
Het Excel bestand welke we gebruiken staat elders op het netwerk en wordt opgeslagen met deze VBA.

Sub BewaarAls()
Application.Dialogs(xlDialogSaveAs).Show ActiveSheet.Range("I6").Value & ".xlsm"
End Sub

Is het mogelijk om deze uit te breiden, zodat hij al start op de R:\ schijf, en we van daaruit verder kunnen.
het mooie is dat bij elke cel de eigen cel de verwijzing R:\ heeft, terwijl het toch een andere schijf is.

Ik hoop dat het duidelijk is.


Al vast bedankt voor jullie hulp.

Groetjes Norman.
 
Wat bedoel je met: "zodat hij al start op de R:\ schijf"?
 
Code: 
Sub hsv()
With Application.FileDialog(msoFileDialogSaveAs)
    .InitialFileName = "R:\" & Range("I6").Value
    .FilterIndex = 2
    .Title = "Kies een map"
    .AllowMultiSelect = False
     If .Show Then .Execute
    End With
End Sub
 
Ah, jij snapt 'm :)
 
Mijn welgemeende excuses, ik ga hier straks na kijken.
Door de gigantische drukte heb ik hier niet eens naar kunnen kijken.

Sorry sorry.

Ik laat weten of het hier mee is gelukt.

Dank je voor de hulp.

Groetjes Norman.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan