-
May 2nd, 2005, 04:41 PM
#1
Excel Macro's
I was hoping i could get a hand in cleaning this up a little.. It works but its sloppy.. i would like to have them all combined into one macro but dont know how to determine which portion of the code is what.. calling other macros worked for me as im a macro noob..
Code:
Sub New_Week()
Call Warning
End Sub
Sub Warning()
'
' This is the Warning box
'
YesNo = MsgBox("This will clear the spread sheet do you wish to continue??", vbYesNo + vbCritical, "Caution")
Select Case YesNo
Case vbYes
Call Date_entry
Call Clear_All
Case vbNo
End Select
End Sub
Sub Date_entry()
' Enter Date
' This enters The date in Daily Totals and Draws Sheets
'
returnvalue = InputBox("Insert the Start Date for this spreadsheet", "New Week")
Sheets("Daily Totals").Range("H1") = returnvalue
Sheets("Draws").Range("B1") = returnvalue
End Sub
Sub Clear_All()
'
' Clear All Macro
' This Macro will CLEAR all sheets and Ask for new date!!
'
'
' Daily Totals
Sheets("Daily Totals").Select
Range("F5:U40").Select
Selection.ClearContents
Range("F44:U78").Select
Selection.ClearContents
Range("F82:U119").Select
Selection.ClearContents
Range("X5:AM40").Select
Selection.ClearContents
Range("X44:AM78").Select
Selection.ClearContents
Range("X82:AM119").Select
Selection.ClearContents
Range("AP5:BE40").Select
Selection.ClearContents
Range("AP44:BE78").Select
Selection.ClearContents
Range("AP82:BE119").Select
Selection.ClearContents
Range("BH5:BW40").Select
Selection.ClearContents
Range("BH44:BW78").Select
Selection.ClearContents
Range("BH82:BW119").Select
Selection.ClearContents
Range("BZ5:CO40").Select
Selection.ClearContents
Range("BZ44:CO78").Select
Selection.ClearContents
Range("BZ82:CO119").Select
Selection.ClearContents
Range("CR5:DG40").Select
Selection.ClearContents
Range("CR44:DG78").Select
Selection.ClearContents
Range("CR82:DG119").Select
Selection.ClearContents
Range("DJ5:DY40").Select
Selection.ClearContents
Range("DJ44:DY78").Select
Selection.ClearContents
Range("DJ82:DY119").Select
Selection.ClearContents
Range("F5").Select
'
' Project Collections
Sheets("Project Collections").Select
Range("E5:AJ40").Select
Selection.ClearContents
Range("E46:AJ79").Select
Selection.ClearContents
Range("E85:AJ120").Select
Selection.ClearContents
Range("E5").Select
'
' Draws Delete
Sheets("Draws").Select
Range("B3:B110").Select
Selection.ClearContents
Range("D3:D110").Select
Selection.ClearContents
Range("F3:F110").Select
Selection.ClearContents
Range("H3:H110").Select
Selection.ClearContents
Range("J3:J110").Select
Selection.ClearContents
Range("L3:L110").Select
Selection.ClearContents
Range("N3:N110").Select
Selection.ClearContents
Range("Q3:Q110").Select
Selection.ClearContents
Range("S3:S110").Select
Selection.ClearContents
Range("A3").Select
'
' Return
Sheets("Daily Totals").Select
Range("F5").Select
End Sub
Similar Threads
-
By TechZ in forum Microsoft Office
Replies: 0
Last Post: December 12th, 2004, 04:55 AM
-
By billgman in forum Microsoft Office
Replies: 5
Last Post: November 19th, 2004, 11:37 AM
-
By flashy99uk in forum Microsoft Office
Replies: 0
Last Post: March 20th, 2002, 06:46 PM
-
By joelen in forum Tech-To-Tech
Replies: 4
Last Post: November 14th, 2001, 12:43 PM
-
By rscos in forum Tech-To-Tech
Replies: 6
Last Post: June 2nd, 2001, 05:52 AM
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
|
Bookmarks