ExecuteProcess in VBA
Posted: Wed Jan 19, 2011 7:47 am
Hi I was able to dig through some codes for executing processes in VBA...even though I don't get any error...is there anyway that you can help me troubleshoot the codes to get them working?
Code: Select all
Sub Representation_Warning()
Dim Representation_Remark As Range
If Range("Representation_Remark").Text = "Beyond Allowable Expense" Then
'MESSAGE BOX
Select Case MsgBox("The Representation Expense is Beyond its allowed expense limit. Would you like to approve this expense?", vbExclamation + vbYesNo, "Representation Expense Warning !")
Case vbYes
Select Case MsgBox("Are you sure you would like to approve this Representation Expense", vbQuestion + vbYesNo, "Representation Expense Approval ?")
Case vbYes
vbaTm1ExecuteProcess "Apps", "APPROVE_representation", 4, Sheet2.Range("C2"), Sheet2.Range("C3"), Sheet2.Range("C4"), Sheet2.Range("C5")
MsgBox ("You have approved the Representation Expense Budget")
Case vbNo
End Select
Case vbNo
MsgBox ("Kindly have the Sales Personnel responsible to adjust the expense")
End Select
End If
End Sub