PDF file per regel appart ophalen

Status
Niet open voor verdere reacties.
Dit lijkt me voldoende:
Code:
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
 
Laatst bewerkt:
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.
 
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:
Code:
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
 
Laatst bewerkt:
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
 

Bijlagen

Dit lijkt mij meer dan voldoende

Code:
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
 
Geweldig, bedankt allemaal voor de goede hulp:love:
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan