Macro to number pages

[HDMI]

I have a macro that produces page base on the word "UNMET" found on each row. After the page is generated I would like to have it numbered, therefore if there 3 "UNMET" I would like the footer to count 1 of 3, 2 of 3, 3 of 3, ect, ect. Also for cell C14 named "Finding#" for every page produce I would like it count 1 for every page produce. I attached the work produced so far named "SC_Monitoring Tool" along with a example outcome work page name "Numbering Page"
Please run the SC_Monitoring Tool to see the concept. Thank you in advance.

SC_Monitoring_Tool.xlsm
Numbering Page.xlsx

Please Login or Register  to view this content.

[rollis13]

Some new lines in your script should keep you going with the numbering:

Please Login or Register  to view this content.

[HDMI]

Thank you rollis13!!!!!!!!This is exactly what I needed and I Thank you again. I know you are a busy person, but I have one more thing I need added to Macro. If you want me to start a new post I will or if you do not have time I will understand.
Whenever a row is "UNMET" in the SC_Monitoring Tool the Macro Copies and Paste the determine sections, however there are sub sections rows on the SC_Monitoring Tool for instance row 4,5,6,7,8 ect, ect may need to be added to the template section in the "RECORD" cell. Is there a way have an input box pop up and ask "Are there any additional lines needed to be added to that section and if so type the rows that need to be added into the input box and copy and paste those section to the template. I know the part seems very difficult and I can't imagine how to do it, but I know that this forum loves a challenge and can solve anything and from the looks of it you got skills. If you can make this happen. Thank you in advance, if not thank you again for what you have already done and I will update the post to solve and repost. Thank you.

[rollis13]

Glad being of some help but my skill level isn't so high . I think that your request could be solved with a For/Next or Loop testing if such rows are complied and if so, copy them to the "Result" sheet.
The way you create the other sections of the "Result" (Range("A1:R45").Copy / Range("A" & i).PasteSpecial) implicates that you need to clear the new range before adding data since the number of rows to copy may vary.
Maybe if you wait for other help (or start a new thread) and attach a new file with a better example of what your output "Result" may look like the problem can be solved.

[HDMI]

Thanks Rollis13!!! I will start a new thread with example. You have been a great help to me and I Thank you for taking your time to assist. Have a great day and Thanks again.