call model doesn't work

[afasseeh]

windows 8.0
office 2013
samsung ativ 500t

the macro (Yes_Utility_Decrement) works fine when called from any other Sub either private or not. but in that particular piece of code it does not work.

Private Sub Worksheet_Change(ByVal Target As Range)


'apply utility decrement upon changing value
If Target.Address = "$D$40" Then
If Range("D40") = Range("E39") Then

Yes_Utility_Decrement
Else: If Range("D40") = Range("E40") _
Then No_Utility_Decrement
End If
End If

'apply currency upon changing value
If Target.Address = "$D$35" Then
Call Currency_Change
End If


'apply DSA max and min upon changing value
If Target.Address = "$D$30" Or Target.Address = "$D$31" Then
Call DSAMaxMin
End If

End sub

this piece of code doesn't work although when I insert a msgbox"Hi" after then it displays the message box..
Also
'apply currency upon changing value
and 'apply DSA max and min upon changing value works fine.


this code below works
Sub test()
Dim x As Double
x = 1
If x = "1" Then
If x = "1" Then
Yes_Utility_Decrement
End If
End If




End Sub
as well as the same using
No_Utility_Decrement

I tried using
Call Yes_Utility_Decrement
Run ("Yes_Utility_Decrement")

still did not work

 

[afasseeh]

Private Sub Worksheet_Change(ByVal Target As Range)


Call Currency_Change
Call Yes_Utility_Decrement


'apply utility decrement upon changing value
ThisWorkbook.Sheets("Settings").Activate
If Target.Address = "$D$40" Then
If Range("D40") = Range("E39") Then
MsgBox "Yes"
Call Yes_Utility_Decrement


Else: If Range("D40") = Range("E40") Then Call No_Utility_Decrement
MsgBox "No"
End If



End If



'apply currency upon changing value
If Target.Address = "$D$35" Then
Call Currency_Change
End If


'apply DSA max and min upon changing value
If Target.Address = "$D$30" Or Target.Address = "$D$31" Then
Call DSAMaxMin
End If



End Sub

Call Currency_Change worked completely fine
Call Yes_Utility_Decrement did not do anything

 

[Andrew Poulsom]

What do you mean by "did not do anything"? Have you tried putting a break point in the procedure and stepping through it?

 

[afasseeh]

What do you mean by "did not do anything"? Have you tried putting a break point in the procedure and stepping through it?

yes it do not pause ie did not go through the code its self

 

[Andrew Poulsom]

Did you put a breakpoint in the Yes_Utility_Decrement procedure?

 

[afasseeh]

Did you put a breakpoint in the Yes_Utility_Decrement procedure?

when i put a breakpoint in Yes_Utility_Decrement procedure, and then run

Private Sub Worksheet_Change(ByVal Target As Range)

Call Yes_Utility_Decrement
End Sub

it doesn't break. ie. it doesnt go through the Yes_Utility_Decrement procedure

 

[Andrew Poulsom]

I can't reproduce that behaviour, sorry.

 

[afasseeh]

I can't reproduce that behaviour, sorry.

thanks. It is quite strange...
I will try and ask for some friends help, if I foind a solution I will post it back.

 

[Andrew Poulsom]

Do you want to put your workbook on a share like Box.com and post the URL so that I can take a look at it?

 

[afasseeh]

Do you want to put your workbook on a share like Box.com and post the URL so that I can take a look at it?

THANK you soo much I really appreciate your help. I know you are doing your best to help and spent alot of time.
actually I would like to but my company policy does not allow this ever.
thank you again I really appreciate you help. I will try find other ways to approach the same issue or pass it to my seniors and they may have a solution.
whenever I have a solution I will share it.
Best Regards,

 

[afasseeh]

Do you want to put your workbook on a share like Box.com and post the URL so that I can take a look at it?

I FOUND THE ERROR.
it was quite easy that I couldnt see it.
the macro was actually working and called.
the problem is in the location it is running, I had to add
ThisWorkbook.Sheets("needed worsheet").Activate
at the begining and thats it.
thanks for your help and sorry for wasting your time.