• 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.

Opslag locatie en filename op basis van waarde in cellen

Status
Niet open voor verdere reacties.

novec

Gebruiker
Lid geworden
6 jan 2009
Berichten
191
Hallo

Ik heb een sheet die door de organisatie gaat en die op veel plaatsen moet worden opgeslagen.

Ik wil daarom het volgende:
In de sheet staat de bestandslocatie in een cel en in een andere cel de bestandsnaam.
Ik ken de code op op te slaan maar dan staat de locatie rechtstreeks in de code.
De bestandslocatie staat in B4 en de bestandsnaam zoals in B6.
Beide velden kunnen van waarde veranderen.

dank alvast

Steven
 

Bijlagen

  • Test bestandsnaam in sheet.xlsx
    10 KB · Weergaven: 30
Code:
Option Explicit

Public Sub SaveAsRanges()

    Dim strFileName As String

    With Worksheets("Blad1")
        strFileName = .Range("B4").Value & .Range("B6").Value & ".xlsm"
    End With
    
    ThisWorkbook.SaveAs strFileName, xlOpenXMLWorkbookMacroEnabled

End Sub
 
Geweldig AlphaMax het werkt zou als ik wil.

Maar ik heb wel nog een aanvullende vraag.

Als ik opsla en het bestand bestaat als krijg ik volgende melding
foutmelding.PNG
Als dan op "cancel" of "nee" krijg ik een foutmelding en start foutopsporing.
Dat wil ik graag voorkomen.
In plaats daarvan zou bij optie "Nee" het bestand opgeslagen moeten worden met de toevoeging (1) Daarbij is de 1 oplopend.
En bij de optie "Cancel" niet opslaan en schermpje sluiten.

Dank alvast.

Steven
 
Laatst bewerkt:
Geef het bestand een unieke naam

Code:
strFileName = format(now,"yyyymmdd hhmmss ") &.Range("B4").Value & .Range("B6").Value & ".xlsm"
 
Voor de C schijf lijkt me niet zo'n best idee @VenA.

Achter .range("B6").value lijkt me een beter idee.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan