Opgelost Betaallink

[hdrenth]

Beste forumleden,

Ik wil in mijn Excel factuur een betaallink opnemen naar Linkpay, zodat de klant direct kan betalen na het klikken op een knop.

Van Linkpay ontving ik de volgende string waar aan moet worden voldaan:

Linkpay.nl/qr/vinetix/2500/factuurnummer100345


waarbij vinetix de naam van mijn bedrijf is en 2500 het bedrag van € 25,00.

De betaallink moet alleen worden verzonden als in cel B41 de tekst "betalen met bankoverschrijving" s opgenomen.
Daarnaast de macro meenemen:

• cel B13 (factuurnummer)
• cel D41 (totaalbedrag)

Zie bijgaand bestand genaamd Factuur.

De factuur wordt als bijlagen in PDF formaat aan de mail naar de klant toegevoegd.

 

[femke98]

Ik weet de oplossing niet maar het woord "ondergenoemde" bestaat eigenlijk niet, dat is echt slecht Nederlands.
Je kan beter "onderstaande" gebruiken.

 

[hdrenth]

Beste Femke98,

Jouw correctie klopt. Heb het gewijzigd.
Jammer dat je me niet verder kunt helpen.

mvg,
hdrenth

 

[alphamax]

In A1

=ALS(B41="betalen met bankoverschrijving",HYPERLINK("https://Linkpay.nl/qr/vinetix/"&1000*D41&"/factuurnummer"&B13,"https://I4Linkpay.nl/qr/vinetix/"&1000*D41&"/factuurnummer"&B13),"")

 

[hdrenth]

Beste alphamax,

Dank voor je oplossing. Ik ga het na overleg met LinkPay testen.
Ik kom er over enige dagen op terug.

mvg,
hdrenth

 

[hdrenth]

Beste Alphamax,

Ik heb je code bekeken en uitgeprobeerd.
Helaas krijg ik een foutmelding in de code.
Mijn kennis van VBA is te weinig om het euvel op te lossen.
Ik moet If en End If gebruiken.
Kun je me nog iets verder helpen?

mvg,
hdrenth

 

[JEC.]

Dit is geen VBA. Gewoon een normale formule

 

[hdrenth]

Beste JEC,

Dank voor je reactie.
De formule is inderdaad geen VBA code.
Dat is wel wat ik graag zou willen, maar daarbij ontbreekt mij de kennis.
Kun jij me verder helpen?

mvg,
hdrenth

 

[JEC.]

Zo doe je het in VBA maar gezien je het bestand en dus ook de factuur als PDF wilt versturen, gaat dit je niet helpen.

Sub jec()
If [B41] = "betalen met bankoverschrijving" Then ThisWorkbook.FollowHyperlink "https://Linkpay.nl/qr/vinetix/" & 100 * [D41] & "/factuurnummer" & [B13]
End Sub

Ik denk dat je hier meer aan hebt. Na aanmaken van PDF kun je betalen door op het totaalbedrag te klikken.
In dit voorbeeld wordt de PDF geopend. Wanneer je dit niet wil, kun je alle komma's achteraan én de 1 verwijderen.

Sub jecc()
  With ActiveSheet
    .Hyperlinks.Add .[D41], "https://Linkpay.nl/qr/vinetix/" & 100 * .[D41] & "/factuurnummer" & .[B13]
    .Range("A2:E43").ExportAsFixedFormat 0, Environ("temp") & "\" & "testfactuur.pdf", , , , , , 1
  End With
End Sub

 

[hdrenth]

Bedankt JEC voor je bijdrage.
Ik ga er mee aan de slag.

mvg,
hdrenth

 

[hdrenth]

Dank voor jullie bijdrage. Jullie hebben me erg geholpen.

 

[JEC.]

Graag gedaan