Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
macro beginner
Hi Erica
You need to give us some more details. Which column is your data in? Does it start in row 1 or do you have headings? Are you sure you want to move the 3rd row up one or do you want to move it up 2 rows to be in the same row as the other data? Assuming your data is in column A starting in row 1 and you want your results on one line then this should work. Sub Move() Dim lRow As Long Dim myCol As Range Dim Cell As Range lRow = Cells(Rows.Count, 1).End(xlUp).Row Set myCol = Range(Cells(1, 1), Cells(lRow, 1)) For Each Cell In myCol Select Case Cell.Row Mod 3 Case 2 Cell.Offset(-1, 1).Value = Cell.Value Cell.Value = "" Case 0 Cell.Offset(-2, 2).Value = Cell.Value Cell.Value = "" End Select Next Cell End Sub Regards Rowan "Erica" wrote: Hi, I would like a macro that from one column cuts and pasts from every 2nd row into the next (2nd) column (one row up) and that for every 3rd row cuts and past that value into the 3rd column (also one row up). I have recorded the macro but the cell values are fixed. Thanks! Erica |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Macro for a beginner | Excel Discussion (Misc queries) | |||
macro help for a beginner | Excel Programming | |||
macro help for a beginner | Excel Programming | |||
macro help for a beginner | Excel Programming | |||
macro help for a beginner | Excel Programming |