I am trying to find min and max values of set of 6 values and then find the difference. If the diff is greater than < 15 the "adjsaleprice" should show yes else should show no. I have the below code. When I try to test it the "adjsaleprice" deosn't show any value.
Private Sub Adjustedsaleprice()
Dim Themin As Double
Dim Themax As Double
Dim Thediff As Double
Just out of interest could you explain the following line?
Thediff = (Themax - Themin) * 100 / (Themin)
Also, a quick hint on debugging.
Use breaklines throughout your code and hover your mouse over your variables etc to see their values.
Alternatively you can use Quick Watches along with breaklines to monitor the values of items. To do this - highlight a word and use 'Debug' > 'Quick Watch...' (or shift + F9).
This way you could see why "adjsaleprice" was not obtaining a value.