| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
lenghty code
HI i have some code that seems very long to preform a simple task, is thera
way to get the same result with a shorter code Workbooks.Open ("C:\MIS Reports output - crystal\Xcel export\NSW_This_Month_TOPSalesmen.xls") Windows("NSW_This_Month_TOPSalesmen.xls").Activate Range("F7").Select Selection.Copy Windows("0810 NSW Store Reports.xls").Activate Range("B6").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("C6").Select Windows("NSW_This_Month_TOPSalesmen.xls").Activate Range("K7").Select Application.CutCopyMode = False Selection.Copy Windows("0810 NSW Store Reports.xls").Activate Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Windows("NSW_This_Month_TOPSalesmen.xls").Activate Range("F8").Select Application.CutCopyMode = False Selection.Copy Windows("0810 NSW Store Reports.xls").Activate Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Windows("NSW_This_Month_TOPSalesmen.xls").Activate Range("K8").Select Application.CutCopyMode = False Selection.Copy Windows("0810 NSW Store Reports.xls").Activate Range("C7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Windows("NSW_This_Month_TOPSalesmen.xls").Activate Range("F9").Select Application.CutCopyMode = False Selection.Copy Windows("0810 NSW Store Reports.xls").Activate Range("B8").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Windows("NSW_This_Month_TOPSalesmen.xls").Activate Range("K9").Select Application.CutCopyMode = False Selection.Copy Windows("0810 NSW Store Reports.xls").Activate Range("C8").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Windows("NSW_This_Month_TOPSalesmen.xls").Activate Range("F10").Select Application.CutCopyMode = False Selection.Copy Windows("0810 NSW Store Reports.xls").Activate Range("B9").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Windows("NSW_This_Month_TOPSalesmen.xls").Activate Range("K10").Select Application.CutCopyMode = False Selection.Copy Windows("0810 NSW Store Reports.xls").Activate Range("C9").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Windows("NSW_This_Month_TOPSalesmen.xls").Activate Range("F11").Select Application.CutCopyMode = False Selection.Copy Windows("0810 NSW Store Reports.xls").Activate Range("B10").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Windows("NSW_This_Month_TOPSalesmen.xls").Activate Range("K11").Select Application.CutCopyMode = False Selection.Copy Windows("0810 NSW Store Reports.xls").Activate Range("C10").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Help is appreicated |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| split post code (zip code) out of cell that includes full address | Excel Discussion (Misc queries) | |||
| Run VBA code only worksheet change, but don't trigger worksheet_change event based on what the code does | Excel Programming | |||
| Shorten code to apply to all sheets except a few, instead of individually naming them, and later adding to code. | Excel Programming | |||
| Protect Sheet with code, but then code will not Paste error. How do i get around this. Please read for explainations.... | Excel Programming | |||
| Range.Value2 is failing for lenghty strings | Excel Programming | |||
Threaded Mode
