inhoud cel (excel) als bestandsnaam?

[robbie32]

Hallo,

Ik heb ook een vraagje.
Als een factuur of een inkooporder oid maakt via excel. dan hang hier een order/fuctuurnummer aan.
Nu wil ik deze order/factuur opslaan onder het betreffende ordernummer. Is het mogelijk om via een macro het de pagina op te slaan onder het nummer zonder deze in te hoeven vullen (dus copieren vanaf de sheet) ?
Mocht dit niet duidelijk zijn dan hoor ik het graag, en al ik proberen om e.e.a. beter te verwoorden.

alvast bedankt.

robbie32

 

[jpvs]

Hier een bestandje wat in cel M14 staat wordt het bestand naar genoemd.
Wel het path aanpassen waar het word opgeslagen?

Dit kopieren naar ThisWorkbook :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Naam As String
Dim Pad As String
Dim Bestandsnaam As String
Naam = Sheets(1).Range("M14").Value & ".xls"
Pad = "F:\AA\"
Bestandsnaam = Pad & Naam
Me.SaveAs Pad & Naam
End Sub
Pierre

 

[robbie32]

hoi bedankt voor de info.
Alleen werkt het niet.
Ik krijg een foutmelding op regel:
me.save........... etc.

kan het zijn omdat ik de NL versie van excel heb?
ik heb vanalles geprobeerd, maar niets werkt.
Is het ook mogelijk dit scriptje om te zetten in een vba script welke aangeroepen wordt via een button op de sheet?

 

[Withaar]

Sub Macro1()
'
' De macro is opgenomen op 10-6-2004 door --.

' Controleer of bestand bestaat
If Dir("C:/Facturen/" & Range("A1") & ".xls") = Range("A1") & ".xls" Then

' MsgBox ("File komt voor") ' Eenvoudige save, overschrijf bestande bestand
ActiveWorkbook.Save

Else
'MsgBox ("File niet gevonden") ' Maak nieuwe bestand aan
ActiveWorkbook.SaveAs Filename:="C:\Facturen\" & Range("A1") & ".xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=True, CreateBackup:=False

End If

End Sub

Er wordt nu van uitgegaan dat de naam van het bestand (factuurnummer) in cel A1 staat, mocht deze waarde ergens anders staan moet je alle A1's veranderen naar de gewenste cel.
Folder waarnaar op geslagen wordt is C:\Facturen\ , uiteraard kun je ook die naar wens aanpassen.

Open je Excel bestand (gebruikt eerst een copy ), druk op [ALT]+[F11], kies invoegen, kies Module
Plak de macro (Alles van boven aan t/m End Sub) in het lege blad, je krijgt evt. een waarschuwing; klik op ja.
Ga terug naar je excel blad (button met de X).

Plaats nu een button op je blad, excel vraag welke macro je wilt koppelen aan deze button, kies de macro.

Als laatste moet je er voor zorgen dat de folder Facturen ook daadwerklijk bestaat, ga dus naar C: en maak in je verkenner de map Facturen aan.

N.b. De taal waarin Excel werkt kan verschillen, macro's zijn echter altijd in het engels.

 

[Withaar]

Sla bestand op en maak daarbij gebruik van een waarde uit excel.

Voorbeeld in bijlage

 

[robbie32]

bedankt voor deze oplossing.
Ik heb de "programma regels" gebruikt, daar in je zip bestandje niets stond (dit ter info)
Maar ik ben hier erg blij mee!!

:thumb:

 

[Withaar]

Zip bestand eerst opslaan dan pas openen.

 

[jpvs]

Bij mij werkt het bestand?
Heb je het path aangepast? Pad = "F:\AA\"

Als je in de cel M14 een getal zet VB 1001
En je sluit het bestand dan wordt er in
F:\AA\het bestand 1001.xls in gezet.

Maar je moet wel het bestand sluiten zie :

Private Sub Workbook_BeforeClose

Pierre

 

[robbie32]

Geplaatst door Withaar
Zip bestand eerst opslaan dan pas openen.

Dit is ook zo gebeurd. Echter staat er niets in het zip bestandje.
ook niet als "hidden" file.
maar het werkt.. en daar gaat het om.

bedankt.

 

[robbie32]

Geplaatst door jpvs
Bij mij werkt het bestand?
Heb je het path aangepast? Pad = "F:\AA\"

Als je in de cel M14 een getal zet VB 1001
En je sluit het bestand dan wordt er in
F:\AA\het bestand 1001.xls in gezet.

Maar je moet wel het bestand sluiten zie :

Private Sub Workbook_BeforeClose

Pierre

Ik heb deze optie alsnog geprobeerd. echter weer de foutmelding.
Ik heb de andere optie gebruikt. Daar het voor mij makkelijker is om e.e.a via een macro te laten werken.
maar ook jij bedankt voor de oplossing.

gr. robbie32

 

[Withaar]

Zelf nog een keer gedownload, bij mij zit er wel een bestand in, maar helemaal lekker is i inderdaad niet.
Ik krijg een fout melding als ik hem in excel wil starten
Misschien is er iets fout gegaan bij de upload.

Maar goed je hebt de code en als die werk laat ik het daar maar bij.