Difference between revisions of "Excel VBA"

From S23Wiki
Jump to: navigation, search
m (Reverted edits by WilberrX09H (talk) to last revision by DrOwl)
Line 1: Line 1:
Some usefull snips of Excel VBA that i use.
+
Some usefull snips of [[Excel]] [[VBA]] that i use.
  
  
Line 6: Line 6:
  
 
this macro will Loop through all work sheets doing X...
 
this macro will Loop through all work sheets doing X...
i found this on [http://safepillstock.com/?a=46688 utteraccess]  [http://safepillstock.com/?a=46688/forums/showflat.php?Cat=&Number=525063&Main=525027 this thread]
+
i found this on [http://www.utteraccess.com utteraccess]  [http://www.utteraccess.com/forums/showflat.php?Cat=&Number=525063&Main=525027 this thread]
  
 
<pre>
 
<pre>
Line 29: Line 29:
  
 
</pre>
 
</pre>
 +
 +
[[Category:Software]]
 +
[[Category:Programming Languages]]
 +
[[Category:Scripts]]

Revision as of 12:59, 18 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