Hi,

By mistake i posted this in the excel worksheet functions post first, please
ignore that. This is the better place to post my problem..

I have the following sample code, this bit of my code creates error. I would
like to copy across the columns in that order please. what is making it go
wrong?

With oldbk.Sheets(2)

..Columns("H:H,T:T,AK:AK,G:G,AJ:AJ,D,AM:AM,AP:AP,AS:AS,AU:AU,AQ:AQ").Copy
Destination:= _
NewbkS2.Range("A1")
End With

thanks.

Try this.....

With oldbk.Sheets(2)
.Columns("H:H,T:T,AK:AK,G:G,AJ:AJ,D,AM:AM,AP:AP,AS:AS,AU:AU,AQ:AQ").Copy
.Paste Destination:= NewbkS2.Range("A1")
End With

--

Regards,
Nigel
(E-Mail Removed)



"Gemz" <(E-Mail Removed)> wrote in message
news:1A21844D-16A5-4058-94B2-(E-Mail Removed)...
> Hi,
>
> By mistake i posted this in the excel worksheet functions post first,
> please
> ignore that. This is the better place to post my problem..
>
> I have the following sample code, this bit of my code creates error. I
> would
> like to copy across the columns in that order please. what is making it go
> wrong?
>
> With oldbk.Sheets(2)
>
> .Columns("H:H,T:T,AK:AK,G:G,AJ:AJ,D,AM:AM,AP:AP,AS:AS,AU:AU,AQ:AQ").Copy
> Destination:= _
> NewbkS2.Range("A1")
> End With
>
> thanks.

Hi,

It just highlights this line and reports error:

.Columns("H:H,T:T,AK:AK,G:G,AJ:AJ,D,AM:AM,AP:AP,AS:AS,AU:AU,AQ:AQ").Copy


thanks.

"Nigel" wrote:

> Try this.....
>
> With oldbk.Sheets(2)
> .Columns("H:H,T:T,AK:AK,G:G,AJ:AJ,D,AM:AM,AP:AP,AS:AS,AU:AU,AQ:AQ").Copy
> .Paste Destination:= NewbkS2.Range("A1")
> End With
>
> --
>
> Regards,
> Nigel
> (E-Mail Removed)
>
>
>
> "Gemz" <(E-Mail Removed)> wrote in message
> news:1A21844D-16A5-4058-94B2-(E-Mail Removed)...
> > Hi,
> >
> > By mistake i posted this in the excel worksheet functions post first,
> > please
> > ignore that. This is the better place to post my problem..
> >
> > I have the following sample code, this bit of my code creates error. I
> > would
> > like to copy across the columns in that order please. what is making it go
> > wrong?
> >
> > With oldbk.Sheets(2)
> >
> > .Columns("H:H,T:T,AK:AK,G:G,AJ:AJ,D,AM:AM,AP:AP,AS:AS,AU:AU,AQ:AQ").Copy
> > Destination:= _
> > NewbkS2.Range("A1")
> > End With
> >
> > thanks.
>

Use this to copy the non-contiguous ranges

.Range("H:H,T:T,AK:AK,G:G,AJ:AJ,D,AM:AM,AP:AP,AS:AS,AU:AU,AQ:AQ").Copy



--

Regards,
Nigel
(E-Mail Removed)



"Gemz" <(E-Mail Removed)> wrote in message
news:C86F2C28-B36A-4085-B8C0-(E-Mail Removed)...
> Hi,
>
> It just highlights this line and reports error:
>
>
> .Columns("H:H,T:T,AK:AK,G:G,AJ:AJ,D,AM:AM,AP:AP,AS:AS,AU:AU,AQ:AQ").Copy
>
>
> thanks.
>
> "Nigel" wrote:
>
>> Try this.....
>>
>> With oldbk.Sheets(2)
>>
>> .Columns("H:H,T:T,AK:AK,G:G,AJ:AJ,D,AM:AM,AP:AP,AS:AS,AU:AU,AQ:AQ").Copy
>> .Paste Destination:= NewbkS2.Range("A1")
>> End With
>>
>> --
>>
>> Regards,
>> Nigel
>> (E-Mail Removed)
>>
>>
>>
>> "Gemz" <(E-Mail Removed)> wrote in message
>> news:1A21844D-16A5-4058-94B2-(E-Mail Removed)...
>> > Hi,
>> >
>> > By mistake i posted this in the excel worksheet functions post first,
>> > please
>> > ignore that. This is the better place to post my problem..
>> >
>> > I have the following sample code, this bit of my code creates error. I
>> > would
>> > like to copy across the columns in that order please. what is making it
>> > go
>> > wrong?
>> >
>> > With oldbk.Sheets(2)
>> >
>> > .Columns("H:H,T:T,AK:AK,G:G,AJ:AJ,D,AM:AM,AP:AP,AS:AS,AU:AU,AQ:AQ").Copy
>> > Destination:= _
>> > NewbkS2.Range("A1")
>> > End With
>> >
>> > thanks.
>>

Use

..Range not .Columns

--

Regards,
Nigel
(E-Mail Removed)



"Gemz" <(E-Mail Removed)> wrote in message
news:C86F2C28-B36A-4085-B8C0-(E-Mail Removed)...
> Hi,
>
> It just highlights this line and reports error:
>
>
> .Columns("H:H,T:T,AK:AK,G:G,AJ:AJ,D,AM:AM,AP:AP,AS:AS,AU:AU,AQ:AQ").Copy
>
>
> thanks.
>
> "Nigel" wrote:
>
>> Try this.....
>>
>> With oldbk.Sheets(2)
>>
>> .Columns("H:H,T:T,AK:AK,G:G,AJ:AJ,D,AM:AM,AP:AP,AS:AS,AU:AU,AQ:AQ").Copy
>> .Paste Destination:= NewbkS2.Range("A1")
>> End With
>>
>> --
>>
>> Regards,
>> Nigel
>> (E-Mail Removed)
>>
>>
>>
>> "Gemz" <(E-Mail Removed)> wrote in message
>> news:1A21844D-16A5-4058-94B2-(E-Mail Removed)...
>> > Hi,
>> >
>> > By mistake i posted this in the excel worksheet functions post first,
>> > please
>> > ignore that. This is the better place to post my problem..
>> >
>> > I have the following sample code, this bit of my code creates error. I
>> > would
>> > like to copy across the columns in that order please. what is making it
>> > go
>> > wrong?
>> >
>> > With oldbk.Sheets(2)
>> >
>> > .Columns("H:H,T:T,AK:AK,G:G,AJ:AJ,D,AM:AM,AP:AP,AS:AS,AU:AU,AQ:AQ").Copy
>> > Destination:= _
>> > NewbkS2.Range("A1")
>> > End With
>> >
>> > thanks.
>>

Hi,

It copies the range now but the problem is that it copies the stuff and then
puts it in order! i.e. puts the columns in sequential order but i want them
in the order i have put them in the code (no sequential order because thats
how i want to see the info.)

Is there a way around this? or do the columns have to be in order?

thanks.

"Nigel" wrote:

> Use this to copy the non-contiguous ranges
>
> .Range("H:H,T:T,AK:AK,G:G,AJ:AJ,D,AM:AM,AP:AP,AS:AS,AU:AU,AQ:AQ").Copy
>
>
>
> --
>
> Regards,
> Nigel
> (E-Mail Removed)
>
>
>
> "Gemz" <(E-Mail Removed)> wrote in message
> news:C86F2C28-B36A-4085-B8C0-(E-Mail Removed)...
> > Hi,
> >
> > It just highlights this line and reports error:
> >
> >
> > .Columns("H:H,T:T,AK:AK,G:G,AJ:AJ,D,AM:AM,AP:AP,AS:AS,AU:AU,AQ:AQ").Copy
> >
> >
> > thanks.
> >
> > "Nigel" wrote:
> >
> >> Try this.....
> >>
> >> With oldbk.Sheets(2)
> >>
> >> .Columns("H:H,T:T,AK:AK,G:G,AJ:AJ,D,AM:AM,AP:AP,AS:AS,AU:AU,AQ:AQ").Copy
> >> .Paste Destination:= NewbkS2.Range("A1")
> >> End With
> >>
> >> --
> >>
> >> Regards,
> >> Nigel
> >> (E-Mail Removed)
> >>
> >>
> >>
> >> "Gemz" <(E-Mail Removed)> wrote in message
> >> news:1A21844D-16A5-4058-94B2-(E-Mail Removed)...
> >> > Hi,
> >> >
> >> > By mistake i posted this in the excel worksheet functions post first,
> >> > please
> >> > ignore that. This is the better place to post my problem..
> >> >
> >> > I have the following sample code, this bit of my code creates error. I
> >> > would
> >> > like to copy across the columns in that order please. what is making it
> >> > go
> >> > wrong?
> >> >
> >> > With oldbk.Sheets(2)
> >> >
> >> > .Columns("H:H,T:T,AK:AK,G:G,AJ:AJ,D,AM:AM,AP:AP,AS:AS,AU:AU,AQ:AQ").Copy
> >> > Destination:= _
> >> > NewbkS2.Range("A1")
> >> > End With
> >> >
> >> > thanks.
> >>
>
>