Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: Macro: Worksheet opslaan als PDF, met nummer en datum van een cel  (gelezen 32677 keer)

0 leden en 1 gast bekijken dit topic.

Offline Speedy Kepke

  • Lid
  • *
  • Berichten: 45
  • Geslacht: Vrouw
  • Oplossing.be
Re: Macro: Worksheet opslaan als PDF, met nummer en datum van een cel
« Reactie #15 Gepost op: 01 juni 2015, 19:36:45 »
Hoi Pitufo,
dit is wel degelijk OK hoor: sPath = "C:\users\Documenten\"
daar dient de PDF te worden gesafed.

Ook dit reeds aangepast (voorstel SoftAid)
doch 't blijft hetzelfde

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sPath & strFilename & ".pdf", _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    OpenAfterPublish:=True

toedeloe - Speedy




Offline pitufo

  • Ambassadeur
  • *****
  • Berichten: 1.343
  • Geslacht: Man
Re: Macro: Worksheet opslaan als PDF, met nummer en datum van een cel
« Reactie #16 Gepost op: 01 juni 2015, 20:03:53 »
Ai, dan zit ik even zonder verdere inspiratie...

Wat ik ook probeer, ik slaag er bij mij niet in om het NIET te laten werken  8)

Dan vrees ik dat het toch aan de Office-versie lig. Zelf werk ik met 2007.
Dus even een oproep lanceren : misschien kan iemand met een andere versie eens een kijkje nemen ?
"De computer doet wel degelijk wat je hem vraagt,
 maar NIET wat je DENKT dat je hem vraagt"

Offline Speedy Kepke

  • Lid
  • *
  • Berichten: 45
  • Geslacht: Vrouw
  • Oplossing.be
Re: Macro: Worksheet opslaan als PDF, met nummer en datum van een cel
« Reactie #17 Gepost op: 01 juni 2015, 20:10:53 »
Hoi Pitufo,
ikzelf werk met de Office versie 2010
zou hét daar aan liggen dat dit dan niet werkt bij mij?
Om eerlijk te zijn, ik zie thans door de bomen het bos niet meer....
benne geen al te knapte 'gast' qua macro's, vandaar ook mogelijks mijn gesukkel.

Wie kan mij uit de nood helpen?

Dit is de macro dewelke ik laatst heb bekomen van Pitufo en waar ik een foutmelding krijg:
Sub OpslaanAlsPDF()

Dim strFilename As String, sPath As String, FacNr As String, FacDatum As String, klant As String
       
' hierna standaardlocatie voor opslaan eventueel aanpassen :
sPath = "C:\users\Documenten\"
       
klant = Range("F7")
If klant = "" Then
    MsgBox ("Naam ontbreekt")
    Exit Sub
End If
FacNr = Range("G16").Value
If FacNr = "" Then
    MsgBox ("Factuurnummer ontbreekt")
    Exit Sub
End If
If Range("G17") = "" Then
    MsgBox ("Factuurdatum ontbreekt")
    Exit Sub
End If
FacDatum = WorksheetFunction.Text(Range("G17"), "dd-mm-yyyy")
strFilename = klant & "_" & FacNr & "_" & FacDatum
   
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sPath & strFilename, _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    OpenAfterPublish:=True

   
End Sub

toitoitoi Speedy

Offline Speedy Kepke

  • Lid
  • *
  • Berichten: 45
  • Geslacht: Vrouw
  • Oplossing.be
Re: Macro: Worksheet opslaan als PDF, met nummer en datum van een cel
« Reactie #18 Gepost op: 01 juni 2015, 21:01:24 »
 :help:  :help:  :help:

in bijlage stuur ik nogmaals een file door, met de macro op mijn wijze (mogelijks niet zo efficiënt, doch deze werkt)
als ik de macro uitvoer op het eerste tabblad (in het rood gekleurd), opent deze wel het Opslaan als,
doch neemt de klant_factuur_datum NIET automatisch over van de betrokken factuur

wanneer ik de macro uitvoer, bv op de andere tabbladen, neemt deze WEL automatisch de nodige gegevens over bij het opslaan.

Er dient toch iets mis te zijn met het eerste tabblad (in het rood gekleurd), dit tabblad heb ik gekopieerd vanuit de originele file der facturen 2015, echter zie ik niet wat hier verkeerd aan is ----> de macro hier niet de gegevens overneemt van de klant_factuur_datum bij het opslaan.

Misschien weet iemand raad hiermee
'n dikke merci op voorhand voor de gedane moeite hoor
ciao Speedy
 :)



Offline pitufo

  • Ambassadeur
  • *****
  • Berichten: 1.343
  • Geslacht: Man
Re: Macro: Worksheet opslaan als PDF, met nummer en datum van een cel
« Reactie #19 Gepost op: 01 juni 2015, 21:50:06 »
Hallo Speedy,

't Blijft een vervelende kwestie, maar ja, als mijn macro op jouw systeem niet werkt zullen we inderdaad moeten (voorlopig ?) teruggrijpen naar de omweg via "Application.GetSaveAsFilename"
(en vermits je het niet te zien kan krijgen : in wat ik had gemaakt kwam je nooit in dat "Opslaan als"-scherm terecht)

Wat je "rode" werkblad betreft : daar staat "15.136" als factuurnummer waardoor je in "Opslaan als" een bestandsnaam tussen aanhalingstekens krijgt. Als je er "15136" van maakt zal elk werkblad wel lukken.

Groetjes,
Pitufo

"De computer doet wel degelijk wat je hem vraagt,
 maar NIET wat je DENKT dat je hem vraagt"

Offline Speedy Kepke

  • Lid
  • *
  • Berichten: 45
  • Geslacht: Vrouw
  • Oplossing.be
Re: Macro: Worksheet opslaan als PDF, met nummer en datum van een cel
« Reactie #20 Gepost op: 01 juni 2015, 21:59:50 »
VOORTREFFELIJK Pitufo
er is inderdaad iets fout met de waarde van G16 in het eerste blad
door gewoon te klikken in de formulebalk achter het getal 15136 en Enter te drukken
is dit euvel van de baan

'n mens kijk er soms over hé
vier ogen zien meer dan twee, da's nog eens bewezen

nogmaals heel hartelijk dank voor je hulp
ciao - Speedy


Offline Speedy Kepke

  • Lid
  • *
  • Berichten: 45
  • Geslacht: Vrouw
  • Oplossing.be
Re: Macro: Worksheet opslaan als PDF, met nummer en datum van een cel
« Reactie #21 Gepost op: 01 juni 2015, 22:13:26 »
hoe dien ik deze topic als afgehandeld in te stellen?
Doei Speedy

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.129
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Macro: Worksheet opslaan als PDF, met nummer en datum van een cel
« Reactie #22 Gepost op: 01 juni 2015, 22:29:05 »
hoe dien ik deze topic als afgehandeld in te stellen?
Doei Speedy
wat denk je van de "Topic Solved"-knop ?  ;)

:) SoftAid :)             
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline Speedy Kepke

  • Lid
  • *
  • Berichten: 45
  • Geslacht: Vrouw
  • Oplossing.be
Re: Macro: Worksheet opslaan als PDF, met nummer en datum van een cel
« Reactie #23 Gepost op: 01 juni 2015, 22:34:38 »
amai ben hardleers
doch 'k zie by god niet waar ik die knop kan vinden
 :-[
doei Speedy

Offline Speedy Kepke

  • Lid
  • *
  • Berichten: 45
  • Geslacht: Vrouw
  • Oplossing.be
Re: Macro: Worksheet opslaan als PDF, met nummer en datum van een cel
« Reactie #24 Gepost op: 02 juni 2015, 08:49:59 »
Hoi SoftAid, Pitufo en anderen,
om jullie van dienst te zijn stuur ik in bijlage de macro welke nu perfect werkt.

en daar waar op G16 (cel factuurnummer) Getal opgeslagen als tekst staat
dit NIET hoeven te converteren naar getal
als dat geen enorm pluspunt is hé
een wonder boven wonder!

Nog een fijne dag toegewest
toitoitoi Speedy


Offline pitufo

  • Ambassadeur
  • *****
  • Berichten: 1.343
  • Geslacht: Man
Re: Macro: Worksheet opslaan als PDF, met nummer en datum van een cel
« Reactie #25 Gepost op: 02 juni 2015, 12:35:22 »
Hallo Speedy,

Goed voor jou dat nu alles opgelost is !

Maar... heb jij je inmiddels niet afgevraagd waarom het nu plots wel gaat zonder langs "Opslaan als" te passeren ?
Misschien had ik het dus toch van de eerste keer helemaal goed...

Ik denk dat je ons (onopzettelijk - daar ben ik gerust in) op een dwaalspoor had gezet met het pad, want zie ik daar niet ergens "Charlie's Angel\documenten" staan terwijl we onze hersens hebben gepijnigd over "c:\users\documenten"
 
Maar : no hard feelings, we horen het wel als er nog iets wringt  ;)
 
Groetjes,
Pitufo
"De computer doet wel degelijk wat je hem vraagt,
 maar NIET wat je DENKT dat je hem vraagt"

Offline Speedy Kepke

  • Lid
  • *
  • Berichten: 45
  • Geslacht: Vrouw
  • Oplossing.be
Re: Macro: Worksheet opslaan als PDF, met nummer en datum van een cel
« Reactie #26 Gepost op: 02 juni 2015, 13:00:34 »
OKIDO Pitufo
and yes indeed, no hard feelings
weet dat ik in feite ietwade 'n leek ben in macro's
'k heb soms moeite om iets te verstaan.... laat staan iets goed overbrengen
't zal vast met de leeftijd zijn

echter nogmaals hartelijk dank aangaande je hulp
en mocht er mij nog iets niet goed afgaan, dan trek ik wel terug aan de bel
ja, in feite heb ik nog een probleemke omtrent Excel, allez ikzelf niet, doch de persoon die met de originele file facturen werkt.
Hij neemt altijd kopie - van kopie - van kopie, en ja hoor na enige tijd draait deze file vierkant
dit al me dunk vermeld in deze topic, zie bijlage van de fout
'k wete nu niet of dit te verhelpen valt
zal eens mijn lichtje dienen op te steken in het forum hé, of daar iets hieromtrent te vinden is
allez 'k wete weer met wade m'ine tijd te doden.
Nog een aangename dag toegewenst
Speedy  :)

Offline Speedy Kepke

  • Lid
  • *
  • Berichten: 45
  • Geslacht: Vrouw
  • Oplossing.be
Re: Macro: Worksheet opslaan als PDF, met nummer en datum van een cel
« Reactie #27 Gepost op: 29 juni 2015, 17:45:45 »
Vraagske,
op theRrange G52 staat het totaal van de factuur =
Totaal = Range("G52").Value
echter wordt dit niet goed overgenomen wanneer ik de factuur wil opslaan als een PDF-bestand, daar komt het volgende te staan: Van Malderen Paul_15.163_17-06-2015_1019,2072.pdf -  zie tevens de bijlage.

Ik zou dezelfde getalnotatie dienen te bekomen zoals op de factuur zelf, nl:  1.019,21 €.
Wel te verstaan dat dit bedrag zo ingesteld is als Aangepast in Excel, met als code: _-* #.##0,00 €_-;-* #.##0,00 €_-;_-* "-"?? €_-;_-@_-

hoe dien ik dit op te lossen?

Alvast bedankt op voorhand voor de gedane moeite
Doei - Speedy


Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.129
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Macro: Worksheet opslaan als PDF, met nummer en datum van een cel
« Reactie #28 Gepost op: 29 juni 2015, 18:26:01 »
HalloSpeedy,

je zou in de formule die je de som bepaald voor "TOTAAL TE BETALEN" de functie =AFRONDEN(......;2) kunnen verwerken.

Toch lijkt het me een vreemde gewoonte van zo veel data (info) in je bestandsnaam op te nemen.
Dit werkt volgens mij contra-productief. In je lijst met facturen (je uitgaande facturenboek) kan je toch gemakkelijk dergelijke info terug vinden.
Je kan in je werkboek zelfs linken naar een PDF-bestand.

Lijkt mij een beetje "overkill"....  :-\ :'(

:) SoftAid :)             

Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline Speedy Kepke

  • Lid
  • *
  • Berichten: 45
  • Geslacht: Vrouw
  • Oplossing.be
Re: Macro: Worksheet opslaan als PDF, met nummer en datum van een cel
« Reactie #29 Gepost op: 29 juni 2015, 18:34:24 »
BEDANKT SoftAid
ik test dit eens uit

je opmerkingen zijn heel terecht, echter wordt er voorlopig nog zo gewerkt, dwz zonder uitgaande facturenboek ed

als het PDF-bestand aan klant wordt verstuurd, vind je onmiddellijk alle nodige gegevens terug in de hoofding

doei - Speedy

 


www.combell.com