Vba Pop-up that displays cell values or sums categories

[snackpack]

Hi,
I'm trying to program a relatively simple pop-up box in Excel, but I am not too familiar with <ACRONYM title="visual basic for applications">vba</ACRONYM> code. The situation is that I have a worksheet in an excel workbook linked to a .csv file that updates daily with inventory information. I want the pop-up to display the total weight of inventory in various categories. Each row on the linked sheet is a unique piece of inventory & has a column w/ category and weight. However, the number of rows will vary daily based on how much inventory is in stock. So, a small portion of the worksheet would look something like the table below. Then, on a separate "start" worksheet in the book there would be a button that says "Sum Inventory" and when pressed a pop-up would appear that displays:
"Category A - 30 tons
Category B - 15 tons
Category C - 60 tons"

But the summation would change daily based on how much inventory is in each category.

I suppose I could link the pop-up text to particular cells on the data sheet (outside of the data range) that contain sumif formulas, or that could somehow be written into the code?

Thanks for your help!
Dave
[TABLE="class: cms_table_grid"]
<TBODY>[TR]
[TD]Piece[/TD]
[TD]Weight[/TD]
[TD]Category[/TD]
[/TR]
[TR]
[TD]1[/TD]
[TD]10[/TD]
[TD]A[/TD]
[/TR]
[TR]
[TD]2[/TD]
[TD]15[/TD]
[TD]B[/TD]
[/TR]
[TR]
[TD]3[/TD]
[TD]20[/TD]
[TD]A[/TD]
[/TR]
[TR]
[TD]4[/TD]
[TD]20[/TD]
[TD]C[/TD]
[/TR]
[TR]
[TD]5[/TD]
[TD]40[/TD]
[TD]C[/TD]
[/TR]
</TBODY>[/TABLE]

 

[dermie_72]

I'd use a summary sheet linked to the total, using sumif to provide the information. It would be much quicker than try to learn VBA.

 

[sky1in5]

you can insert a column for the total sum of A,B & C.

E.G column D is total sum
D1 = A, D2 = B, D3 = C

D1 = =SUMIF(C:C,"A",B:B)
D2 = =SUMIF(C:C,"B",B:B)
D3 = =SUMIF(C:C,"C",B:B)

Press alt + f11, select thisworkbook and change general to workbook.

Private Sub Workbook_Open()
MsgBox ("Category A -" & Range("D1") & " tons")
MsgBox ("Category B -" & Range("D2") & " tons")
MsgBox ("Category C -" & Range("D3") & " tons")
End Sub

and save as excel enable macro, close and open the workbook again, you will get the result.