dade652003
New Member
- Joined
- Apr 23, 2013
- Messages
- 34
I have excel 2010 and so do my employee's.
For some reason some employees does not work and gives them a complile error to debug.
The code is the following:
Could anyone point me to the right direction as why some of my employees there is no problem and others it debugs. On my excel is runs perfectly with no bugs.
For some reason some employees does not work and gives them a complile error to debug.
The code is the following:
Code:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Not Intersect(Target, [C:C]) Is Nothing And Target.Cells.Count = 1 Then
If Target.Value = "Employee" Then
Target.Offset(0, 4).Value = InputBox("Please enter the Employee's name!, Please enter name or cancel to continue")
End If
End If
If Not Intersect(Target, [D:D]) Is Nothing And Target.Cells.Count = 1 Then
If Target.Value = "Payment" Then
Target.Offset(0, 5).Value = InputBox("Please enter $$ Amount, Please enter payment or cancel to continue")
End If
End If
If Not Intersect(Target, [A:A]) Is Nothing And Target.Cells.Count = 1 Then
If Target.Value Then
Target.Offset(0, 1).Value = InputBox("Please enter Phone#...Incase we are disconnected, Please enter phone # or cancel to continue")
End If
End If
If Not Intersect(Target, [B:B]) Is Nothing And Target.Cells.Count = 1 Then
If Target.Value Then
Target.Offset(0, 5).Value = InputBox("Please enter Name...Good Customer Service, Please enter phone # or cancel to continue")
End If
End If
End Sub
Could anyone point me to the right direction as why some of my employees there is no problem and others it debugs. On my excel is runs perfectly with no bugs.