PDF file per regel appart ophalen

[blikbanaan]

Is er een eenvoudigere methode op dit op te lossen, zie bijlage (deze werkt maar code is volgens mij veel te omslachtig).

 

[edmoor]

Dit lijkt me voldoende:

Sub PDF_ophalen1()
    Dim sa As String
    On Error GoTo Fout
    For i = 14 To 86
        sa = "D:\PDF_call\" & Sheets("recept").Cells(i, 4) & ".pdf"
        If Dir(sa, 12) <> "" Then
            ThisWorkbook.FollowHyperlink sa
        End If
    Next i
    Exit Sub

Fout:
    MsgBox """" & Sheets("recept").Cells(i, 4) & ".pdf""  bestaat niet"
End Sub

 

[blikbanaan]

werkt voor een gedeelte haalt in kolom D steeds de zelfde pdf op welke in D14 (met dubbelklik) staat ingevuld in de cel, en zou de waarde welke in bv D15 of D80 moeten ophalen.

 

[snb]

Kopiëren is een vak.

 

[edmoor]

werkt voor een gedeelte haalt in kolom D steeds de zelfde pdf op welke in D14 (met dubbelklik) staat ingevuld in de cel, en zou de waarde welke in bv D15 of D80 moeten ophalen.

Hij leest de regels 14 t/m 86 in kolom D. Cells(i, 4)
Ik heb er alleen nog een Exit Sub bij gezet.

Maar ik denk dat je dan dit bedoelt:

Sub PDF_ophalen()
    Dim sa As String
    On Error GoTo Fout
    r = ActiveCell.Row
    If r > 13 And r < 87 Then
        sa = "D:\PDF_call\" & Sheets("recept").Cells(r, 4) & ".pdf"
        If Dir(sa, 12) <> "" Then
            ThisWorkbook.FollowHyperlink sa
        End If
    End If
    Exit Sub

Fout:
    MsgBox """" & Sheets("recept").Cells(r, 4) & ".pdf""  bestaat niet"
End Sub

 

[blikbanaan]

Hierbij de aangepaste file, hij haalt alle pdf files achter elkaar op bij het aanklikken (dubbelklik) van bv D14 op terwijl hij alleen de file moet ophalen welk in een van de cellen benoemd zijn, bij voorbaat dank al voor uw moeite

 

[VenA]

Dit lijkt mij meer dan voldoende

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  c00 = "E:\Temp\"
  If Intersect(Target, Range("D14:D86")) Is Nothing Then Exit Sub
    Cancel = -1
    On Error GoTo Fout 'of een andere foutcontrole
    ThisWorkbook.FollowHyperlink c00 & Target.Value & ".pdf"
    Exit Sub
Fout:
  MsgBox "bestand niet gevonden"
End Sub

 

[blikbanaan]

Geweldig, bedankt allemaal voor de goede hulp:love: