Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
More Selecting and Deleting
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 shift:=xlToLeft End If End If Next This formula works great to do the following: If the value in the cell is less than 7 it will select columns 1 - 6 and delete that row selection then shift all cells to the right over left into it's place. I want the "If Cell < 7 Then" to be more like: If the cell value is anything but 1 or 7 then delete the selection. So something like If Cell < 1 And betwee 1 & 7 then delete selection. I'm probably making this way too complicated, and I'm not programming savvy enough to figure out the line of code. THANKS!!! |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
More Selecting and Deleting
How about using some logic
If NOT (cell = 1 OR cell = 7) then ....... "bodhisatvaofboogie" wrote: 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 shift:=xlToLeft End If End If Next This formula works great to do the following: If the value in the cell is less than 7 it will select columns 1 - 6 and delete that row selection then shift all cells to the right over left into it's place. I want the "If Cell < 7 Then" to be more like: If the cell value is anything but 1 or 7 then delete the selection. So something like If Cell < 1 And betwee 1 & 7 then delete selection. I'm probably making this way too complicated, and I'm not programming savvy enough to figure out the line of code. THANKS!!! |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
More Selecting and Deleting
If cell < 1 And cell < 7 Then
HTH Die_Another_Day bodhisatvaofboogie wrote: 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 shift:=xlToLeft End If End If Next This formula works great to do the following: If the value in the cell is less than 7 it will select columns 1 - 6 and delete that row selection then shift all cells to the right over left into it's place. I want the "If Cell < 7 Then" to be more like: If the cell value is anything but 1 or 7 then delete the selection. So something like If Cell < 1 And betwee 1 & 7 then delete selection. I'm probably making this way too complicated, and I'm not programming savvy enough to figure out the line of code. THANKS!!! |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Locating the row that has no values. Selecting that row till the last row after that and deleting it? | Excel Programming | |||
Selecting AND Deleting | Excel Discussion (Misc queries) | |||
Selecting image on worksheet and deleting.. | Excel Programming | |||
selecting and deleting a row based on a cell value | Excel Programming | |||
Selecting Text and deleting Page | Excel Programming |