Excel VBA

From S23Wiki
Revision as of 17:37, 18 November 2011 by DrOwl (Talk | contribs) (Changed protection level for "Excel VBA" ([edit=sysop] (expires 21:00, 18 December 2011 (UTC)) [move=sysop] (expires 21:00, 18 December 2011 (UTC))))

(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to: navigation, search

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