Hello!
Can somebody help me with this. Here is how much I have done.
t. Kari

Sub deleteemptyrows()
Do
Set tamarivi = Rows("2:2")
Set solu1 = Range("A2")
Set solu2 = Range("O2")
Rows("2:2").Select
If Not solu1 = Empty And solu2 = Empty Then
MsgBox "A2 sisältää arvon ja O2 ei", vbOKOnly, "Poista rivi"
tamarivi.EntireRow.Delete
Set tamarivi = Rows("2:2")
Set solu1 = Range("A2")
Set solu2 = Range("O2")
Else
If IsEmpty(solu1) And IsEmpty(solu2) Then
MsgBox "A2 ja O2 on tyhjiä", vbOKOnly, "Lopeta ohjelma"
Exit Sub
Else
If Not solu1 = Empty Or solu2 = Empty Then
MsgBox "A2 ja O2 sisältää kumpikin arvon", vbOKOnly, "Jatka ohjelmaa"
Set seurrivi = tamarivi.Offset(1, 0)
End If
End If
End If
Loop Until solu1 = Empty
End Sub

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

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