Sorry my bad english. Yor code works thank you but I need script that delete
other rows but those who have in same time value in A and O.
Regards Kari

"Simon Lloyd" wrote:


Do you want to delete all rows where there is a value in Column A but no
value in column O? if this is the case this will do what you need, of
course you need to change the language!

Sub del_rows()
Dim Rng As Range
Dim cRow
Dim i
Application.ScreenUpdating = False
cRow = Range("A" & Rows.Count).Row
For i = 2 To cRow
If Range("A" & i).Value < "" And Range("O" & i).Value = "" Then
Range("A" & i).EntireRow.Delete
End If
Next i
Application.ScreenUpdating = True
End Sub


--
Simon Lloyd

Regards,
Simon Lloyd
'www.thecodecage.com' (http://www.thecodecage.com)
------------------------------------------------------------------------
Simon Lloyd's Profile: http://www.thecodecage.com/forumz/member.php?userid=1
View this thread: http://www.thecodecage.com/forumz/sh...ad.php?t=30861