saven maar dan anders

[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

 

[BasMan]

Hallo,

Onderstaande kopieert blad1 naar een nieuw bestandje en slaat het bestandje op zoals het in cel a1 staat.

Sheets("Blad1").Select
Sheets("Blad1").Copy
Range("A1").Select
Bestand = ActiveCell.Text
ChDir "C:\"
ActiveWorkbook.SaveAs FileName:="C:\Documenten\" & Bestand, FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False

Mvg

BasMan

 

[robbie32]

Hoi Basman,

Ik heb de regels als macro aangemaakt en het werkt.
Echter moet de macro iets aangepast worden, want hij wil uiteindelijk de macro uit het orginele bestand halen.
Maar dat lukt ook wel.

Bedankt!!

 

[Gigioly]

Ik heb deze makro over genomen en in gebruik genomen. Waarvoor dank.
Maar ik zou graag hebben dat het nieuwe, opgeslagen bestand NIET geopend wordt.
Weet iemand raad?

Gigioly