Userform to roundup decimals to the nearest 0.25 or 0.5 or 0.75

[Apple08]

Hi everyone

I have to roundup an userform decimal places to the nearest 0.25 or 0.5 or 0.75. I use the following formula but it is only to set the decimal place to two digits but cannot round up. Please can anyone help?

tBox3 = Format(Round(Val(WordCount) / Range("$C$21") * 1.3, 2), "0" & Application.DecimalSeparator & "00")

Any help is appreciated.

 

[VBA Geek]

so if you have wordcount 1090. I do 1090/13*1.3 and I am getting 1.552026, then I user ceiling(1.552026,0.25) and I get 1.75. Is that not what you want?

 

[Apple08]

Yes that's what I want, so I can't understand why it doesn't work:

TextBox3.Value = WorksheetFunction.Ceiling(Val(WordCount) / Range("$C$21") * 1.3, 0.25)

Have I put it in the right way?

 

[VBA Geek]

have you tried to do: TextBox3.Value = format(WorksheetFunction.Ceiling(Val(WordCount) / Range("$C$21") * 1.3, 0.25),"0.00")

 

[steve the fish]

If you ran this just before you run the textbox line what is the message box saying:

MsgBox WorksheetFunction.Ceiling(Val(WordCount) / Range("$C$21") * 1.3, 0.25)

 

[Apple08]

it works perfectly! Many thanks!