Formatting Data in VBA

[somani123]

In my workbook, cells(16,6) =0.001502


The code below is returning curr_price=1.50160245635267E-03

I need the code to return 0.001502

Any suggestions would be greatly appreciated!

My code is as below

Private Sub lb_disc_Click()
Dim mcounter As Integer
Dim curr_price As Double

select_tx_dis.Value = lb_disc.Value
Worksheets("1. Discount Fees").Select
Set Z = ThisWorkbook
For mcounter = 1 To 19 Step 1
If Cells(mcounter + 15, 1) = lb_disc.Value Then
curr_price = Cells(mcounter + 15, 6)

End If
Next mcounter
tx_current_price = curr_price

End Sub

Kindly help me.

[MrShorty]

facility_1 is dimensioned as an integer, which can only store integers (no fractions/decimals). If you need fraction/decimal data, you need to dimension your variable as double, not integer.

[somani123]

In short the double value is converting to scientific format.

How can i get the value in double only?

[MrShorty]

this forum can be pretty strict about putting code inside of code tags. Refer here: http://www.excelforum.com/forum-rule...rum-rules.html for instructions on using code tags.

Other than rounding, your code is returning the correct value is it not? Do you need a =ROUND() function in cells(16,6) before running this code (=ROUND(current cell formula,6)?

[somani123]

Thanks for ur help. It is working as expected.

Thanks a lot.