This is my first post if done correctly this time. I guess I have to visit to find a response to receive in my inbox instead of receiving through an email or notification.
I have a workbook with 7 sheets (each for a day of the week) and other sheets as well.
I want to reset validations in a ranges of cells and clear other cells in each of the seven sheets only, ALL at one time.
I have a working code that works via a macro button on each of the 7 sheets (relabeled "Su", "M", "T", "W", "Th", "F", & "Sa"), but they only reset the sheet they are on. It is the same code on each sheet if I understand correctly.
I have renamed each of the sheets in the properties from the "sheet1" to "Su", etcetera. I will enclose a screenshot of the properties and the code and then upload the code as text in
.
I see the examples on "Restrict vba loops to specific worksheets and much more" example you have, but as a very novice person with VBA I do not understand how to insert my code into it. I understand a little and have a book to learn, however I am missing a basic understanding it seems most of your participants have. Can you help please:
[ATTACH=CONFIG]68883[/ATTACH]
[CODE]Sub Reset()
Range("F7", ["F12"]).Value = Sheets("Nutri Val").Range("B3").Value
Range("F21", ["F25"]).Value = Sheets("Nutri Val").Range("B3").Value
Range("F33", ["F38"]).Value = Sheets("Nutri Val").Range("B3").Value
Range("F46", ["F51"]).Value = Sheets("Nutri Val").Range("B3").Value
Range("F59", ["F64"]).Value = Sheets("Nutri Val").Range("B3").Value
Range("F72", ["F77"]).Value = Sheets("Nutri Val").Range("B3").Value
Range("A6").Value = Sheets("Nutri Val").Range("B2").Value
Range("B9", ["C12"]).Value = Sheets("Nutri Val").Range("T16").Value
Range("B22", ["C25"]).Value = Sheets("Nutri Val").Range("T16").Value
Range("B35", ["C38"]).Value = Sheets("Nutri Val").Range("T16").Value
Range("B48", ["C51"]).Value = Sheets("Nutri Val").Range("T16").Value
Range("B61", ["C64"]).Value = Sheets("Nutri Val").Range("T16").Value
Range("B74", ["C77"]).Value = Sheets("Nutri Val").Range("T16").Value
Range("C15", ["C19"]).Value = Sheets("Nutri Val").Range("T16").Value
Range("C28", ["C32"]).Value = Sheets("Nutri Val").Range("T16").Value
Range("C41", ["C45"]).Value = Sheets("Nutri Val").Range("T16").Value
Range("C54", ["C58"]).Value = Sheets("Nutri Val").Range("T16").Value
Range("C67", ["C71"]).Value = Sheets("Nutri Val").Range("T16").Value
Range("C80", ["C84"]).Value = Sheets("Nutri Val").Range("T16").Value
Range("F13", ["R18"]).Value = Sheets("Nutri Val").Range("T15").Value
Range("F26", ["R31"]).Value = Sheets("Nutri Val").Range("T15").Value
Range("F39", ["R44"]).Value = Sheets("Nutri Val").Range("T15").Value
Range("F52", ["R57"]).Value = Sheets("Nutri Val").Range("T15").Value
Range("F65", ["R70"]).Value = Sheets("Nutri Val").Range("T15").Value
Range("F78", ["R83"]).Value = Sheets("Nutri Val").Range("T15").Value
End Sub
Display More
Thank you for any help you can give.
Tom