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

Excel bestand opslaan met in de naam gegevens uit 3 cellen.

Status
Niet open voor verdere reacties.

davylenders123

Gebruiker
Lid geworden
20 jun 2010
Berichten
902
Zou een excel bestand willen opslaan via een button waar macro aan vasthangt .
Het bestand zou opgeslagen moeten worden met als naam
Naam van het originele bestand gevolgd door gegevens uit cel b1 en c1 en d1.

In de cel b1 staat de dag door formule nu
In de cel c1 staat de datum door formule nu dd/mm/jjjj
In de cel d1 staat de tijd door formule nu uu/mm

Of naam van originele bestand gevold door dag datum(dd/mm/jjjj) en tijd van moment gebruik button

Kan iemand we hier mee helpen ?
 
Bestandsnaam = Activeworkbook.name & [B1] & [C1] & [D1]

Of:
Bestandsnaam = Activeworkbook.name & Format(Now, "dd/mm/yyyy hh:mm:ss")

Of:
Bestandsnaam = Activeworkbook.name & Format(date, "dd/mm/yyyy") & Format(Time,"hh:mm:ss")
 
Laatst bewerkt:
Of zo natuurlijk:
Code:
Sub cobbe()
 Application.DisplayAlerts = False
  ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.FullName & " " & Format(Now, "dddd  ddmmyyy  hhmm") & ".xlsx", FileFormat:=51
End Sub
 
Of zonder 2 extensies in de naam de hebben:
Bestandnaam = Left(ActiveWorkbook.fullname, Len(ActiveWorkbook.fullname)-5) & " " & Format(Now, "dddd ddmmyyy hhmm") & ".xlsx"
 
Bedankt al voor de snelle reacties van jullie :thumb:

De code van cobe werkt en slaat het bestand op in de map waar het originele bestand staat.
Maar zou het bestand in een andere map willen hebben.
G:\Pakketten\Everyone\2de sortering subcos\Ingevulde bestanden

En kan het bestand ook rechtstreeks in de sub mappen worden weggeschreven die in G:\Pakketten\Everyone\2de sortering subcos\Ingevulde bestanden staan ?
Op basis van datum in de naam

De sub mappen zijn
2017 10
2017 11
2017 12
 
Die ActiveWorkbook.FullName geeft het volledige pad inclusief de naam van het document.
Als je ActiveWorkbook.Name gebruikt heb je alleen de naam van het document.
Die kan je uiteraard in ieder pad opslaan.
 
Op basis van datum wegschrijven.
Code:
[COLOR=#3E3E3E]"G:\Pakketten\Everyone\2de sortering subcos\Ingevulde bestanden\" & year(date) & " " & month(date) &"\.......[/COLOR]
 
Krijg het niet werkend.:eek:
Ben niet echt goed met de vba en krijg de zaken niet gecombineerd zodat hij doet wat hij zou moeten doen.
Kan iemand mij zeggen hoe ik de oplossingen juist moet combineren ?
 
Bv.
Code:
thisworkbook.savecopyas [COLOR=#3E3E3E]"G:\Pakketten\Everyone\2de sortering subcos\Ingevulde bestanden\" & year(date) & " " & month(date) &"\" & [/COLOR][COLOR=#3E3E3E]Format(Now, "dddd  ddmmyyy  hhmm) & ".xlsm"[/COLOR]
 
Of laat zien wat je gedaan hebt en vertel er dan bij welke foutmelding je krijgt.
 
Ik heb tot nu dit nog maar en deze loopt al vast op 2de regel.

Heb het volledige bestand ook even toegevoegd.

Code:
Sub opslaan()
  
 


 Application.DisplayAlerts = False
  ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.FullName & " " & Format(Now, "dddd  dd-mm-yyyy  hh" & "u " & "mm") & ".xlsm", FileFormat:=51
  
  Range("D6:E35").Select
    Selection.ClearContents
    Range("J6:K36").Select
    Selection.ClearContents
    Range("A4").Select
   
  Application.DisplayAlerts = False
  ActiveWorkbook.SaveAs Filename:=("G:\Pakketten\Everyone\2de sortering subcos\Welke subco routes gepland.xlsm")
  Application.DisplayAlerts = True
    
   
End Sub

Bekijk bijlage Welke subco routes gepland.xlsm
 
Als je dat bestand met macro's wilt opslaan (.xlsm) dan moet je geen FileFormat 51 gebruiken maar 52.

Extraatje. Wijzig dit:
Code:
  Range("D6:E35").Select
    Selection.ClearContents
    Range("J6:K36").Select
    Selection.ClearContents
in dit:
Code:
Range("D6:E35", "J6:K36").ClearContents
 
Laatst bewerkt:
Zo simpel als je het weet :)

Als ik nu de code van HSV wil gebruiken krijg ik een foutmelding "Compileerfout verwacht : lijstscheidingsteken of )"

Code:
Sub opslaan()
  
 


 Application.DisplayAlerts = False
  'ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.FullName & " " & Format(Now, "dddd  dd-mm-yyyy  hh" & "u " & "mm") & ".xlsm", FileFormat:=52
  thisworkbook.savecopyas "G:\Pakketten\Everyone\2de sortering subcos\Ingevulde bestanden\" & year(date) & " " & month(date) &"\" & Format(Now, "dddd  ddmmyyy  hhmm) & ".xlsm"
  
  
 Range("D6:E35", "J6:K36").ClearContents
    
    Range("A4").Select
   
  Application.DisplayAlerts = False
  ActiveWorkbook.SaveAs Filename:=("G:\Pakketten\Everyone\2de sortering subcos\Welke subco routes gepland.xlsm")
  Application.DisplayAlerts = True
    
   
End Sub
 
In de code van HSV mist een " teken achter hhmm

Die 2e Application.DisplayAlerts = False mag ook uit je code weg.
 
Laatst bewerkt:
Gevonden een ' :eek:

Maar hij slaat enkel op met dag datum en tijd.
Van voor zou de originele naam van het bestand mee moeten genomen worden.

En de aanpassing naar 'Range("D6:E35", "J6:K36").ClearContents' wist teveel.
Deze maakt de D6 tem E35 leeg en ook de J6 tem K36 maar ook F , G , H ,I 6 tem 36
 
Er staan wat " teveel. :d
Code:
Range("D6:E35, J6:K36").ClearContents
 
Hahaha! Inderdaad, Waar jij er eentje te weinig had ingevuld heb ik er 2 teveel gedaan! :p
 
Maar hij slaat enkel op met dag datum en tijd.
Van voor zou de originele naam van het bestand mee moeten genomen worden.

Dan zet je die er toch bij?
Hoe je dat kan doen is al een paar keer getoond.
 
Lachen....:d:d:p

Code:
ThisWorkbook.SaveCopyAs [COLOR=#3E3E3E]"G:\Pakketten\Everyone\2de sortering subcos\Ingevulde bestanden\[/COLOR]" & year(date) & " " & month(date) & "\" & split(thisworkbook.name, ".")(0) & " " & Format(Now, "dddd  ddmmyy  hhmm") & "." & split(thisworkbook.name,".")(1)
 
Is me gelukt met de laatste oplossing van HSV.
Had zelf al van alles geprobeerd en lukt niet , als laatste heb ik dan de code van HSV genomen en nu doet het alles wat het moet doen.

Bedankt voor de snel hulp weeral , toppertjes :thumb::thumb::thumb:
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan