Display results in a userform label

[Av8tordude]

Can someone assist with a VBA code to display the results in a label for the selected row. The data location is as displayed, however the cursor will in column A. The formulas used are below...

Total Cost: =SUM(U8*T8,X8*W8,Z8*AA8,AC8*AD8,AF8*AG8)
Total Fees: =SUM(V8,Y8,AB8,AE8,AH8)

Thank you kindly for your assistance..

 

[justuptou]

below code is helping you to calculate the accumulation even you have over 5 Lots, please see below,

Dim A, B as Long

' Assigned the start point at Range T8.
Range("T8").select
A = 0 ' as the Total Cost Value and set to Zero first
B = 0 ' as the Total Fees Value and set to Zero first

Do while Len(Activecell.value) <> 0
if Len(Activecell.value) <> 0 then
A = A + Activecell.value * Activecell.offset(0,1).value
B = B + Activecell.offset(0,2).value
Activecell.Offset(0,3).select
END IF
msgbox "Total Cost : $ " & Format(A, "0.00") & Chr(13) & _
"Total Fees : $ " & Format(B, "0.00")
Range("A" & Activecell.row).select
Loop

 

[Av8tordude]

Hi Justuptou..

1. I tested the code but it doesn't calculate correctly if I add addition data. (See data in green and msgbox in Image)
2. Is it possible to obtain the calculation without the cursor moving? The cursor will remain fixed in column A and I would like to select the row to obtain the data?
3. You mention of having additional lots, however no additional Lots will be added.

 

[justuptou]

Hi Justuptou..

1. I tested the code but it doesn't calculate correctly if I add addition data. (See data in green and msgbox in Image)
2. Is it possible to obtain the calculation without the cursor moving? The cursor will remain fixed in column A and I would like to select the row to obtain the data?
3. You mention of having additional lots, however no additional Lots will be added.

View attachment 85769

Sorry, Please change the coding in blue.
Sub Display_Msg()

Dim A, B

' Assigned the start point at Range T8.
Range("A2").Select
A = 0 ' as the Total Cost Value and set to Zero first
B = 0 ' as the Total Fees Value and set to Zero first

Do While Len(ActiveCell.Value) <> 0
If Len(ActiveCell.Value) <> 0 Then
A = A + ActiveCell.Value * ActiveCell.Offset(0, 1).Value
B = B + ActiveCell.Offset(0, 2).Value
ActiveCell.Offset(0, 3).Select
End If
Loop

Range("A" & ActiveCell.Row).Select
MsgBox "Total Cost : $ " & Format(A, "0.00") & Chr(13) & _
"Total Fees : $ " & Format(B, "0.00")

End Sub

 

[Av8tordude]

Thank you Justuptou.

Works great!