şartlı satır silme

[Barons]

merhaba

bir satırda 2 değer kontrol edilecek ve eğer bu değerlerin formul değerleri sıfır ise o satırı makrolardan yararlanarak kendiliğinden otomatik yada düğme vasıtası ile silmek mümkünmüdür.
silinme şartı her iki kolondadki değerinde sıfır olması ,bir tanesinde değer varsa silinmeyecek.

Açıklamalar dosyadadır.
Yardımcı olacak arkadaşlara çok teşekkürler,

 

[leumruk]

Merhaba,

Sub Sil()
For x = [r65536].End(3).Row To 2 Step -1
If Cells(x, "r") = 0 And Cells(x, "ae") = 0 Or Cells(x, "r") = 0 And Cells(x, "ae") = "" Then Rows(x).Delete
Next
End Sub

Kodları butona bağlayın.

 

[Barons]

Sn.Leumruk
çok teşekkürler ancak 2 seçeneğin ikiside sıfırsa silecek oysa sizin kodda bir tanesi sıfırsa o satırı tamamen siliyor.Benim istediğim gerek şart: her ikisininde sıfır olması.birinde değer varsa silmesin.
silinme şartı her iki kolondaki değerinde sıfır olması ,bir tanesinde değer varsa silinmeyecek.

teşekkürler

 

[leumruk]

Haklısınız, şartın birini eklememişim. Kodu güncelledim, yeniden deneyebilirsiniz.

 

[Barons]

Çok teşekkürler...sorun çözülmüştür.


elinize sağlık

 

[leumruk]

Çok teşekkürler...sorun çözülmüştür.


elinize sağlık

Rica ederim.