delete and shift certain cells at once

[mecmax]

in a dataset i use a loop to find a cell, and I want to delete and shift up that cell and 12 othter cells adjacent to it. Could I do it at once, or I have to create another loop to delete and shift each of 13 cells?

 

[xlbo]

once you have found the cell, use RESIZE to resize the range and apply the delete/shift to that new range

e.g.

set fCell = Columns("A").find("TextToFind")

if not fCell is nothing then
fCell.resize(1,13).delete shift = whateveryourshiftis
...
...

Rgds, Geoff

We could learn a lot from crayons. Some are sharp, some are pretty and some are dull. Some have weird names and all are different colours but they all live in the same box.

Please read FAQ222-2244 before you ask a question