Automatisch opslaan na exporten tabblad

[luibak]

Goede morgen forum gebruikers,

Ik ben nog steeds lekker aan het stoeien met mij bestandje.
Nu mijn vraag: ik heb een bestand A waar een tabblad X in zit.

In dit bestand zit de volgende macro. Deze exporteerd het bestand haald de koppeling naar het oude bestand er uit, is het mogelijk om deze aan te vullen zodat je meteen een pop-up krijgt met opslaan als.

Sub Macro10()
'
' Voorverzenden Macro
'

'
    Columns("A:F").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Columns("H:H").Select
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveSheet.Range("$A$8:$E$839").AutoFilter Field:=1, Criteria1:="<>"
    Range("K28").Select
    Sheets("X").Select
    Sheets("X").Move
    ActiveSheet.Shapes.Range(Array("Button 1")).Select
    Selection.Delete
    Selection.Cut
    Application.CutCopyMode = False
    End Sub

 

[Niels28]

voeg dit onderaan je macro toe.

Application.Dialogs(xlDialogSaveAs).Show

Niels

 

[luibak]

Dank u

 

[luibak]

Misschien is dit wat te veel grvraagd maar toch,

Is het mogelijk om een staandaard naam en of locatie er in te zetten?. Nu in standaard naam map1 en locatie is standaard opslaan map van excel(mijn documenten)
Kan je als locatie bijvb zeggen O:\werken\2012
Dan hoef ik maar 1 keer per jaar hem aan te passen en scheeld het weer klick werk voor mij collega's (echte pad is nog 5 tot 10 mapjes verder)

alvast bedankt

 

[Niels28]

stPath = "O:\werken\2012"
ActiveWorkbook.SaveAs Filename:=(stPath & InputBox("Bestandsnaam invoeren") & ".xlsm")

Of ipv van de inputbox een verwijzing naar excel, dan wordt er meteen opgeslagen.

Niels

 

[luibak]

Niel,

Ik krijg steeds de foutmelding dat de bestand extensie niet klopt,

Maar jij zegd iets over dat je de bestandnaam ook uit een cel kan laten komen, nu zou dat natuurlijk nog mooier zijn.
Is dit tevens mogelijk bij het opslaan pad?

marco

 

[Niels28]

Ja beide is mogelijk.

stPath = Sheets("blad1").Range("A1").Value & "\"
stfilename = Sheets("blad1").Range("A2").Value
'voor geval dat map niet bestaat wordt deze aangemaakt.
With CreateObject("Scripting.FileSystemObject")
    If Not .FolderExists(stPath & "\") Then .CreateFolder stPath & "\"
End With
ActiveWorkbook.SaveAs stPath & stfilename & ".xlsm", FileFormat:=52

Niels

 

[luibak]

Hij werkt perfect,

Harstikke bedankt