OR'u nasıl kullanmam lazım

[Erdem Akdemir]

Sub Makro2()
Dim i As Double
For i = 1 To [a65536].End(3).Row
If Range("i" & i) = "V01" Or "V02" Then
Range("i" & i).EntireRow.Select
Selection.Delete Shift:=xlUp
End If
Next i
End Sub

v01 ve v02 yazanları satır halinde silmek istiyorum ama biryerde yanlış yapıyorum

yardımlarınız için, şimdiden teşekkürler

 

[Orion1]

And seperatörünü deneyiniz.

 

[Necdet]

Merhaba,
Aşağıdaki kodları bir modüle kopyalayınız.

Sub SatırSil()
Dim i As Long
Application.ScreenUpdating = False
Sheets("Sayfa1").Select
For i = [A65536].End(3).Row To 2 Step -1
    If Cells(i, "I") = "V01" Or Cells(i, "I") = "V02" Then Rows(i).Delete
Next i
Application.ScreenUpdating = True
End Sub

 

[Erdem Akdemir]

Merhaba,
Aşağıdaki kodları bir modüle kopyalayınız.

Sub SatırSil()
Dim i As Long
Application.ScreenUpdating = False
Sheets("Sayfa1").Select
For i = [A65536].End(3).Row To 2 Step -1
    If Cells(i, "I") = "V01" Or Cells(i, "I") = "V02" Then Rows(i).Delete
Next i
Application.ScreenUpdating = True
End Sub

sağolun necdet bey ,elinize sağlık