Hi
I have a workbook that contains multiple sheets and allows the user to run a report which will consolidate all of the individual sheets data into a report view sheet
Each time the report macro is run, the new report sheet is saved todays date and time i.e. 03-04-2021 13:13:06
An administrator uses that report to put comments for items that need to be changed or corrected on individual sheets
The user sees the admin comments, selects hyperlinks that bring them to the sheet to make then updates and when all have been completed they re-run a report
The new report is again saved with todays date and time
I have the following macro which would allow the admin to compare the commented sheet report to the new sheet report so that they can ensure changes were made etc.
>>> use code - tags <<<
The problem is, my macro is set up with sheet2 and sheet1 just while I tested how to do this, BUT I'm now stuck in that I need the user to tell me which 2 reports to compare since any user can run a report while they are working in the file. I want the admin to be able to specify the 2 sheets i.e. the 03-03-2021 13:13:05 sheet and perhaps a 03:05:2021 09:15:08 report. I was thinking a prompt to allow the user to select the sheet tab and then have the macro copy the name etc but I'm stuck. Thoughts?
I have a workbook that contains multiple sheets and allows the user to run a report which will consolidate all of the individual sheets data into a report view sheet
Each time the report macro is run, the new report sheet is saved todays date and time i.e. 03-04-2021 13:13:06
An administrator uses that report to put comments for items that need to be changed or corrected on individual sheets
The user sees the admin comments, selects hyperlinks that bring them to the sheet to make then updates and when all have been completed they re-run a report
The new report is again saved with todays date and time
I have the following macro which would allow the admin to compare the commented sheet report to the new sheet report so that they can ensure changes were made etc.
>>> use code - tags <<<
Code:
Dim rngCell As Range
For Each rngCell In Worksheets("Sheet2").UsedRange
If Not rngCell = Worksheets("Sheet1").Cells(rngCell.Row, rngCell.Column) Then
rngCell.Interior.Color = vbYellow
End If
Next rngCell
Last edited by a moderator: