Koşullu satır silme

[clockwork]

Selam,

Koşullu satır silme de hep boş satır silme ile ilgili makro buldum.

Benim istediğim Range("a15:a150") içindeki 0 değerli satırlar silinsin.

Şimdiden teşekkürler

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub SIFIR_OLANLARI_SİL()
    For X = 150 To 15 Step -1
    If Cells(X, 1) <> "" And Cells(X, 1) = 0 Then Rows(X).Delete
    Next
    MsgBox "&#304;&#351;leminiz tamamlanm&#305;&#351;t&#305;r.", vbInformation
End Sub

 

[clockwork]

Çok teşekkür ederim.....

 

[nkumas]

p sutununda sil yazan satırları silmek icin;

For I = 1 To 1250
If Sheets("Analiz").Range("p" & I).Value = "sil" Then
Sheets("Analiz").Rows(I).Select
Selection.Delete
End If
Next

kodunu deniyorum ama satırlar silinerek gittigi ve satır sırası degistigi icin i degeri asıl satır yerine baska satırları siliyor

yardımcı olabilir misiniz?

 

[Orion1]

For I = 1250 to 1 step -1