Automatish een naam geven bij opslaan

[gast0660]

Hallo,
Ik heb hier een stukje code voor het opslaan van werkbladen, werkt op zich perfect, maar ik zou willen dat het werkblad automatisch wordt benoemd bij het opslaan, onder de vorm van naam+datum zoiets als naam31-08-2015

Sub mySaveSheet()
Dim mySheet
Dim myFile
'The current Workbook.
myFile = ActiveWorkbook.Name
'The current Work-Sheet.
mySheet = ActiveSheet.Name
Sheets(mySheet).Select
'Make a copy of the current Work-Sheet.
Sheets(mySheet).Copy
'Save this Work-Sheet using the Excel "Save-As" dialog screen.
Application.Dialogs(xlDialogSaveAs).Show ("C:\Users\Grote\Documents\Overzicht")
End Sub

Alvast bedankt voor het meedenken

Greetz

 

[ExcelAmateur]

Probeer dit eens.

Sub mySaveSheet()
Dim mySheet
Dim myFile
'The current Workbook.
myFile = ActiveWorkbook.Name
'The current Work-Sheet.
mySheet = ActiveSheet.Name
ActiveSheet.Name = mySheet & " " & Date
'ActiveSheet.Select
'Make a copy of the current Work-Sheet.
ActiveSheet.Copy
'Save this Work-Sheet using the Excel "Save-As" dialog screen.
Application.Dialogs(xlDialogSaveAs).Show ("C:\Users\Grote\Documents\Overzicht")
End Sub

 

[gast0660]

Hoi Excelamateur,
Alvast bedankt voor het meedenken,
krijg helaas volgende foutmelding


Greetz

 

[ExcelAmateur]

Deze geeft volgens mij de juiste naam van het Blad + de datum.

Sub mySaveSheet()
Dim mySheet
Dim myFile
'The current Workbook.
myFile = ActiveWorkbook.Name
'The current Work-Sheet.
mySheet = ActiveSheet.Name
'Make a copy of the current Work-Sheet.
'ActiveSheet.Copy
'Save this Work-Sheet using the Excel "Save-As" dialog screen.
Application.Dialogs(xlDialogSaveAs).Show ("C:\Users\Grote\Documents\Overzicht\" & mySheet & Format(Now, " dd-mm-yyyy") & ".xls")
End Sub

 

[gast0660]

Hoi,

Helaas nog altijd geen automatische benaming tijdens het opslaan.
In bijlage een testbestandje (knop op blad drie)


Groetjes

 

[snb]

Sub M_snb()
    ActiveSheet.Copy
    ActiveWorkbook.SaveAs "G:\OF\roestig" & Format(Date, "yyyymmdd") & ".xlsx", 51
End Sub

 

[gast0660]

Hoi,
@ snb grapjas
Code werkt perfect, is er nog een mogelijkheid om de gekopiërde map automatisch af te sluiten met dezelfde macro?

 

[snb]

Wat dacht je van....

Sub M_snb()
    ActiveSheet.Copy
    With ActiveWorkbook
       .SaveAs "G:\OF\roestig" & Format(Date, "yyyymmdd") & ".xlsx", 51
       .Close 0
    end with
End Sub

 

[gast0660]

Hoi,
@ snb,
Tweede stukje werkt ook perfect maar als ik een tweede keer op exporteren druk krijg ik een message box van excel , die zegt bestand bestaat al, vervangen (knoppen) ja neen annuleren. Als ik op ja druk geen probleem, maar op neen en annuleren krijg ik een foutmelding. Enig idee?
Groetjes

 

[snb]

wat wil je ?

- geen melding
- automatisch overschrijven
- nog iets anders

 

[gast0660]

Hoi,
snb, dank u voor de snelle reactie
Gewoon automatisch overschrijven zolang de naam hetzelfde is (geen keuzemogelijkheden, alleen ja). Simpel: bestand heeft als naam 2015 maand 1 alleen overschrijven, bestand heeft als naam 2015 maand 2 opslaan.
Greetz

 

[snb]

Application.displayalerts=false

 

[gast0660]

Hoi,
@snb werkt weeral eens perfect. Great job:thumb:
Heb nog een (hopelijk laaste) vraagje. Als ik het opgeslagen bestandje open krijg ik de vraag dit bestand bevat koppelingen naar een ander bestand......, is daar nog een oplossing voor, die vraag hoeft niet de bedoeling is alleen maar om een overzichtje van een een bepaalde periode te bewaren.
Greetz

 

[snb]

Zoek je:

Sub M_snb()
   Application.AskToUpdateLinks = False
End Sub

 

[gast0660]

Hoi,
@ snb,
Weer al eens opgelost:thumb:
Deze vraag is opgelost, maar na de vergadering deze namiddag, en de vragen die ik kreeg heb ik nog besloten een andere macro in te bouwen. Namelijk filteren
De vraag is al ik een knopje maak "filteren moet rij a (datumveld) worden gefiltert van oud naar nieuw maar de Range("A7:CZ275") moet ook mee aanpassen. Ik weet dat het kan in excel maar als ze dan vergeten de hele range aan te duiden dan zal dat waarschijnlijk een hoop problemen geven.
Ik durf het bijna niet meer te vragen maar jij hebt blijkbaar alle antwoorden in je broekzak zitten
Bij deze, als je een oplossing weet
Alle hulp is welkom
Greetz

 

[snb]

Misschien eens aan Access denken
Of cola tussen de roestige raderen ?

sub M_snb()
   sheets(1).range("A7:CZ275").sort sheets(1).cells(7,1),1
End Sub

NB.
filteren <> sorteren
rij A <> Kolom A
gefilterd <> gefiltert

 

[gast0660]

Hoi,
had ik ook al gedacht ( ben voorstander van access voor veel zaken) maar in het origineel exceleke zitten er 50.000 formulekes( ja werkelijk) dus geloof mij vrij, ik probeer gewoon het excel bestand zoveel mogelijk ****proof te maken. Ben gewoon al blij met het meedenken.
Maar:
1: als je oplossing weet om 50.000 formulekes in access te krijgen, ik leer graag bij
2: deze vraag had ik gesteld omdat ik graag wat extra oplossingen zie, ik heb niet zo een vertrouwen in de functie macro's opnemen ed
Dus bij deze
Alle hulp is welkom
snb , je was al een crack

Greetz