calculation .goes worng

1. calculation .goes worng

Hi...

I need help

I have program in excel where after i run this program the calculation which calculate is wrong

example

In sheet data in column H..there is field name Quantity..

if the the Quantity is 40 * 30 = 1200
but what i get is = 1727481

I have attached the program..

Thanks
Mraj

2. Re: calculation .goes worng

Your post does not comply with Rule 1 ** our Forum RULES. Your post title should accurately and concisely describe your problem, not your anticipated solution.

To change a Title on your post, click EDIT then Go Advanced and change your title, if 2 days have passed ask a moderator to do it for you.

(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)

3. Calculation for calculate quantity

Hi..

I have source code but this code is not working as i want

Dim x, i As Long, P As Long, k As Long, n As Long
With Sheets("Data").Range("a1").CurrentRegion
x = .Value
End With
With CreateObject("Scripting.Dictionary")
.CompareMode = 1
For i = 2 To UBound(x)
If Not .exists(x(i, 1)) Then
n = n + 1
.Item(x(i, 1)) = n
For k = 1 To UBound(x, 2) - 2
x(n, k) = x(i, k)
Next k
x(n, k + 1) = "calculation is (total Quantity * 30)= Overall Total"
Else
x(.Item(x(i, 1)), 8) = x(.Item(x(i, 1)), 8) + x(i, 8)
x(.Item(x(i, 1)), 9) = x(.Item(x(i, 1)), 8) * 30
End If
Next i

End With
With Sheets("OutPut")
.UsedRange.Offset(1).ClearContents
.Range("A2").Resize(n, UBound(x, 2)).Value = x
.Columns.AutoFit
.Activate
End With

example

In sheet data in column H..there is field name Quantity..

if the the Quantity is 40 * 30 = 1200
but what i get is = 1727481

I have attached the program..

Thanks

4. Re: calculation .goes worng

Ok..

I'm sorry for this..

Thanks

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

• You may not post new threads
• You may not post replies
• You may not post attachments
• You may not edit your posts

Search Engine Friendly URLs by vBSEO 3.6.0 RC 1