Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Cell Deleting and Shifting
Dim lastrow As Long, i As Long
Dim cell As Range lastrow = Cells(Rows.Count, "I").End(xlUp).Row For i = lastrow To 1 Step -1 Set cell = Cells(i, "I") If IsNumeric(cell) Then If cell < 7 Then cell.Offset(0, -4).Resize(1, 6).Delete End If End If Next This formula works great, THOUGH I want it to do something a little different. It deletes the appropriate cells, however I want it to shift the information in the cells to the right of the deleted cells over into their place(so shift to left). Right now it deletes everything then shifts it up. So where do I make the change? THANKS!!! |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Deleting Rows and Shifting Up - Repost | Excel Discussion (Misc queries) | |||
Deleting and shifting cells and columns | Excel Worksheet Functions | |||
Deleting cells and shifting "right" | Excel Discussion (Misc queries) | |||
Auto Update upon shifting, inserting or deleting | Excel Worksheet Functions | |||
Deleting blanks and shifting left - cont. | Excel Programming |