If Statement
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!!! |
If Statement
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 |
If Statement
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!!! |
OT
"bodhisatvaofboogie" a Steely Dan fan? |
All times are GMT +1. The time now is 12:52 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com