Carpe Diem
12/20/2006 12:38:00 PM
Hi Gary,
It worked justv like I need but I have about 1500 lines with values to
copy how can I do it ?
Thank You for your help.
Ricardo
Gary''s Student escreveu:
> Try:
>
> Sub carpe()
> v = Array(Cells(1, 2).Value, Cells(1, 3).Value, Cells(1, 4).Value, Cells(1,
> 5).Value)
> Range("A1:E1").Clear
> Range("A1:A3").Value = v(3)
> Range("B1").Value = v(0)
> Range("B2").Value = v(1)
> Range("B3").Value = v(2)
> End Sub
>
>
> --
> Gary''s Student
>
>
> "Carpe Diem" wrote:
>
> > Hi all,
> >
> > I have the folowwing data:
> >
> > A1 B1 C1 D1 E1
> > Costs 100 200 125 2002562
> >
> >
> > What I need is to copy the data oto put like this:
> >
> > A1 B1
> > 2002562 100
> > 2002562 200
> > 2002562 125
> >
> > Is there a way to do this using a macro or a function ? I tried to use
> > the transpose faunction but it didn't work
> >
> > Can someone help me ?
> >
> > Thank you
> >
> > Ricardo galveia
> >
> >