Selection.Cut Destination:=Columns("B:B")

J

J.W. Aldridge

Selection.Cut Destination:=Columns("B:B")

I recenty got a new pc at work with msoffice 2007.
A macro that i had previously recorded is no longer working.
The error message is as follows: (Followed by the code)

A selections including both inside a table and below it cannot be
copied and inserted into that table. Select cells outside the table
and try inserting the data again.
You have attempted to fill data in a way not supportted by the table.

code:

Sub work_nesi()

Columns("F:K").Select
Range("K1").Activate
Selection.Delete Shift:=xlToLeft
Columns("B:B").Select
Selection.Insert Shift:=xlToRight
Columns("F:F").Select
Selection.Cut Destination:=Columns("B:B")
Columns("F:F").Select
Selection.Delete Shift:=xlToLeft
Range("A1").Select
End Sub
 
G

Gary Keramidas

i only tested in 2010, but try this. no need to select

Sub work_nesi()

Columns("F:K").Delete Shift:=xlToLeft
Columns("B:B").Insert Shift:=xlToRight
Columns("F:F").Cut Destination:=Columns("B:B")
Columns("F:F").Delete Shift:=xlToLeft
Range("A1").Select
End Sub
 
D

Don Guillett

If you desire to move col F to insert in col B, then this should work
Sub MoveColF()
Columns("F").Cut
Columns("B").Insert 'Shift:=xlToRight
End Sub
 
J

J.W. Aldridge

thanx all...

Found that the issue is that msexcel2007 was pasting the data as an
table, and wouldn't allow me to manipulate the columns. So, the
problem was really in the way I copied and pasted the data in the
range on this sheet.

thanx anyway...
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads


Top