PopUp Message Box for Duplicates on worksheet

[NZAS]

Hi
I would like some help to create a popup message box that would be displayed in another worksheet in a work book when on duplicates be produce in any of 2 other worksheets of data where duplicates of colour sequence has occurred. Below is a snapshot which I hope will explain what it is I am looking for help on
Cheers
NZAS

 

[NZAS]

I have found some Message Box VBA code that does work if the assigned button is on that worksheet but I want to place the button on a different worksheet (colour Chart)
If I could get the VBA to work if the button used to run the code is placed in a different work sheet. What I would like is to be able to have the button the the VBA would be assigned to is on Colour Chart work sheet but activate the checking for Duplicates on The worksheet is called Bulk Shipment.
I do not know how this would be done in the VBA code
Cheers
NZAS

VBA Code below
Sub Show_Duplicates_Bulk()
Set r = Range("A1", Range("A" & Rows.Count).End(xlUp))
For Each c In r
If WorksheetFunction.CountIf(r, c) > 1 Then If InStr(1, s, c) = 0 Then s = s & "," & c
Next
MsgBox IIf(s <> " ", "Found Duplicates" & vbLf & Mid(s, 2), "No dup")
End Sub

 

[Logit]

All of the following is presuming your macro does in fact find duplicates.

Sub Show_Duplicates_Bulk()
Set r = Sheets("Bulk Shipment").Range("A1", Range("A" & Rows.Count).End(xlUp))
For Each c In r
If WorksheetFunction.CountIf(r, c) > 1 Then If InStr(1, s, c) = 0 Then s = s & "," & c
Next
MsgBox IIf(s <> " ", "Found Duplicates" & vbLf & Mid(s, 2), "No dup")
End Sub

Rather than use the sheet name, it would be best to use the sheet reference number. Example : When looking in the VBE window, your sheet "Bulk Shipment" may show
as Sheet1("Bulk Shipment") . So in this example the line of code would be : Set r = Sheet1.Range("A1", Range("A" & Rows.Count).End(xlUp))

 

[Logit]

Download workbook : Find Dupes.xlsm

 

[NZAS]

I have got a copy of my file what was the address I can send it to

 

[Logit]

Disregard sending the workbook. Download and review the example workbook in Post #4

 

[NZAS]

Further to this.
I have progressed a bit further through searching but still need further help now.
Need to improve the Macro duplicates test2 so that all duplicated colours along with the orders all get display currently v2 only display one of the duplicates what I need to get is a list of all the colours that have been duplicated in the data and each order number that is associated to that colour. The macros return the Message box to another work sheet which will not change in the macros. Macros also attached. There are 2 version which I have used
See attachments

 

[NZAS]

I may be confusing things with this. Below is the code I use that displays there are Duplicates in column B and it returns what is the duplicates.
What I am looking for is the detail of the duplicate in column be and also the value in column C next to the duplicate. (See may comment also above on 20/11/20)
the code
Sub Show_Duplicates_Other()
Sheets("Other Shipments").Select
Range("A4").Select
Set r = Range("B1", Range("B" & Rows.Count).End(xlUp))
For Each c In r
If WorksheetFunction.CountIf(r, c) > 1 Then If InStr(1, s, c) = 0 Then s = s & "," & c
Next
MsgBox IIf(s <> " ", "Duplicates Found" & vbLf & Mid(s, 2), "No duplicates")
End Sub

My example message box would be if there are duplicates in column B
Column B has duplicates of 2BLA / BLU in 2 rows in column C in rows beside the duplicates the values are different 8020123 and 8020124

The display in the message box would display the value for the Duplicate and the value in Column "C"
BLA / BLU 8020123, 8020124 and if others would also display those
Cheers
NZAS