Posts by Tommy Tunes

Tommy Tunes · May 3rd 2016

Re: VBA Code for selecting multiple sheets

I have attached my file. The left-most tabs Su through Sa are the ones of concern. I tried your code and in a module leaving mine on the sheets and I had no success. I believe I tried removing the sheet code form Su tab 1 time with no success. I have a lot to learn. Thank you for any help possible. Tom

Tommy Tunes · Apr 25th 2016

Re: VBA Code for selecting multiple sheets

[FONT="Verdana"]Thank you bothvery much. I am learning as you try to help me. I have abook I am trying to learn from, but it is difficult trying to jump in themiddle of the book (VBA and Macros: Microsoft ® Excel ® 2010 Bill Jelen TracySyrstad) to find how to get something done.

The code did not work for me, however I might not have applied itcorrectly. The code ran as before I added your new portion: Eachsheet only, cleared as I selected each Macro button I had placed on eachsheet, instead of each Macro button on each sheet clearing all sheets. Atfirst I put the code on only one sheet and as I stated only that sheetreset. Then I place the code on all sheets and only each sheet would clearas I pressed the macro button on that sheet. The task completed messageshowed up on each page (nice) as I selected each sheet macro separately. I did notice that after I entered this message code, when I selected the Macrobutton for each sheet I could not select another sheet until Iresponded to the message "Task Completed." (I ran the codewithout the message at first.)
...
I stepped into the code and it continued, repeating each trip through the codeas I continued for 10 loops, so at least I know it wasn't seeing Su through Sa,or stopping after 1 trip through the code. Anything else I might trying... and thank you again.[/FONT]

Tommy Tunes · Apr 17th 2016

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

Code

.
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