Opslaan met naam uit een Cel

[Eddy v]

Hallo,

Is mogelijk om een bestand op de slaan met de een naam met daarin een
gedeelte van de waarde uit een cel erbij.

Ik moet namelijke elke week weeklijsten invullen voor de zaak.
Daar wordt automatische een week nummer in een cel gezet.
Kan ik deze cel (met week nummer dus) automatische laten toevoegen
aan de bestand naam??

Dus dat de bestandsnaam wordt week_"en dan hier de cel waarde"

Gr Eddy.

 

[Wigi]

Ja, bijvoorbeeld

ThisWorkbook.SaveAs "C:\Week " & Range("A1") & ".xls"

Wigi

 

[Eddy v]

Bedankt voor je snelle reactie.

Helaas weet ik even niet waar ik de code neer moet zetten of waar ik hem
kan gebruiken

 

[richard1970]

Beste Eddy,

Open het excelbestand, klik op Alt+F11 en dubbelklik links op VBAProject(bestandsnaam). Dubbelklik op ThisWorkbook, en kies dan in plaats van Algemeen - This Workbook middenbovenin het scherm.
Kies rechtsboven BeforeClose en zet daar de regel van Wigi in.
Sla het bestand op.

Richard

 

[Eddy v]

Dat ziet er goed uit..
Alleen hij pakt de waarde uit de cel niet mee
en komt met de melding dat het bestand al bestaat.
Dat klopt dus ook omdat hij het week nummer uit de cel niet meeneemt.

iemand een idee???

Gr Eddy

 

[Wigi]

Bedankt voor je snelle reactie.

Helaas weet ik even niet waar ik de code neer moet zetten of waar ik hem
kan gebruiken

Eddy

ik had wat weinig info gegeven aangezien deze vraag al meerdere keren voorgekomen is.

Richard heeft je ondertussen goed geholpen.

Als het nu nog niet werkt, 2 opmerkingen:

- is de cel wel A1 en niet een andere cel? indien een andere, pas dat dan aan in de code
- de code treedt pas in werking als je het bestand afsluit, niet eerder.

Wigi

 

[Eddy v]

De cel heb ik inderdaad aangepast.

En hij geeft de melding dat het bestand al bestaat ook pas als ik wil afsluiten.
Dus hij wil het bestand wel opslaan maar neem in de naam de cel info niet mee.

 

[Wigi]

En heb je gecheckt of je het bestand met weeknummer erbij al eens opgeslagen werd op de aangegeven plaats?

 

[Eddy v]

Ja dat heb ik gecheckt

Sub Opslaan()
ThisWorkbook.SaveAs "D:\Urenlijsten+snipperdagen\Urenlijst_week_" & Range("H3") & ".xls"
End Sub

Dat heb ik dus staan op de goede plaats.

Als ik nu afsluit komt hij met de melding

Er bestaat in deze locatie al een bestand met de naam D:\Urenlijsten+snipperdagen\Urenlijst_week_.xls. Wilt U dit bestand vervangen?

Gr Eddy

 

[Wigi]

In H3 staat dan niets hoor.

 

[Eddy v]

Ja wel.

In H3 wordt met een formule het week nummer van een datum uitgerekend

 

[Wigi]

En wat komt er als resultaat in die cel H3?

 

[Eddy v]

Een getal.

Het wordt berekend met de volgende formule

=INTEGER((B5-SOM(REST(DATUM(JAAR(B5-REST(B5-2;7)+3);1;2);{1E+99\7})*{1\-1})+5)/7)

 

[Wigi]

Raar verhaal is dit.

Kan je het bestandje (enkel het nodige) hier even bijhangen. Wel eerst zippen.

 

[Eddy v]

Ik heb het denk ik gevonden..

Ik hen nu de eigenschap van de cel op getal gezet..
Nu lijkt het te werken...:thumb:

Is er een moelijk het dat het opslaan niet gebeurt bij het afsluiten maar
bij het drukken op de knop opslaan??

Gr Eddy

 

[Wigi]

Is er een moelijk het dat het opslaan niet gebeurt bij het afsluiten maar bij het drukken op de knop opslaan??

Gr Eddy

U vraagt, wij draaien.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Cancel = True
    Application.EnableEvents = False    
ThisWorkbook.SaveAs "D:\Urenlijsten+snipperdagen\Urenlijst_week_" & Range("H3") & ".xls"
    Application.EnableEvents = True
End Sub

Plak dit achter ThisWorkbook in VBA. Delete alle andere code omtrent dat opslaan.

Wigi

 

[Eddy v]

Bedankt

Uhh het werkt toch niet helemaal...

Dus hier even het bestandje

 

[Wigi]

Voer eerst eenmalig deze macro uit:

Sub enableevents()
    Application.enableevents = True
    MsgBox "OK"
End Sub

Kopieer de code gewoon naar een module. Ga erin staan en druk F5. Je krijgt een message box als je het goed gedaan hebt.

Dan is dit de code voor ThisWorkbook:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Cancel = True
    Application.enableevents = False
    ThisWorkbook.SaveAs "C:\test\Urenlijst_week_" & Range("H3") & ".xls"
    Application.enableevents = True
End Sub

Lukt het nu?

Wigi