Shift Content Up..

[Nielinki]

Hi there..
Is there some way in VBA to go through the Range from N16:Q70 and find the blank row, and copy paste the cells underneath it up?
I have tried using the Delete Row to Shift xlUp but it makes such a mess on the sides of this Range where I have buttons and text boxes..

 

[MARK858]

You can do a delete manually or with code without deleting the entire row if you have no other blank cells in the range (as per your image) and the cells are genuinely blank/empty with Specialcells blanks

Range("N16:Q70").SpecialCells(xlCellTypeBlanks).Delete xlUp

 

[Nielinki]

You can do a delete manually or with code without deleting the entire row if you have no other blank cells in the range (as per your image) and the cells are genuinely blank/empty with Specialcells blanks

Range("N16:Q70").SpecialCells(xlCellTypeBlanks).Delete xlUp

Thank you for the answer.. When I use that though it does remove the entire row and makes the spacing between my other shapes wrong..

 

[Joe4]

If you have other ranges with formulas into that range, that will cause problems if you delete the cells those formulas are referencing. You would have to clean up all the other ranges too.
Why do you even have blank spaces in the original range in the first place?
How about just sort your range to get the blank items to the bottom?

 

[Nielinki]

It is a POS.. When I use the Delete code it also removes my -+ Icons on the same line causing other kind of code errors..

 

[Joe4]

Why do you even have blank spaces in the original range in the first place?
How about just sort your range to get the blank items to the bottom?

 

[Nielinki]

If the customer changes their mind about a drink, the delete icon removes it from the bill..

 

[Joe4]

You still have not answered my last question; if that would be a feasible solution.

 

[Nielinki]

After I save the order it adds the DB Rows so now it is adding the Row even for the blanks..
So shifting them to the bottom wouldn't work cause it will still be adding those DB Row numbers to the Ordered Items where the receipt saves..