Moving XL Data over By one Column (*Same Row)
Hello
We have some data currently in Range("D:L") on a spreadsheet We are trying to move the data over by one column to Range("E:N") via macro We have tried everything. XL does delete to the right A B C D E.... 1 x x x x x 'Befor 2 x x x x x 'Afte This should really be simple...but it is just not clicking for us. Please help Sub CutpasteOneRow( For each cell in selectio cell.cut cell. offset (0,1 nex End Su o activesheet.range("D2:D200" if cell.value = "X" the with selectio ..cut destiation:=.offset(0,1 end wit end i Thanks Roz |
Moving XL Data over By one Column (*Same Row)
Columns(4).Insert
-- Vasant "rozb" wrote in message ... Hello, We have some data currently in Range("D:L") on a spreadsheet. We are trying to move the data over by one column to Range("E:N") via macro. We have tried everything. XL does delete to the right. A B C D E..... 1 x x x x x 'Before 2 x x x x x 'After This should really be simple...but it is just not clicking for us. Please help. Sub CutpasteOneRow() For each cell in selection cell.cut cell. offset (0,1) next End Sub or activesheet.range("D2:D200") if cell.value = "X" then with selection .cut destiation:=.offset(0,1) end with end if Thanks, Rozb |
Moving XL Data over By one Column (*Same Row)
The easiest way would be to insert a new column at D
Columns("D:D").Inser -- Message posted from http://www.ExcelForum.com |
Moving XL Data over By one Column (*Same Row)
ub InsertExtraBlankCell(
ActiveSheet.Range("d2:d200").Selec rng = Selection.Rows.Coun ActiveCell.Offset(0, 0).Selec Application.ScreenUpdating = Fals For i = 1 To rn If ActiveCell.Value = "Reg:" The Selection.Insert Shift:=xlToRigh Els ActiveCell.Offset(1, 0).Selec End I Next Application.ScreenUpdating = Tru End Su We were working backwards..so we inserted instead. |
Moving XL Data over By one Column (*Same Row)
Thank you.
|
Moving XL Data over By one Column (*Same Row)
Thank you.
|
All times are GMT +1. The time now is 05:51 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com