View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Niek Otten Niek Otten is offline
external usenet poster
 
Posts: 3,440
Default Code somewhat works. Please help?

Change
If Range("b8").Value = 0.05 <= 0.09 Then Range("b10").Value = 0.1
to
If Range("b8")= 0.05 And Range ("b8") <= 0.09 Then....etc
BTW I recommend you reconsider the use of = and <=; what if b8 is 0.095?

--
Kind regards,

Niek Otten




"jsc3489" wrote in message
...
The Value of b10 is always 0.20 no matter what I do. I'm so close I can
taste
it, I think.
I need commission percentage (b10) to be chosen by profit percentage (b8)

This is what I have:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Parts
End Sub

Public Sub Parts()
If Range("b8").Value <= 0.04 Then Range("b10").Value = 0.05
If Range("b8").Value = 0.05 <= 0.09 Then Range("b10").Value = 0.1
If Range("b8").Value = 0.1 <= 0.14 Then Range("b10").Value = 0.13
If Range("b8").Value = 0.015 <= 0.19 Then Range("b10").Value = 0.15
If Range("b8").Value = 0.2 <= 0.24 Then Range("b10").Value = 0.17
If Range("b8").Value = 0.25 <= 0.29 Then Range("b10").Value = 0.18
If Range("b8").Value = 0.3 <= 0.34 Then Range("b10").Value = 0.19
If Range("b8").Value = 0.35 <= 0.44 Then Range("b10").Value = 0.2
If Range("b8").Value = 0.45 Then Range("b10").Value = 0.21
End Sub


--
I reject your reality and substitute my own.

Promote hydrogen - one of the best "clean" fuels there are!