Automatisch Link maken

[ernhem]

Hallo Ik zou graag het volgende willen maar ik weet niet hoe ik dit voor mekaar kan krijgen.
de onderstaande macro slaat een factuur op als pdf,en daarna worden gegevens naar debiteuren gekopieerd
nu zou ik graag een link naar dit pdf bestand willen hebben in het blad debiteuren is het mogelijk dat deze automatisch gemaakt wordt bij het kopieren ?

Ik hoop dat ik het duidelijk genoeg uitleg.

Mvg Ben



Sub Afdrukken()

Dim Bestand As String
With Sheets("Factuur")
Bestand = "C:\Facturen\" & .Range("AB19").Value & ".pdf"
If Dir(Bestand, vbDirectory) = vbNullString Then
.Range("B1:AH51").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Bestand
MsgBox "Uw document is opgeslagen", vbInformation
Else
If MsgBox("Bestand bestaat al. Overschrijven?", vbOKCancel) = vbOK Then
.Range("B1:AH51").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Bestand
MsgBox "Uw document is gewijzigd", vbInformation
End If
End If
.Range("A1").Select
End With



Dim data(5)
With Sheets("Factuur")
data(0) = .Range("AB19").Value
data(1) = .Range("AB18").Value
data(2) = .Range("G18").Value
data(3) = .Range("G22").Value
data(4) = .Range("AD50").Value
data(5) = .Range("AD48").Value
End With

Sheets("Debiteuren").Range("B" & Rows.Count).End(xlUp).Offset(1).Resize(, 6) = data



End Sub

 

[Piet Bom]

Als in cel A1 het factuurnummer staat, zet dan de volgende formule - B1

=HYPERLINK("C:\Facturen\"&A1&".pdf";A1)

Klik daarna op de hyperlink in cel b1 en de pdf wordt geopend.

 

[ernhem]

Hallo Piet , alvast bedankt voor je snelle reactie. jouw formule klopt maar ik zou deze graag in een macro verwerken en dan zo dat de link bv. in het werkblad debiteuren:k8 wordt geplaatst

Mvg. Ben

 

[Piet Bom]

Ik zou ergens in jouw code de volgende regel opnemen:

Sheets("Debiteuren").Range("K8").FormulaR1C1 = "=HYPERLINK(Bestand,Bestand)"

 

[ernhem]

bedankt Piet , dit is wat ik zocht.

Gr. Ben