Compare Two Sheets and Report

[bloubul]

Compare Two Sheets and Report.

Hi All.
I’m looking for a macro / formula to do 3 things.
1. It must be able to compare 3, 5, and 6 numbers. (Up to 75 numbers)
2. Sheet_M is the master sheet.
3. Sheet_T is the target sheet.
4. Than create a report on the Report sheet.
5. Create headers on the Report sheet.

The working of the macro / formula.
1. Take the 1st draw on Sheet_M and then run through all the draws on Sheet_T and put it on the Report sheet as indicated. It must be able to allocate the numbers of Sheet_T in the exact position as it is on Sheet_M. (See example of “Report”).
2. Once finish with the 1st draw of Sheet_M and all the draws of Sheet_T, than it goes to the 2nd draw on Sheet_M, and repeat all till the last draw on Sheet_T.
3. The number of draws on both sheets will not exceed 3000 draws.
4. In the reporting part of the macro it must give me the option to select = 2 numbers, or = 3 numbers or > 3 numbers etc,etc.

Here is a copy of the sheet.

http://www.mediafire.com/file/5e4kccgbg0lbyz2/Compair_Sheets.xlsx

I thank you all.

BlouBul

 

[time*treat]

http://www.mediafire.com/file/vp1o71tshd9l6zv/Compare_Sheets.xls/file

 

[bloubul]

time*treat

I thank you Sir.

BlouBul

 

[bloubul]

time*treat

On June 1 2018 you did this macro for me. Which works very good. What I would like to know is can this macro be modified to look at 3 sheets and than gives a report, and if it can be modified what must be added and what have to change.

http://www.mediafire.com/file/vp1o71tshd9l6zv/Compare_Sheets.xls/file

BlouBul

 

[time*treat]

If you want two input pages to one output report, you'll need to insert one other worksheet.
If you want two input pages and two output report pages, you'll need to insert two new worksheets.

For the code, each new page gets a
Dim something__Page As Object
Set something__Page = Workbooks("Compare Sheets.xls").Sheets("Sheet_s") -like entry into the variable stack.

The other changes depend on the input pages(s) and what you're trying to get the output page(s) to look like.

 

[bloubul]

time*treat

Here is the new lay-out. As we have now 3 Lotto's on Wednesdays and Saturdays, one after the other.
The report lay-out must remain the same except it must in clued "Sheet_U on the report as well, as this is the new lotto added.
It all of a sudden gives me an Error when running the macro. Screen dumps included

https://www.mediafire.com/file/5nzpcyidhjmnutr/Compare.rar/file


BlouBul

 

[time*treat]

time*treat

Here is the new lay-out. As we have now 3 Lotto's on Wednesdays and Saturdays, one after the other.
The report lay-out must remain the same except it must in clued "Sheet_U on the report as well, as this is the new lotto added.
It all of a sudden gives me an Error when running the macro. Screen dumps included

https://www.mediafire.com/file/5nzpcyidhjmnutr/Compare.rar/file


BlouBul

I got an error trying to open this. Upload it as a want-the-output-to-look-like .xls file and I'll take a look at it.

 

[bloubul]

time*treat

I have re-saved the spreadsheet as .xls (2003 version) also the error document as .doc (2003 version). At home I use Office 2016 pro. So I done it at work where we use 97 - 2003 Office.

Here are the new links.
https://www.mediafire.com/file/orm7bibybugwts4/Compare_-Sheets.xls/file
https://www.mediafire.com/file/d13u760hy58fiv9/It_also_gives_me_all_of_a_sudden_this_error.doc/file

Thank you for looking at it.

BlouBul

 

[time*treat]

time*treat

I have re-saved the spreadsheet as .xls (2003 version) also the error document as .doc (2003 version). At home I use Office 2016 pro. So I done it at work where we use 97 - 2003 Office.

Here are the new links.
https://www.mediafire.com/file/orm7bibybugwts4/Compare_-Sheets.xls/file
https://www.mediafire.com/file/d13u760hy58fiv9/It_also_gives_me_all_of_a_sudden_this_error.doc/file

Thank you for looking at it.

BlouBul

When you changed the filename to Compare -Sheets.xls, it threw the pointers off.
Orig code:
Dim Master__Page As Object
Set Master__Page = Workbooks("Compare Sheets.xls").Sheets("Sheet_M")
Dim Target__Page As Object
Set Target__Page = Workbooks("Compare Sheets.xls").Sheets("Sheet_T")
Dim Report__Page As Object
Set Report__Page = Workbooks("Compare Sheets.xls").Sheets("Report")

Add 3 minus signs (highlighted)
Change to
Dim Master__Page As Object
Set Master__Page = Workbooks("Compare -Sheets.xls").Sheets("Sheet_M")
Dim Target__Page As Object
Set Target__Page = Workbooks("Compare -Sheets.xls").Sheets("Sheet_T")
Dim Report__Page As Object
Set Report__Page = Workbooks("Compare -Sheets.xls").Sheets("Report")