need to copy data

[manish.agrawal446@gmail.com]

Hi,

I have two worsheet

1>First worsheet contains all the dates in 1st row.

Below each row there are few data

2>In second worsheet , I have only two columns

In first row , we have only 2 dates.. one is yesterday's date and the next column is today's date


Now I have to copy all the values which are below today's date to 1st worsheet

Rules to be followed in 1st worsheet

1>In first weeksheet also it will be copied below today's date,

2>All the earlier data should not change


Data in 1st worksheet

7/15/2012 7/16/2012 7/17/2012


0 0

0 0

1 1


data in second sheet

7/16/2012 7/17/2012


0 1

0 2

1 3


I want output as

7/15/2012 7/16/2012 7/17/2012


0 0 1

0 0 2

1 1 3

 

[vijaySharma]

Hello Manish,


I have uploaded the solution here


https://docs.google.com/open?id=0BxRkrdCm95qbaktpbXpHbjhua3c


Try this out and let us know...


~VijaySharma

 

[manish.agrawal446@gmail.com]

hI,

It went into indefinite loop

 

[vijaySharma]

Apologies... fixed now


https://docs.google.com/open?id=0BxRkrdCm95qbY3M4ZmQxV05uVHc


~VijaySharma

 

[Luke M]

I think this will also work.

[pre]

Sub MoveData()
With Worksheets("Sheet2")
.Range("B2", .Range("B65536").End(xlUp)).Copy _
Worksheets("Sheet1").Range("1:1").Find(.Range("B1")).Offset(1, 0)
End With
End Sub

[/pre]