More Selecting and Deleting

[bodhisatvaofboogie]

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!!!

[Blue Aardvark]

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!!!

[Die_Another_Day]

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!!!