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
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