LITTLEBLACKDOG.COM Forum Index LITTLEBLACKDOG.COM

 
LWD LWD   FAQ FAQ   Memberlist Memberlist   Usergroups Usergroups   Active Topics Active Topics   Register Register  
  Profile Profile   Log in to check your private messages Log in to check your private messages   Log in Log in  
  Who is Online Who is Online   Image Gallery Image Gallery   Chat Chat   Search Search  
  LWDGear       LBDGear  

Anyone able to help clean this up?
 View next topic
View previous topic
Post new topic     Reply to topic   LITTLEBLACKDOG.COM Forum Index » Code Warriors
Author Message
Toast
Butt Sniffer
Butt Sniffer


Joined: 13 Jan 2002
Posts: 1168
Location: USA
Post Posted: Sun Feb 23, 2003 11:49 pm   Post subject: Anyone able to help clean this up? Reply with quote Back to top  
This is the macro used in the daily Folded Paper:
Any tips on streamlining, or improving the code would be appreciated:

BTW... This is VBA for Excel 2000 (in case you need to know that)

Sub PrimaryMacro()
'
' Macro2 Macro
' Macro recorded 2/7/2003 by Matt
'
' Keyboard Shortcut: Ctrl+Shift+Q
'
Application.ScreenUpdating = False
Sheets("Main Stats").Select
Range("O1").Select
Selection.Copy
Range("K1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("N3:Q100").Select
Selection.Copy
Range("I3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("I1:L100").Select
Range("L100").Activate
Selection.Copy
Sheets("Main Archive").Select
Range("A1").Select
Selection.EntireColumn.Insert
ActiveSheet.Paste
Sheets("Team Archive").Select
Range("A1").Select
Selection.EntireColumn.Insert
Selection.EntireColumn.Insert
Selection.EntireColumn.Insert
Selection.EntireColumn.Insert
Sheets("Team Stats").Select
Range("A6:D60").Select
Selection.Copy
Sheets("Team Archive").Select
Range("A1").Select
ActiveSheet.Paste

Sheets("Team Stats").Select
Range("E6:H60").Select
Selection.Copy
Range("A6").Select
ActiveSheet.Paste
Range("I6:L60").Select
Selection.Copy
Range("E6").Select
ActiveSheet.Paste
Range("M6:P60").Select
Selection.Copy
Range("I6").Select
ActiveSheet.Paste
Range("Q6:T60").Select
Selection.Copy
Range("M6").Select
ActiveSheet.Paste
Range("V6:Y60").Select
Selection.Copy
Range("Q6").Select
ActiveSheet.Paste
Range("AA6:AD60").Select
Selection.Copy
Range("V6").Select
ActiveSheet.Paste
Range("AF6:AI60").Select
Selection.Copy
Range("AA6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Range("AE68").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Sheets("Main Stats").Select
Range("A2").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Sheets("Output Sheet").Select
Application.ScreenUpdating = True
End Sub

_________________
Toast

Join the Folding@home team!

Each one reach one, until all have heard...
View user's profile Send private message Send e-mail
Display posts from previous:   
Post new topic     Reply to topic   LITTLEBLACKDOG.COM Forum Index » Code Warriors
 
Jump to:  

View next topic
View previous topic
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © 2001, 2002 phpBB Group
phpBB SEO
All times are GMT - 8 Hours

Help us keep advertisements off this site. Donate today!