VBA InputBox Percentage problem

[reekome]

Every time I try to input a number through the input box and into a cell, it converts to a full percentage. That cell is formatted to "Percentage" anyway. But I need it to function normally. For example, If I put 20 in the InputBox, I want it to show as 20% in the cell, and not as 200% here is the code I am using..


Range("C5").Select
Range("B3").Value = InputBox("What is the Property Postcode?")
Range("B4").Value = InputBox("What is the Purchase Price?")
Range("B5").Value = InputBox("What is the Deposit?")
Range("B7").Value = InputBox("What is the Interest Rate?")
Range("B8").Value = InputBox("What is the Terms In years?")
Range("B9").Select

I need cell B7 to show what I insert in the InputBox and not multiply it by 100

Thanks!

 

[wigi]

You need to respond to the Inputbox with .20 or 0.20

 

[djreiswig]

I think you have to divide what you enter by 100. So the 20% would actually be a value of 0.2

So this should work.

Range("C5").Select
    Range("B3").Value = InputBox("What is the Property Postcode?")
    Range("B4").Value = InputBox("What is the Purchase Price?")
    Range("B5").Value = InputBox("What is the Deposit?")
    Range("B7").Value = (InputBox("What is the Interest Rate?") / 100)
    Range("B8").Value = InputBox("What is the Terms In years?")
    Range("B9").Select

 

[wigi]

Addition - or use:

[B7* = InputBox("What is the Interest Rate?")/100

 

[reekome]

I think you have to divide what you enter by 100. So the 20% would actually be a value of 0.2

So this should work.

Range("C5").Select
    Range("B3").Value = InputBox("What is the Property Postcode?")
    Range("B4").Value = InputBox("What is the Purchase Price?")
    Range("B5").Value = InputBox("What is the Deposit?")
    Range("B7").Value = (InputBox("What is the Interest Rate?") / 100)
    Range("B8").Value = InputBox("What is the Terms In years?")
    Range("B9").Select

Thank you so much! I've been searching high and low for a solution.. this worked perfectly :D

 

[djreiswig]

Glad to hear it worked.

 

[wigi]

Addition - or use:

[B7* = InputBox("What is the Interest Rate?")/100

Type: This should have been

[B7] = InputBox("What is the Interest Rate?")/100