Delete Certain rows

CPower · Jul 2nd 2004

Hi all,

Im doin a macro, and i need to get code to delete rows in col E that have have certain data i.e a, c, d, h. But i only want these deleted if the rows in col G are blank. Is the some kind of if statement that can be used for this?
Any help on this would be great.

Thanks in advance,
Cathal.

Jong · Jul 2nd 2004

Halp

Here is some code that might help:

Code

Dim RowPtr as Integer
RowPtr = 1


if Worksheets("My Sheet").Range("E" & RowPtr) = MYVALUE then
    if Worksheets("My Sheet").Range("G" & RowPtr) = "" then
         Worksheets("My Sheet").Range(RowPtr & ":" & RowPtr).EntireRow.Delete
    else
        RowPtr = RowPtr + 1
    end if
else
    RowPtr = RowPtr + 1
end if

Display More

Basically,
MySheet would be the sheet name you are running the operations on.
RowPtr is the first row you want to start checking.
MYVALUE would be the value you want to check for. You can check for more by using the OR operator in your IF statement.

RowPtr is only incremented if the row was not deleted. If the row was deleted, it basically goes to the next row on its own.

CPower · Jul 2nd 2004

cheers for this has helped me alot

Delete Certain rows

Participate now!

Share