Content added Content deleted
imported>DrOwl |
imported>EfrenQWp1 No edit summary |
||
Line 1:
Some usefull snips of
Line 6:
this macro will Loop through all work sheets doing X...
i found this on [http://
<pre>
Line 29:
</pre>
|
Revision as of 15:42, 15 November 2011
Some usefull snips of Excel VBA that i use.
work with multiple Worksheets
this macro will Loop through all work sheets doing X... i found this on utteraccess this thread
Public Sub UpdatetoNextWeek() Dim w As Excel.Worksheet If MsgBox("Update the week and period details?", vbYesNo + vbQuestion, "Confirm update") = vbYes Then For Each w In ActiveWorkbook.Worksheets w.Range("H9") = w.Range("H9") + 1 w.Range("F9") = w.Range("F9") + 7 Next w MsgBox "Done", vbOKOnly End If End Sub