|
-
May 13th, 2008, 01:21 PM
#1
Thread Starter
Addicted Member
ignore the cell
the below code works only if it is in middle of the cell for example
for i = 1 to 35
if it is 10th cell k value 0 or """" it moveup one cell
but if it is last cell 35th cell k value = 0 it go to end of the file
it is not going to QUIT
if aSheet.Cells(i, "J").value = 0 AND aSheet.Cells(i, "K").value = 0 OR aSheet.Cells(i, "J").value = "" AND aSheet.Cells(i, "K").value = "" THEN
else If aSheet.Cells(i, "D").text <> "" AND aSheet.Cells(i, "E").text <> "" then
aSheet.Rows(i).Delete Shift:=xlUp
Else
QUIT
End if
End if
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|
Reply With Quote