URGENT HELP IN PDF HYPERLINKING VBA PLEASE

[AYSHANA]

Great day to all!!

i have a user form , and i want to hyperlink each (Delivery Note) to the (shipoutlist column) AND IMMEDIATELY IT WILL HYPERLINK TO THE PDF FILE

here is my code:

Option Explicit
Private Sub CommandButton1_Click()

Dim TargetRow As Integer
Dim Component As String 'Component
Dim MissingData As Boolean
Dim Ctrl As Control

ThisWorkbook.Sheets("Database").unprotect "AWAM"
ThisWorkbook.Sheets("INSPECTION FORM").unprotect "AWAM"



For Each Ctrl In Me.Controls
Select Case TypeName(Ctrl)
Case "TextBox", "ComboBox"
If Trim(Ctrl.Text) = "" Then
MissingData = True
Ctrl.BackColor = RGB(255, 255, 153) 'color highlight to indicate missing data
Else
Ctrl.BackColor = vbWhite 'if there is data
End If
End Select
Next Ctrl

If MissingData Then
MsgBox "Please fill highlighted empty boxes before saving", vbExclamation
Exit Sub
End If


TargetRow = Sheets("ENGINE").Range("B3").Value + 1
Component = TEXT_COMPO

Sheets("Database").Range("Delivery_Note").Offset(TargetRow, 0).Value = TEXT_DEL
Sheets("Database").Range("Delivery_Note").Offset(TargetRow, 1).Value = TEXT_COMPO
Sheets("Database").Range("Delivery_Note").Offset(TargetRow, 2).Value = TEXT_REC
Sheets("Database").Range("Delivery_Note").Offset(TargetRow, 3).Value = TEXT_DATE
Sheets("Database").Range("Delivery_Note").Offset(TargetRow, 4).Value = TEXT_DISP

Sheets("Database").Range("Delivery_Note").Offset(TargetRow, 5).Value = HEMO
Sheets("Database").Range("Delivery_Note").Offset(TargetRow, 6).Value = CLOT
Sheets("Database").Range("Delivery_Note").Offset(TargetRow, 7).Value = BAG
Sheets("Database").Range("Delivery_Note").Offset(TargetRow, 8).Value = LABEL
Sheets("Database").Range("Delivery_Note").Offset(TargetRow, 9).Value = COOLANT
Sheets("Database").Range("Delivery_Note").Offset(TargetRow, 10).Value = SEGMENT
Sheets("Database").Range("Delivery_Note").Offset(TargetRow, 11).Value = TEMP
Sheets("Database").Range("Delivery_Note").Offset(TargetRow, 12).Value = RECBY
Sheets("Database").Range("Delivery_Note").Offset(TargetRow, 13).Value = DATIME



Unload FORM1

MsgBox Component & " was added to the Database", 0, "Complete"


ThisWorkbook.Sheets("Database").protect "AWAM"
ThisWorkbook.Sheets("INSPECTION FORM").protect "AWAM"


End Sub

Private Sub CommandButton2_Click()


ThisWorkbook.Sheets("Database").unprotect "AWAM"
ThisWorkbook.Sheets("INSPECTION FORM").unprotect "AWAM"


Unload FORM1

ThisWorkbook.Sheets("Database").protect "AWAM"
ThisWorkbook.Sheets("INSPECTION FORM").protect "AWAM"


End Sub


Private Sub DATIME_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
Me.DATIME = CDate(Me.DATIME)
End Sub

Private Sub TEXT_DATE_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
Me.TEXT_DATE = CDate(Me.TEXT_DATE)

End Sub

Private Sub TEXT_DISP_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
Me.TEXT_DISP = CDate(Me.TEXT_DISP)
End Sub

 

[Fluff]

Duplicate to: URGENT HELP IN PDF HYPERLINKING PLEASE

In future, please do not post the same question multiple times. Per Forum Rules (#12), posts of a duplicate nature will be locked or deleted.

In relation to your question here, I have closed this thread so please continue in the linked thread.