Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Error in Code
With:
Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Not Application.Intersect(Target, Range("F5:F2005")) Is Nothing _ And Target.Offset(0, -3).Value = "Sale of Item" Or Target.Offset(0, -3).Value = "Shrinkage" Then Target.Value = Target.Value * -1 End If Application.EnableEvents = True End Sub When I select from Col C either Sale of Item or Shrinkage and enter say 5 in my Col F my intention (with the code above is to convert the 5 in Cell F12 (say) to -5. But that is not happening. Can someone assist me? TIA, |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
error in this code | Excel Worksheet Functions | |||
Getting error in code | Excel Programming | |||
Error in my code? | Excel Programming | |||
How can I still go to the error-code after a On Error Goto? | Excel Programming | |||
Code Error - Run Time Error 5 (Disable Cut, Copy & Paste) | Excel Programming |