Need to compare values in two colums and delete accordingly
 

In a row, if column A and column C have the same value, I need to
delete that row and then loop through to the end of the spreadsheet.

Can anyone assist?

Thank you

Need to compare values in two colums and delete accordingly
 

lastrow = cells(rows.count,1).end(xlup).row
for i = lastrow to 1 step -1
if cells(i,"A").Value = cells(i,"C").Value then
rows(i).Delete
end if
Next


--
Regards,
Tom Ogilvy


wrote in message
ups.com...
In a row, if column A and column C have the same value, I need to
delete that row and then loop through to the end of the spreadsheet.

Can anyone assist?

Thank you

Need to compare values in two colums and delete accordingly
 

Something like this (untested) should work. Adjust loop limits to suit.

dim i as long
with thisworkbook.sheets("sheetname")
for i = 1000 to 1 step -1

if .cells(i,1).value<"" and .cells(i,1).value = .cells(i,3).value
then
.rows(i).delete
end if

next i
end with


Tim

--
Tim Williams
Palo Alto, CA


wrote in message
ups.com...
In a row, if column A and column C have the same value, I need to
delete that row and then loop through to the end of the spreadsheet.

Can anyone assist?

Thank you