Show %age in cell using VBA

Hi Forum,
I am using VBA to form a budget and have struck a problem.
The problem is I cannot get the cells (Columns 10 and 11) show a %age instead of text or number, please see code below.
Any help on this would be greatly appreciated.

Private Sub BtnOk_Click()
'Find next row on the data sheet
NextRow = Worksheets("Data").Cells(Rows.Count, 1).End(xlUp).Row + 1

'Write the values from this form to that row
With Worksheets("Data")
.Cells(NextRow, 1).Value = Me.TbId
.Cells(NextRow, 2).Value = Me.TbName
.Cells(NextRow, 3).Value = Me.LbDept.Value
.Cells(NextRow, 4).Value = Me.TbRate
.Cells(NextRow, 5).Value = Me.TbHrs
.Cells(NextRow, 6).Value = Me.TbDays
If Me.OptBtnYes = True Then
.Cells(NextRow, 7) = "Yes"
Else
.Cells(NextRow, 7) = "No"
End If
.Cells(NextRow, 10).Value = Me.TbSupN
.Cells(NextRow, 11).Value = Me.TbSupC
If Me.OptBtnHousY = True Then
.Cells(NextRow, 8).Value = 5000#
Else
.Cells(NextRow, 8).Value = "N/A"
End If

End With

'Unload the Form
Unload Me
End Sub

Example workbook? Make life easier please

Hi Philb1,
Sorry, so new to this.
Cannot see any "attachment" icon.
Have sent a request to the webmaster to find out how to insert a workbook or file here.
will get back to you when I know how to insert the workbook.
Thanks for your patience in this matter.
Jdin54

Originally Posted by shg

Everything you need to know is in the forum rules.

Yes that is true, but in my case I haven't been able to upload an attachment for quite a while. I've given up & use a link to dropbox.

Hi Philb1

http://www.excelforum.com/attachment...1&d=1456785793
Please let me know if ok.
Thanks again.

The textboxes are entering text values into the sheet cells. Convert the values to long & divide by 100 like this

Please Login or Register  to view this content.

Cheers

Thanks Philb1,
That has worked in that the %ages are showing, but only as a full %age. I tried to get the %age to 2 decimal places by changing the CLng to CInt but that didn't work.
Can you suggest a fix for this. I really do need the result of the super to show as for example 9.50 or 3.55.
Regards

Try this

Please Login or Register  to view this content.