Home Menu

Menu


ExcelBanter » Excel Newsgroups » Excel Programming > lenghty code
Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 23
Default 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
Reply With QuoteReply With Quote
  #2   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 5,934
Default lenghty code
Instead of making us try and figure out what your code is doing by reading
it, why don't you make our job easier by telling us what it does?

--
Rick (MVP - Excel)


"Murray" wrote in message
...
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

Reply With QuoteReply With Quote
  #3   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 3,355
Default lenghty code
It would help if you'd provide the worksheet name that you are copying and
pasting from/to.

Barb Reinhardt

"Murray" wrote:

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
Reply With QuoteReply With Quote
  #4   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 23
Default lenghty code
I create reports using crystal and export to excel and up till now it has
been copy and paste values into a formatted spreadsheet. It is time comsuming
as i have about 12 of every month, so ithought write some code and get excel
to do the work every month, it just that it seems quite long to do the task.

Export from crystal
Unmerge the cells
copy and paste special, values a cell at a time

"Rick Rothstein" wrote:

Instead of making us try and figure out what your code is doing by reading
it, why don't you make our job easier by telling us what it does?

--
Rick (MVP - Excel)


"Murray" wrote in message
...
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


Reply With QuoteReply With Quote
  #5   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 23
Default lenghty code
THe worksheets i copy from vary
NSW_This_Month_TOPSalesmen.xls
NSW_YTD_TOPSalesmen.xls
NSW_This_month_TOPProducts.xls
NSW_YTD_TOPProducts

"Barb Reinhardt" wrote:

It would help if you'd provide the worksheet name that you are copying and
pasting from/to.

Barb Reinhardt

"Murray" wrote:

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
Reply With QuoteReply With Quote
Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes
Linear Mode Linear Mode

Posting Rules
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On

Similar Threads
Thread Thread Starter Forum Replies Last Post
split post code (zip code) out of cell that includes full address Concord Excel Discussion (Misc queries) 4 October 15th 09 06:59 PM
Run VBA code only worksheet change, but don't trigger worksheet_change event based on what the code does ker_01 Excel Programming 6 October 3rd 08 09:45 PM
Shorten code to apply to all sheets except a few, instead of individually naming them, and later adding to code. Corey Excel Programming 3 December 11th 06 05:14 AM
Protect Sheet with code, but then code will not Paste error. How do i get around this. Please read for explainations.... Corey Excel Programming 4 November 25th 06 04:57 AM
Range.Value2 is failing for lenghty strings Naresh Mirkhelkar Excel Programming 4 June 9th 06 02:54 PM


All times are GMT +1. The time now is 11:18 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"

 

Contact Us ExcelBanter forum home Privacy Statement