Completed

[blcexcel]

I am stuck coming up with a solution for a project I'm working on. The goal is to give users the ability to select multiple product levels for printing a report. I created a file with check boxes. I can handle creating a macro that will check where there is a "True" and then have the macro copy the product level to the report template tab where the report will be created and printed. My challenge is once there is one "True" I don't have the ability to return the macro back to the tab with the check boxes. I attached the file that I'm working on.

Thanks in advance for any ideas! I'm open to a different solution as well.

 

[SirJB7]

Hi, blcexcel!
I don't understand what you tried to mean with "return the macro back to the tab with the checkboxes". As a blind shot this sentence will do it:
Worksheets("Print Options").Activate
but I'm wondering if you were after this. If not, please elaborate.
Regards!

 

[blcexcel]

In the macro if there is a "True", I have to change the Active sheet to to the report template sheet to calculate and print the report (the report is not in the file I attached). Once I do this I need to return to the Check Box tab and look for the next product item that has a "True". But how do I return the macro to where it left off from? It needs to start reviewing the product list looking for "True"s where it ended. Does this help?

 

[SirJB7]

Hi, blcexcel!

Not much, but first you have a coding issue, regarding a Do in excess or a missing Loop, check this:

If ActiveCell = True Then
    ActiveCell.Offset(0, -1).Select
    'move one cell to the left
    Selection.Copy
    Sheets("Report Template").Select
    Range("B3").Activate
    ActiveSheet.Paste
    '****Need to add other commands to calc & print Div page
    Sheets("Print Options").Select
    Range("E7").Activate
    'copy Entity to Report Template
    Selection.Copy
    Sheets("Report Template").Select
    Range("B3").Activate
    ActiveSheet.Paste
    '****Need to add other commands to calc & print Div page
    Sheets("Print Options").Select
    Range("D7").Activate
    Do Until IsEmpty(ActiveCell)
   
    ActiveCell.Offset(1, 0).Select
   
   
   
   
    'Else
    'ActiveCell.Offset(1, 0).Select
    'move one cell down
End If

Regards!

 

[blcexcel]

I just haven't worked on the bottom part of the macro because of this challenge.

 

[SirJB7]

I can handle creating a macro that will check where there is a "True" and then have the macro copy the product level to the report template tab where the report will be created and printed. My challenge is once there is one "True" I don't have the ability to return the macro back to the tab with the check boxes.

Hi, blcexcel!
I'm leaving for today, I guess, but it'd be useful if you describe in your own words what do you want to achieve, despite of what stated at the quote. So people who might be able to help you could realize what you wanted to achieve, and fix your code or eventually write a new one.
Regards!