23 lines
786 B
OpenEdge ABL
23 lines
786 B
OpenEdge ABL
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
|
|
Dim sheetName As String
|
|
Dim mainMacroName As String
|
|
'Dim macroName As String
|
|
' When any cell is double clicked in column b it will trigger the macro for 8oz update
|
|
sheetName = ActiveSheet.Name
|
|
|
|
mainMacroName = "'PERSONAL.XLSB'!psi_update_v2.psiUpdate8oz10oz"
|
|
|
|
On Error Resume Next
|
|
If Target.Column = 2 Then
|
|
Application.Run mainMacroName, Target.Value, Target.Row, sheetName
|
|
End If
|
|
If Err.Number <> 0 Then
|
|
msgbox "It seems you do not have the macro installed, please reach out to regional support to get this activated on your computer.", vbExclamation
|
|
Err.Clear
|
|
End If
|
|
On Error GoTo 0
|
|
End Sub
|
|
|
|
|
|
|