Thread: I require some help with a section of the following code.
View Single Post
  #5   Report Post  
Posted to microsoft.public.excel.programming
tracks via OfficeKB.com tracks via OfficeKB.com is offline
external usenet poster
  
Posts: 23
Default I require some help with a section of the following code.
wrote:
Hi Rick,

First, paste the private sub copyToSummary() into the same module as
your existing Sub CO() (before or after doesn't matter). Then replace
the following lines of code in CO():

Worksheets("CRANE WT SUMMARY").Range("A3:G39").Select
Selection.Copy _
Worksheets("CALENDER SUMMARY").Range("B3:H39").Offset(0, 0)

with

copyToSummary Worksheets("CRANE WT SUMMARY").Range("A3:G39"),
Worksheets("CALENDER SUMMARY").Range("B3"), 3, Month(rng1)

This should make it work.

Regards,
Steve
Hi Steve i will try that and let you know how it work.

Thanks again
Rick
tracks via OfficeKB.com schrieb:

Hi Rick,

[quoted text clipped - 52 lines]
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200611/1

--
Message posted via http://www.officekb.com

Reply With QuoteReply With Quote