PDA

View Full Version : Solved: Insert Deleted Cell At Bottom Of Range



Wolfgang
06-06-2006, 09:20 AM
Good evening all...

I have a range in column D which starts at D4 and ends at D100.

Data will be added in the course of time without any empty cells between.

Now, I like to be able to select some of them clear their contents and do a delete with ".Delete Shift:=xlUp" which works fine.

BUT - I need to keep that range intact, meaning the amount of cells that I delete and move up, need to be inserted below so that my range remains the same.

Does that make any sense?!

Thank you and have a nice day/evening...

Best,
Wolfgang

Jacob Hilderbrand
06-06-2006, 09:30 AM
You may want to just clear the cells, the sort the range. Is that an option?

Wolfgang
06-06-2006, 10:11 AM
Hi Jake...

Thank you very much for your reply...

I can't sort that range because the entries have to be in a certain order as they are entered...

These are financial values and may need to be deleted from time to time...

Best,
Wolfgang

mdmackillop
06-06-2006, 01:06 PM
Hi Wolfgang,
This is simpler if the last cell is always clear. Is that the case or could another cell be added for this purpose.
Regards
MD


Selection.ClearContents
Selection.Cut
Range("D100").Select
Selection.Insert Shift:=xlDown

Wolfgang
06-06-2006, 11:09 PM
Good morning MD...

that's the case and it works just fine...

Thank you very much and have a nice day...

Best,
Wolfgang

mdmackillop
06-06-2006, 11:47 PM
Hi Wolfgang,
HTH. With a little retrospective tidying this is better.

Selection.ClearContents
Selection.Cut
Range("D100").Insert Shift:=xlDown