Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
copy cells down
how can i create a loop macro that look for a data in a specific column, lets
say column B, select that cell, select 3 cells to the right, cut these selection and move one row down. Continue the same procedure until there is no more cells containing the data. Thanks for your help |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
copy cells down
Hi
This will search from bottom to top to any cell containg "ABC" Sub test Dim x As Integer For x = Range("B2", Range("B2").End(xlDown)).Rows.Count - 1 To 1 Step -1 If Range("B2").Offset(x, 0) = "ABC" Then Range("B2").Offset(x, 0).Resize(1, 4).Cut Range("B2").Offset(x + 1, 0) End If Next x End sub Regards Jean-Yves "andresg1975" wrote in message ... how can i create a loop macro that look for a data in a specific column, lets say column B, select that cell, select 3 cells to the right, cut these selection and move one row down. Continue the same procedure until there is no more cells containing the data. Thanks for your help |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
copy cells down
"Jean-Yves" wrote: Hi This will search from bottom to top to any cell containg "ABC" Sub test Dim x As Integer For x = Range("B2", Range("B2").End(xlDown)).Rows.Count - 1 To 1 Step -1 If Range("B2").Offset(x, 0) = "ABC" Then Range("B2").Offset(x, 0).Resize(1, 4).Cut Range("B2").Offset(x + 1, 0) End If Next x End sub Regards Jean-Yves "andresg1975" wrote in message ... how can i create a loop macro that look for a data in a specific column, lets say column B, select that cell, select 3 cells to the right, cut these selection and move one row down. Continue the same procedure until there is no more cells containing the data. Thanks for your help i change ABC to 3020 and does not work, am i doing something wrong |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
copy cells down
let's say i have rows like these:
B C D E 3020 0 28TH 28TH ST. MARKETPLACE 3020 0 ACME ACME AWNING The macro should find 3020, take cells in colums B C D E and bring them one row down "Jean-Yves" wrote: Hi This will search from bottom to top to any cell containg "ABC" Sub test Dim x As Integer For x = Range("B2", Range("B2").End(xlDown)).Rows.Count - 1 To 1 Step -1 If Range("B2").Offset(x, 0) = "ABC" Then Range("B2").Offset(x, 0).Resize(1, 4).Cut Range("B2").Offset(x + 1, 0) End If Next x End sub Regards Jean-Yves "andresg1975" wrote in message ... how can i create a loop macro that look for a data in a specific column, lets say column B, select that cell, select 3 cells to the right, cut these selection and move one row down. Continue the same procedure until there is no more cells containing the data. Thanks for your help |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
copy cells down
Sub test
Dim x As Integer For x = Range("B2", Range("B2").End(xlDown)).Rows.Count - 1 To 1 Step -1 If Range("B2").Offset(x, 0).value = "3020" Then Range("B2").Offset(x, 0).Resize(1, 4).Cut Range("B2").Offset(x + 1, 0) End If Next x End sub Regards Jean-Yves "andresg1975" wrote in message ... let's say i have rows like these: B C D E 3020 0 28TH 28TH ST. MARKETPLACE 3020 0 ACME ACME AWNING The macro should find 3020, take cells in colums B C D E and bring them one row down "Jean-Yves" wrote: Hi This will search from bottom to top to any cell containg "ABC" Sub test Dim x As Integer For x = Range("B2", Range("B2").End(xlDown)).Rows.Count - 1 To 1 Step -1 If Range("B2").Offset(x, 0) = "ABC" Then Range("B2").Offset(x, 0).Resize(1, 4).Cut Range("B2").Offset(x + 1, 0) End If Next x End sub Regards Jean-Yves "andresg1975" wrote in message ... how can i create a loop macro that look for a data in a specific column, lets say column B, select that cell, select 3 cells to the right, cut these selection and move one row down. Continue the same procedure until there is no more cells containing the data. Thanks for your help |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How can I copy big ranges of cells without drag or copy/paste? | Excel Discussion (Misc queries) | |||
Copy Source Cells to Destination Cells Only when a Change Occurs | Excel Discussion (Misc queries) | |||
Copy and paste versus copy and insert copied cells | New Users to Excel | |||
Copy/Paste how to avoid the copy of formula cells w/o calc values | Excel Discussion (Misc queries) | |||
Copy data into cells until changes trigger new copy | Excel Programming |