Display results in message box

[Swift4Play]

Hi there, any help would be appreciated. I have wrote a macro to summarise some tabled data, the data consists of machine name (eg: machine1-8), machine number (this is a unique identifer) and amount which is a cash value. This all works fine but i would like to display the Summarised results in a msgbox but am unsure how to go about it as the number of machines is a variable (as in on one occation there maybe 10 machines other times there might be 30 machines). The summarised data begins at row 7 across columns AI,AJ and AK. Thanks in advance

[Richard Buttrey]

Hi

I think you need to upload your workbook and mock up an example of exactly what you want to see in your message box and relate it to the summarised data.

But why are you wanting to display some results in a transitory message box? Why not write them to the workbook? In fact why do you need a macro to summarise data at all when there are perfectly good standard excel functions to do this? They are far more efficient and quicker than any VBA code you choose to write.

Regards

[Swift4Play]

Thanks for your response. I've attached a Jpeg of the sheet i'm working on. the user would enter data on the left hand side (pale blue boxes, Columns B-C & E-J), my code then copies the info skiping blanks to Columns AE-AG then Summarises it in AI-AK. Its from here i would like to display these summarised results in a messagebox but as you can see on this occasion there would be 8 machines displayed, next time the might be 20 machines displayed and i'm unsure how to handle this. Yes i realise this would be alot easier just to display the result on the workbook but i'd like to try something abit new. Any help would be appreciated, thanks

What i'd like to see in the message box:


Machine1 1 £5
Machine2 2 £10
Machine3 3 £2
Machine4 4 £2

Total = £......

etc... incuding all machines in the summarised list

[royUK]

You probably need Photoshop, if it's an excel problem then excel would be best

[Swift4Play]

I'm sorry but i dont understand your reply, whats photoshop got to do with me displaying the data found in Range(AI6:AK14) of the image i posted in a message box using vba ?

[royUK]

How's an image goint to help us with your Excel workbook, you were asked to attach a workbook

[Swift4Play]

Sorry i attached the image rather than the workbook as i thought seeing where the summarised data was stored would be enough, i apologise. i have decided to go with plan b and simply replace the data with the summarised data on the worksheet, shame as i stated i was keen to learn something new, thank you for time anyways.

[royUK]

I can't see why you need a macro, use SUMIF

[Swift4Play]

Summarising the data isn't an issue, i have wrote some code which works a treat, the only part i was stuck on was trying to get the summarised results displayed in a messagebox so i could have a button which when clicked would display the summarised results without re-arranging the data on the sheet. so something like


Machine1 = Range("AI7").Value
CoNo1 = Range("AJ7.Value
Amout1 = Range("AK7.Value

Machine2= Range(AI8").Value
CoNo2 = Range("AJ8").Value
Amount2 = Range("AK8").value

(For however many machines in summarised data)

msgbox " & Machine1 & CoNo1 & Amount1 & VbCrLf & Machine2 & CoNo2 & Amount2 & "

i hope you get the idea, if this is possible it would be prefered.

[royUK]

If you want to display the table with the summaries in then I would suggest a listbox in a UserForm. Using a messagebox would involve more coding.

As to the summarising, I wondered why you felt the need for VBA to do it

Here's an example

[Swift4Play]

ah briliant, i had previous thought of displaying the data on a userform but was unsure about the process, would you be able to guide me through using a listbox to display my information ?

[royUK]

Sorry missed your reply, I've added an example to my previous post

[Swift4Play]

Thank you so much, this is spot on what i'm after, thank you for your patience, you the man

[royUK]

If you are satisfied with the solution(s) provided, please mark your thread as Solved.

How to mark a thread Solved
Go to the first post
Click edit
Click Go Advanced
Just below the word Title you will see a dropdown with the word No prefix.
Change to Solved
Click Save