Auteur Topic: Factuurnummer koppelen aan PDF bestand (gelezen 2180 keer)

Josc1965 · « **Gepost op:** 24 februari 2018, 11:01:58 »

Hallo helpers en oplossers.

Ik zit al een tijdje te broeden op een vraagstuk waar ik niet echt uit kom maar wel graag gedaan wil krijgen.

Ik verkrijg facturen die ik invoer, en de PDF die bij elke invoer hoort wordt opgeslagen in de bijbehorende maandmap van het juiste jaar. nu zou ik graag willen dat wanneer ik een factuur invoer het factuurnummer een link wordt met het bijbehorende PDF bestand, is dit middels een paar VBA regels te realiseren?

De PDF bestanden staan op: "D:\OneDrive\Documenten\Taxi Schurink\Factuur\Uitgaande\2018\januari 2018 UIT" voor facturen van de maand januari 2018, onnodig te vertellen dat die van februari dan in de map "februari 2018 UIT" staan en zo verder, Ik kan uiteraard als dit voor de verwerking handiger/beter/nodig is een andere mapstructuur verzorgen en alle PDF bestanden van 2018 in 1 map.

Voor het factuurnummer voer ik alleen de laatse cijfers in en de cel heeft een prefix zodat het volledige factuurnummer getoond wordt. de prefix is "QCKDWKWP-03-2018-"0000000

Bijgevoegd een uitgekleed testbestand met de opmerking dat ik getracht heb mijn bedrijfsnaam er overal uit te filteren, wat dan met bovenstaande map structuur weer even niet gelukt is (sorry) en ik hoop dat er iemand is die mij hiermee op weg kan helpen

Gr
Johan

Josc1965 · « **Reactie #1 Gepost op:** 24 februari 2018, 11:15:58 »

Ik merk dat mijn test bestand wanneer de macro gestart werd foutmeldingen gaf omdat ook verwezen word naar andere plekken in mijn oorspronkelijk bestand. ik heb die even uitgezet en nu het juiste bestand meegezonden, excuus.

SoftAid · « **Reactie #2 Gepost op:** 24 februari 2018, 12:18:20 »

Hallo Johan,

Je kan een macro plaatsen die:
- De laatste rij opvraagt (row)
- aan een variabele de waarde geeft van het "factuurnummer" in A & Row 'Dim Facnr As Variant ' Let Facnr = Range("A" & Row).Text
- aan een variabele de waarde geeft van "jaar" in de datum van kolom D op de laatste row
- aan een variabele de waarde geeft van "maand" in de datum van kolom D op de laatste row
- met de formule:
- Met kolom A & Row.....
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="D:\OneDrive\Documenten\Taxi Schurink\Factuur\Uitgaande\" & jaar & \ & maand & \ & facnr & ".PDF"

SoftAid

pitufo · « **Reactie #3 Gepost op:** 24 februari 2018, 13:06:20 »

Hallo SoftAid,

Die is goed op een paar aanhalingstekens na. Deze moet lukken :
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="D:\OneDrive\Documenten\Taxi Schurink\Factuur\Uitgaande\" & jaar & "\" & maand & "\" & facnr & ".PDF"

Aangezien de mapnaam de Nederlandstalige volledige naam van de maand bevat zal er een omweg nodig zijn voor de variabele "maand", tenzij Johan zijn mappen anders wil benoemen, bv. "2018-01", "2018-02"... Maakt uiteindelijk niet uit als het maar op elkaar wordt afgestemd.

@ Johan, jij bent dus eerst aan zet

Nog één (niet onbelangrijk) detail : als je enerzijds met "laatste rij" en anderzijds met "selection" werkt komt het ook niet goed : of het ene of het andere dus, alweer volgens de smaak van Johan.

Groeten,
pitufo

Edit : mijn laatste opmerking hoeft eigenlijk geen rol te spelen, als we voor de (betere, denk ik zo) oplossing zouden gaan waarbij de benodigde instructies worden geïmplementeerd in de procedure die de gegevens vanuit het formulier naar het werkblad overbrengt.

SoftAid · « **Reactie #4 Gepost op:** 24 februari 2018, 13:41:35 »

Citaat van: pitufo op 24 februari 2018, 13:06:20

op een paar aanhalingstekens na.

Sorry, dit was uit de losse hand geschreven.
Ik ken die code zowat vanbuiten omdat ik ze zelf toepas in mijn facturatiebestand, maar "doeme" die haakjes hé

Groeten,

SoftAid

Josc1965 · « **Reactie #5 Gepost op:** 24 februari 2018, 22:39:19 »

Dank voor de reacties.

Ik ga even wat puzzelen

Josc1965 · « **Reactie #6 Gepost op:** 25 februari 2018, 07:52:47 »

Beste helpers

De oplossing was te simpel, slechts 3 regels toevoegen aan mijn bestaande code en de boel werkt naar behoren

Code: [Selecteer]

Maand = ws.Cells(iRow, 2).Value
Facnr = ws.Cells(iRow, 1).Text

ws.Hyperlinks.Add Anchor:=ws.Cells(iRow, 1), Address:="D:\OneDrive\Documenten\Taxi Schurink\Factuur\Uitgaande\2018\" & Maand & " 2018 UIT\invoice-" & Facnr & ".PDF"

bedankt dat je mij op de goede richting heb geduwd SoftAid, ik wilde namelijk geen losse macro maar een oplossing binnen de commandbutton die er al bestond.

pitufo · « **Reactie #7 Gepost op:** 25 februari 2018, 18:09:19 »

Hey Johan,
Persoonlijk denk ik dat ikzelf ook een heel kleine bijdrage heb geleverd om je de juiste richting uit te duwen

,
maar het allerbelangrijkste is natuurlijk gewoon dat je geholpen bent.
Aangezien ik me van vroeger herinner dat het steeds je absolute ambitie is om achteraf zo weinig mogelijk te moeten aanpassen, zou ik in jouw plaats ook "jaar" uit het formulier halen en die als variabele in hyperlinks.add toevoegen, dus zo :

Code: [Selecteer]

ws.Hyperlinks.Add Anchor:=ws.Cells(iRow, 1), Address:="D:\OneDrive\Documenten\Taxi Schurink\Factuur\Uitgaande\" & jaar & "\" & Maand & " " & jaar & " UIT\invoice-" & Facnr & ".PDF"

Groeten,
pitufo

Help!

Menu

Hulp bij posten

Zoeken

Recente topics