I want to create a code to put into a macro that does this:

IF the value in column I is less than 7 Then Delete the cells within that
row from Column E to Column J and shift the rows to the right over into their
place.

Kinda wierd, I know. Don't ask :) Am I way off to try an If statement,
or should I go a different route? THANKS!!!

Try this:


If Selection.Value < 7 Then
Range("E" & Selection.Row & ":" & "J" & Selection.Row).Select
Selection.Delete Shift:=xlToLeft
End If


--
Bearacade


------------------------------------------------------------------------
Bearacade's Profile: http://www.excelforum.com/member.php...o&userid=35016
View this thread: http://www.excelforum.com/showthread...hreadid=552003

sub DeleteStuff()

Dim lastrow as Long, i as Long
Dim cell as Range

lastrow = cells(rows.count,"I").end(xlup).row
fori = 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:=xlShiftLeft
end if
end if
Next
end sub

--
Regards,
Tom Ogilvy

"bodhisatvaofboogie" wrote:

I want to create a code to put into a macro that does this:

IF the value in column I is less than 7 Then Delete the cells within that
row from Column E to Column J and shift the rows to the right over into their
place.

Kinda wierd, I know. Don't ask :) Am I way off to try an If statement,
or should I go a different route? THANKS!!!

"bodhisatvaofboogie"

a Steely Dan fan?