Want delete rows if A have value and O not

K

Kari

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
 
S

Simon Lloyd

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

Sub del_rows(
Dim Rng As Rang
Dim cRo
Dim
Application.ScreenUpdating = Fals
cRow = Range("A" & Rows.Count).Ro
For i = 2 To cRo
If Range("A" & i).Value <> "" And Range("O" & i).Value = "" The
Range("A" & i).EntireRow.Delet
End I
Next
Application.ScreenUpdating = Tru
End Su

--
Simon Lloy

Regards,
Simon Lloyd
'www.thecodecage.com' (http://www.thecodecage.com
 
K

Kari

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
 
Top