Counting entries and copying

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

pcor - 19 Mar 2007 15:30 GMT

I have a number of entries in Col A & B
The number varies, could be 100 and it could increase
I would like to have a macro that would copy these entries as follows:
Lets assume that I have 100 entries in A & B-Starting at A1 & B1
I want to leave the first 25 where they are
Then take entries 25 to 50 and COPY them to col d & E(starting at D1 & E1)
Then take the next quarter (51 to 75) and COPY them to col G & H
Then copy the last quarter to Col J & K
Thanks for the help

Reply to this Message

Gary''s Student - 19 Mar 2007 16:02 GMT

Sub pcor()
Set r1 = Range("A25:B50")
Set r2 = Range("A51:B75")
Set r3 = Range("A76:B100")
Set r1d = Range("D1")
Set r2d = Range("G1")
Set r3d = Range("J1")
r1.Copy r1d
r2.Copy r2d
r3.Copy r3d
End Sub

Signature

Gary''s Student
gsnu200711

> I have a number of entries in Col A & B
> The number varies, could be 100 and it could increase
[quoted text clipped - 5 lines]
> Then copy the last quarter to Col J & K
> Thanks for the help

Reply to this Message

pcor - 19 Mar 2007 16:33 GMT

That would only work if col a & B contained exactly 100 entries. As I said
before the number of entries in Col A & A will vary from 80 to 200 on a
regular basis
But thanks for the help. much appreciated

> Sub pcor()
> Set r1 = Range("A25:B50")
[quoted text clipped - 17 lines]
> > Then copy the last quarter to Col J & K
> > Thanks for the help

Reply to this Message