Bestand opslaan met naam vanuit cel

[Sipers]

Hi,

Ik heb een macro gemaakt en deze werkt goed, alleen wil ik graag dat het bestand ook wordt opgeslagen onder een naam die uit een cel (F1) gehaald kan worden.

code:

Sub Mailbestand()
'
' Mailbestand Macro
'

'
    Sheets("Jantje").Select
    Columns("A:Z").Select
    Selection.Delete Shift:=xlToLeft
    Sheets("Totaal").Select
    Range("E19").Select
    Selection.CurrentRegion.Select
    Selection.Copy
    Sheets("Jantje").Select
    Range("A1").Select
    ActiveSheet.Paste
    Rows("1:1").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlUp
    Columns("A:P").Select
    Columns("A:P").EntireColumn.AutoFit
    Sheets("Jantje").Select
    Sheets("Jantje").Copy
    ActiveWorkbook.SaveAs Filename:= _
        "H:\Pietje\Map3.xlsx", _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWindow.Close
    Sheets("Verzenden").Select
End Sub

Nu wordt het bestand automatisch opgeslagen in Map3. Dit wil ik graag aangepast hebben.

Met deze macro maak ik van 1 sheet een nieuw bestand en ik wil graag dat deze wordt opgeslagen uit een bestands naam die verwijst naar een cel uit het 'oorspronkelijke' bestand.

[breew]

Lekker rommelige code...zeker opgenomen met de macrorecorder....
ok, ok.. zo ben ik ook ooit begonnen

vervang:

"H:\Pietje\\Map3.xlsx"

eens door

ActiveWorkbook.Range("F1").Value

[ Voor 14% gewijzigd door breew op 23-03-2018 15:36 ]

[Sipers]

breew schreef op vrijdag 23 maart 2018 @ 15:36:
Lekker rommelige code...zeker opgenomen met de macrorecorder....
ok, ok.. zo ben ik ook ooit begonnen

vervang:

"H:\Pietje\\Map3.xlsx"

eens door

ActiveWorkbook.Range("F1").Value

Werkt helaas niet.


Je moet ergens beginnen. Het is mij op dit moment nog te ingewikkeld om echt codes te schrijven. Heb je misschien een gratis cursus voor mij

[Angeloonie]

code:

ActiveWorkbook.SaveAs (Range("F1").Value & ".xlsx")

[Sipers]

Angeloonie schreef op vrijdag 23 maart 2018 @ 15:51:

code:

ActiveWorkbook.SaveAs (Range("F1").Value & ".xlsx")

Het bestand wordt nu wel opgeslagen, ik krijg geen error, maar niet in de gewenste map.

[Viper®]

Waarom staan er 2 \ in het pad

"H:\Pietje\\Map3.xlsx"

[Sipers]

Viper® schreef op vrijdag 23 maart 2018 @ 16:09:
Waarom staan er 2 \ in het pad

[...]

Dit mag je negeren. Tikfout

[Dido]

Misschien moet je dan de juiste map toevoegen in je code, danwel in cel F1?

[Angeloonie]

Sipers schreef op vrijdag 23 maart 2018 @ 16:06:
[...]


Het bestand wordt nu wel opgeslagen, ik krijg geen error, maar niet in de gewenste map.

code:

 Bestandsnaam = Range("F1").Value
    ActiveWorkbook.SaveAs Filename:="H:\" & Bestandsnaam

Vervang "H:\" met whatever

[ Voor 5% gewijzigd door Angeloonie op 23-03-2018 16:22 ]

[Viper®]

Anders ipv de cell F1 uitlezen eerst even het volledige pad via een string toekennen en opslaan om te kijken of dat wel goed gaat.

[Lustucru]

Je bent niet de eerste met die vraag en je zult ook niet de laatste zijn. Kijk eens naar eerdere oplossingen https://gathering.tweaker...rd=excel+werkblad+opslaan zorg ervoor dat je begrijpt wat de code doet.

En begin met die opgenomen code weg te gooien. Haal er de essentie uit; de rest is ballast.

[Sipers]

Bedankt het is gelukt!