Display in the message box, how many entries for a supplier on a reporting month

[rakotonirinas]

Greetings!

I'm trying to use VBA to populate a worksheet to record sales for each supplier on a given month.

Putting the data in the worksheet is actually alright as per the code below. However, I need to upgrade it as it is now possible to have multiple entries for the same reporting month. As per the example on the attached, EDF Energy (G) has already one entry for the same reporting month, i.e., Feb 2022 (O). The last entry (row 4) is what I'm aiming to achieve.

What I would like to achieve is that:
1- The VBA would give a message prompt in which it will display the number of entries for the same reporting month on the same supplier. In this example, that would be 1. This number is taken from the column AA where the number of duplication is counted.
2- The prompt will list (not more than 5 entries) each sales made for every entry on the message box [this would be optional] (I just want to see whether I can easily see these individual figures so the person who enters the data doesn't have to check back to the sales worksheet.

Here is the code I used to achieve the data recording but obviously I got stuck on the message box bit.

Please Login or Register  to view this content.

I hope what I wrote makes sense.

Thank you very much.

[carlmon]

I believe this is what you're looking for...

Please Login or Register  to view this content.

[rakotonirinas]

Thanks. I think your code, particularly the last part, does include an element of what I would like to achieve but not sure how can I use it to resolve my issue.

[carlmon]

Can you copy and paste the section of your code where you want the (optional) message box to appear, and I'll focus on integrating a code into yours?

[rakotonirinas]

Can you copy and paste the section of your code where you want the (optional) message box to appear, and I'll focus on integrating a code into yours?

I have put in red where the count should appear on the message box. Hope it makes some sense.

Please Login or Register  to view this content.

[rakotonirinas]

I guess, what I'm attempting to do is to get the corresponding value of dpRng in the column AA so I can add that in the MessageBox as per the following code

Please Login or Register  to view this content.

[carlmon]

Replace your Code:

Please Login or Register  to view this content.

with:

Please Login or Register  to view this content.

[rakotonirinas]

Tweaked a bit but it worked. Thanks a lot.

[carlmon]

Great!
If I helped you out, please consider adding rep!
Also, please consider posting your working code, in the chance that someone else stumbles across this thread looking for a similar solution.
All the best
Alec