Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss
iets opslaan na gebruik
65 views
Skip to first unread message
waail...@hotmail.com
Mar 22, 2013, 1:00:18 PM3/22/13
to
hallo
ik heb een factuurprogramma gemaakt met veel moeite, en daar wil ik nog 1 ding aan toevoegen
Het bestaat uit 2 bladen
blad 1 is de rekening met alle gegevens, met de invulvelden van de klanten die ik door middel van validatie van blad 2 haal
als de rekening dan klaar is kan ik nu ,(heb 3 buttons onderaan blz 1 (wel buiten het af te drukken gebied) gemaakt
1 voor 2 maal afdrukken (macro)
1 voor 1 maal afdrukken (macro)
en 1 voor terug gaan naar een niet ingevulde rek ,en afsluiten
zodat hij altijd schoon opslaat
nu zou ik graag willen dat als ik hem afsluit met knop 3 dat hij ook wordt opgeslagen op mijn harde schijf (met datum en evt naam) en dat voor iedere klant
zou dit mogelijk zijn
mvg
Private Sub CommandButton1_Click()
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub
Private Sub CommandButton2_Click()
ActiveWindow.SelectedSheets.PrintOut Copies:=2
End Sub
Private Sub CommandButton3_Click()
ActiveWorkbook.Saved = True
Application.Quit
End Sub
dit zijn de teksten voor de 3 buttons
ik heb een factuurprogramma gemaakt met veel moeite, en daar wil ik nog 1 ding aan toevoegen
Het bestaat uit 2 bladen
blad 1 is de rekening met alle gegevens, met de invulvelden van de klanten die ik door middel van validatie van blad 2 haal
als de rekening dan klaar is kan ik nu ,(heb 3 buttons onderaan blz 1 (wel buiten het af te drukken gebied) gemaakt
1 voor 2 maal afdrukken (macro)
1 voor 1 maal afdrukken (macro)
en 1 voor terug gaan naar een niet ingevulde rek ,en afsluiten
zodat hij altijd schoon opslaat
nu zou ik graag willen dat als ik hem afsluit met knop 3 dat hij ook wordt opgeslagen op mijn harde schijf (met datum en evt naam) en dat voor iedere klant
zou dit mogelijk zijn
mvg
Private Sub CommandButton1_Click()
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub
Private Sub CommandButton2_Click()
ActiveWindow.SelectedSheets.PrintOut Copies:=2
End Sub
Private Sub CommandButton3_Click()
ActiveWorkbook.Saved = True
Application.Quit
End Sub
dit zijn de teksten voor de 3 buttons
![]-[oRus's profile photo](https://lh3.googleusercontent.com/a/default-user=s40-c)
]-[oRus
Mar 23, 2013, 3:49:14 AM3/23/13
to
Op 22-03-2013 wilde waail...@hotmail.com het volgende kwijt:
In de macro voor de laatste knop kan je het blad opslaan met de naam
uit (bv) het naamveld en de datum/rek.nr. in een bepaalde map.
Dan afsluiten. Je basismodel blijft dan onaangetast en kan dan weer
worden geopend.
--
Vriendelijke groeten,
]-[oRus
uit (bv) het naamveld en de datum/rek.nr. in een bepaalde map.
Dan afsluiten. Je basismodel blijft dan onaangetast en kan dan weer
worden geopend.
--
Vriendelijke groeten,
]-[oRus
waail...@hotmail.com
Mar 23, 2013, 1:13:02 PM3/23/13
to
Op zaterdag 23 maart 2013 08:49:14 UTC+1 schreef ] - [ oRus het volgende:
hallo
heb wat geprobeerd maar snap het blijkbaar niet
zou je mij de macro eens kunnen invullen
De naam van de persoon komt in veld GHI 13 GHI zijn gecombineerde cellen
En de de datum in K15
en de doeldir D:\nota`s
Ik zou je zeer erkentelijk zijn , want ik vind excel een mooi progr maar wel lastig.
met vriendelijke groet
heb wat geprobeerd maar snap het blijkbaar niet
zou je mij de macro eens kunnen invullen
De naam van de persoon komt in veld GHI 13 GHI zijn gecombineerde cellen
En de de datum in K15
en de doeldir D:\nota`s
Ik zou je zeer erkentelijk zijn , want ik vind excel een mooi progr maar wel lastig.
met vriendelijke groet
]-[oRus
Mar 24, 2013, 5:06:35 AM3/24/13
to
waail...@hotmail.com schreef op 23-03-2013 :
Lang leve de Help-functie......
Voeg het commando
ActiveWorkbook.SaveCopyAs "C:\TEMP\XXXX.XLS"
toe en vervang de bestandsnaam door je eigen pad en naam.
In de padnaam kan je variabelen uit de sheet gebruiken, bv.
ActiveWorkbook.SaveCopyAs "D:\Facturen" & YEAR(NOW()) & "\Factuur" &
ActiveWorksheet.Range("A1").Value & ".XLS"
Persoonlijk zou ik liever een afdruk maken naar PDF en die opslaan.
Voeg het commando
ActiveWorkbook.SaveCopyAs "C:\TEMP\XXXX.XLS"
toe en vervang de bestandsnaam door je eigen pad en naam.
In de padnaam kan je variabelen uit de sheet gebruiken, bv.
ActiveWorkbook.SaveCopyAs "D:\Facturen" & YEAR(NOW()) & "\Factuur" &
ActiveWorksheet.Range("A1").Value & ".XLS"
Persoonlijk zou ik liever een afdruk maken naar PDF en die opslaan.
waail...@hotmail.com
Mar 24, 2013, 2:39:07 PM3/24/13
to
Op vrijdag 22 maart 2013 18:00:18 UTC+1 schreef waail...@hotmail.com het volgende:
ik heb een regel toegevoegd
maar als ik als het pdf doe , kan ik hem niet openen
en als xlms krijg ik de melding compileerfout
Private Sub CommandButton3_Click()
ActiveWorkbook.SaveCopyAs "C:\nota\rek.xlms"
maar dit is natuurlijk niet de bedoeling(anders heten ze allemaal rek
En mijn kennis van excel is niet goed genoeg om een verwijzing er in te maken dat ik elke rek opgeslagen krijg op volgorde met de naam van de klant en datum
heb al heel wat geprobeerd maar nog steeds is het niet gelukt
mocht je het willen stuur ik je graag het bestandje toe.
zodat je eens kunt kijken
maak hem dan wel even zo dat mijn klant gegevens verdwenen zijn
mvg Bert
maar als ik als het pdf doe , kan ik hem niet openen
en als xlms krijg ik de melding compileerfout
Private Sub CommandButton3_Click()
ActiveWorkbook.SaveCopyAs "C:\nota\rek.xlms"
ActiveWorkbook.Saved = True
Application.Quit
End Sub
hij slaat hem netjes op in de dir nota als rek.xlms
Application.Quit
End Sub
maar dit is natuurlijk niet de bedoeling(anders heten ze allemaal rek
En mijn kennis van excel is niet goed genoeg om een verwijzing er in te maken dat ik elke rek opgeslagen krijg op volgorde met de naam van de klant en datum
heb al heel wat geprobeerd maar nog steeds is het niet gelukt
mocht je het willen stuur ik je graag het bestandje toe.
zodat je eens kunt kijken
maak hem dan wel even zo dat mijn klant gegevens verdwenen zijn
mvg Bert
]-[oRus
Mar 24, 2013, 3:42:06 PM3/24/13
to
waail...@hotmail.com schreef op 24-03-2013 :
De formule
ActiveWorkbook.SaveCopyAs "C:\nota" & Year(Now()) & "\Nota\" &
ActiveSheet.Range("K15").Value & "_" & ActiveSheet.Range("G13").Value &
".XLS"
zou moeten werken (ik had een syntaxfout gemaakt; Help weet je wel). Ik
weet niet hoe je naamvelden zijn gedefinieerd, maar eventueel moet je
de naam samenstellen of uit een andere cel halen.
En dan nog iets: ik hoop niet dat je de nota's werkelijk opslaat in
C:\nota, dus in de root van je PC!
Dit is zeer onverstandig omdat dit is gereserveerd voor je systeem.
Gebruik uitsluitend 'Mijn documenten' of een map op een andere
schijfvolume bv. D:\.
--
Vriendelijke groeten,
Piet
ActiveWorkbook.SaveCopyAs "C:\nota" & Year(Now()) & "\Nota\" &
ActiveSheet.Range("K15").Value & "_" & ActiveSheet.Range("G13").Value &
".XLS"
zou moeten werken (ik had een syntaxfout gemaakt; Help weet je wel). Ik
weet niet hoe je naamvelden zijn gedefinieerd, maar eventueel moet je
de naam samenstellen of uit een andere cel halen.
En dan nog iets: ik hoop niet dat je de nota's werkelijk opslaat in
C:\nota, dus in de root van je PC!
Dit is zeer onverstandig omdat dit is gereserveerd voor je systeem.
Gebruik uitsluitend 'Mijn documenten' of een map op een andere
schijfvolume bv. D:\.
--
Vriendelijke groeten,
Piet
waail...@hotmail.com
Mar 24, 2013, 4:25:25 PM3/24/13
to
Op zondag 24 maart 2013 20:42:06 UTC+1 schreef ] - [ oRus het volgende:
Hallo Piet
ga morgenvroeg het gelijk proberen
moet helaas nu effe aar mijn werk
alvast bedankt voor het meedenken
En maak je geen zorgen ik save alles normaal naar mijn G schijf (losse harddisk)
mvg Bert
ga morgenvroeg het gelijk proberen
moet helaas nu effe aar mijn werk
alvast bedankt voor het meedenken
En maak je geen zorgen ik save alles normaal naar mijn G schijf (losse harddisk)
mvg Bert
waail...@hotmail.com
Mar 25, 2013, 6:01:42 AM3/25/13
to
Op zondag 24 maart 2013 21:25:25 UTC+1 schreef waail...@hotmail.com het volgende:
hallo Piet heb dit ingevoerd maar krijg nog een compileer foutmelding
met verwacht expressie
gelijk al in de 2e zin
ik heb als test gewoon een dir aangemaakt op de c schijf met de naam nota
naam en plek is altijd te wijzigen
heb echt de help knop gebruikt en langdurig alles bekeken, ook zelf wat geëxperimenteerd , maar helaas
dus zou ik je nogmaals willen vragen , mag ik het bestandje naar je opsturen, zodat je er naar kunt kijken. kost mij al vele uren en ik denk dat jij gelijk ziet wat ik fout doe
mvg Bert
met verwacht expressie
gelijk al in de 2e zin
ik heb als test gewoon een dir aangemaakt op de c schijf met de naam nota
naam en plek is altijd te wijzigen
heb echt de help knop gebruikt en langdurig alles bekeken, ook zelf wat geëxperimenteerd , maar helaas
dus zou ik je nogmaals willen vragen , mag ik het bestandje naar je opsturen, zodat je er naar kunt kijken. kost mij al vele uren en ik denk dat jij gelijk ziet wat ik fout doe
mvg Bert
]-[oRus
Mar 25, 2013, 7:38:30 AM3/25/13
to
Op 25-03-2013 schreef waail...@hotmail.com:
> wat geï¿œxperimenteerd , maar helaas dus zou ik je nogmaals willen
ActiveWorkbook t/m .XLS") op een enkele regel staan?
> vragen , mag ik het bestandje naar je opsturen, zodat je er naar kunt
> kijken. kost mij al vele uren en ik denk dat jij gelijk ziet wat ik
> fout doe mvg Bert
Heb je in bovenstaande procedure wel de regels 2, 3 en 4 (dus van
> kijken. kost mij al vele uren en ik denk dat jij gelijk ziet wat ik
> fout doe mvg Bert
ActiveWorkbook t/m .XLS") op een enkele regel staan?
waail...@hotmail.com
Mar 26, 2013, 2:53:41 AM3/26/13
to
Op vrijdag 22 maart 2013 18:00:18 UTC+1 schreef waail...@hotmail.com het volgende:
na nog van alle soorten foutmeldingen, is het gelukt (super)
hij slaat hem nu op met datum en naam als xlsm bestand.
jij gaf aan dat het beter was als pdf bestand op te slaan. Ben ik met je eens omdat als je een opgeslagen bestand opvraagt je daar gewoon weer mee kunt klooien
ik heb daarom de ext in de regel veranderd in pdf en had gedacht dat ik hem dan gewoon kon open met bv foxit reader (pdf leesprogramma)
maar als ik hem open krijg ik de melding format error :not a PDF or corrupted
dus schijnbaar alleen de ext veranderen is niet genoeg .
had al wat opgezocht op internet over het veranderen van een excel bestand naar een pdf , maar dat werkte ook niet
heb jij een suggestie wat ik nog moet veranderen
mvg Bert
]-[oRus
Mar 26, 2013, 4:06:59 AM3/26/13
to
Op 26-03-2013 plaatste waail...@hotmail.com dit op zijn scherm :
niet de structuur van het bestand.
Wat je moet doen is het installeren van een PDF-makerprogrammaatje.
Zelf gebruik ik al een hele tijd PrimoPDF.
Als je dat installeert krijg je een extra printer erbij waarmee je uit
elk programma (dus ook Excel) kan afdrukken naar een PDF-bestand.
Voor Access heb ik een procedure die dat vanuit het programma doet en
dus via een macro kan werken. Of dat ook voor Excel kan werken weet ik
niet, maar dat zou op internet te vinden moeten zijn.
Een PDF maak je dus niet vanuit de macro, maar als je werkblad is
ingevuld, druk je het gewoon (handmatig) af naar PDF.
--
Vriendelijke groeten,
Piet
>>
>> dit zijn de teksten voor de 3 buttons
> Hallo Piet
> na nog van alle soorten foutmeldingen, is het gelukt (super)
> hij slaat hem nu op met datum en naam als xlsm bestand.
> jij gaf aan dat het beter was als pdf bestand op te slaan. Ben ik met
> je eens omdat als je een opgeslagen bestand opvraagt je daar gewoon
> weer mee kunt klooien ik heb daarom de ext in de regel veranderd in
> pdf en had gedacht dat ik hem dan gewoon kon open met bv foxit reader
> (pdf leesprogramma) maar als ik hem open krijg ik de melding format
> error :not a PDF or corrupted dus schijnbaar alleen de ext veranderen
> is niet genoeg . had al wat opgezocht op internet over het veranderen
> van een excel bestand naar een pdf , maar dat werkte ook niet heb jij
> een suggestie wat ik nog moet veranderen mvg Bert
Alleen de extensie veranderen helpt inderdaad niet. Daarmee verandert
>> dit zijn de teksten voor de 3 buttons
> Hallo Piet
> na nog van alle soorten foutmeldingen, is het gelukt (super)
> hij slaat hem nu op met datum en naam als xlsm bestand.
> jij gaf aan dat het beter was als pdf bestand op te slaan. Ben ik met
> je eens omdat als je een opgeslagen bestand opvraagt je daar gewoon
> weer mee kunt klooien ik heb daarom de ext in de regel veranderd in
> pdf en had gedacht dat ik hem dan gewoon kon open met bv foxit reader
> (pdf leesprogramma) maar als ik hem open krijg ik de melding format
> error :not a PDF or corrupted dus schijnbaar alleen de ext veranderen
> is niet genoeg . had al wat opgezocht op internet over het veranderen
> van een excel bestand naar een pdf , maar dat werkte ook niet heb jij
> een suggestie wat ik nog moet veranderen mvg Bert
niet de structuur van het bestand.
Wat je moet doen is het installeren van een PDF-makerprogrammaatje.
Zelf gebruik ik al een hele tijd PrimoPDF.
Als je dat installeert krijg je een extra printer erbij waarmee je uit
elk programma (dus ook Excel) kan afdrukken naar een PDF-bestand.
Voor Access heb ik een procedure die dat vanuit het programma doet en
dus via een macro kan werken. Of dat ook voor Excel kan werken weet ik
niet, maar dat zou op internet te vinden moeten zijn.
Een PDF maak je dus niet vanuit de macro, maar als je werkblad is
ingevuld, druk je het gewoon (handmatig) af naar PDF.
--
Vriendelijke groeten,
Piet
waail...@hotmail.com
Mar 26, 2013, 6:23:51 PM3/26/13
to
Op vrijdag 22 maart 2013 18:00:18 UTC+1 schreef waail...@hotmail.com het volgende:
gaan we nog evem verder over brainstormen
mvg Bert
Fr@nk
Mar 27, 2013, 6:50:32 PM3/27/13
to
>
> schreef in bericht
> news:f94abd05-6ea6-469c...@googlegroups.com...
Je moet het bestand dan wel "Opslaan Als" een PDF-bestand.
Probeer het eens op de volgende manier :
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF,
Filename:="C:\nota\rek.pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True,
IgnorePrintAreas _
:=False, OpenAfterPublish:=True
Natuurlijk wel even de filename naar jouw situatie veranderen.
In bovenstaande opdrachtregel wordt het PDF-bestand ook geopend nadat het is
aan gemaakt. (OpenAfterPublish:=True)
Als je dat niet wil verander dan "True" in "False".
Gr.
Frank.
> schreef in bericht
> news:f94abd05-6ea6-469c...@googlegroups.com...
Probeer het eens op de volgende manier :
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF,
Filename:="C:\nota\rek.pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True,
IgnorePrintAreas _
:=False, OpenAfterPublish:=True
Natuurlijk wel even de filename naar jouw situatie veranderen.
In bovenstaande opdrachtregel wordt het PDF-bestand ook geopend nadat het is
aan gemaakt. (OpenAfterPublish:=True)
Als je dat niet wil verander dan "True" in "False".
Gr.
Frank.
waail...@hotmail.com
Mar 29, 2013, 8:17:51 AM3/29/13
to
Op vrijdag 22 maart 2013 18:00:18 UTC+1 schreef waail...@hotmail.com het volgende:
dank voor het meedenken
waail...@hotmail.com
Mar 29, 2013, 10:34:54 AM3/29/13
to
Op vrijdag 22 maart 2013 18:00:18 UTC+1 schreef waail...@hotmail.com het volgende:
denk dat ik het toch niet snap hoe iets er neer te zetten
Private Sub CommandButton3_Click()
ActiveWorkbook.SaveCopyAs "C:\nota" & Year(Now()) & "\Nota\" & ActiveSheet.Range("K15").Value & "_" & ActiveSheet.Range("G13").Value & ".XLSM"
ActiveWorkbook.Saved = True
Application.Quit
End Sub
hierboven staat nu het script en daarbij slaat hij hem op als xlms bestand op de goede plek
Application.Quit
End Sub
dus wat moet eruit en er dan weer in
mvg Bert
]-[oRus
Mar 29, 2013, 12:05:02 PM3/29/13
to
Op 29-03-2013 schreef waail...@hotmail.com:
Ga alsjeblieft eerst eens reageren op de betreffende berichten en niet
steeds op je eigen, oorspronkelijke bericht.
Er is nu geen touw meer aan vast te knopen op wie je reageert en op
welke reaktie.....
Als bovenstaande werkt, waarom zou er dan iets in dan wel uit moeten???
--
Vriendelijke groeten,
Piet
steeds op je eigen, oorspronkelijke bericht.
Er is nu geen touw meer aan vast te knopen op wie je reageert en op
welke reaktie.....
Als bovenstaande werkt, waarom zou er dan iets in dan wel uit moeten???
--
Vriendelijke groeten,
Piet
waail...@hotmail.com
Mar 29, 2013, 1:08:37 PM3/29/13
to
Op vrijdag 22 maart 2013 18:00:18 UTC+1 schreef waail...@hotmail.com het volgende:
de regel die jij mij terhand deed werkt goed.
Frank reageerde ook op mijn vraag om er rechtstreeks een pdf van te maken na het opslaan.
Ik had al wat geprobeerd met primopdf ,maar dat lukte nog niet vanuit mijn excel bestand
Dus zoek ik (als het mogelijk is)nog hoe hij na het opslaan is veranderd in een pdf file
maar mocht dat niet lukken ben ik hier ook al blij mee
mvg Bert
0 new messages