değeri 0 olan hücreleri yanındaki hücrlerle birlikte sil

[medfad]

Merhaba
Herkese kolaylıklar dilerim.
C,D ve H,I sutunlarında sıfır değerleri aranacak. eğer hem c hem de d sutunuda karşılıklı olarak 0 varsa (örnek c5=0 ve d5=0) a5, b5, c5, d5 hüreleri silinecek (satırları yukarı sürükle şeklinde) aynı şekilde eğer hem H hem de I sutunuda karşılılı olarak 0 varsa (örnek h8=0 ve ı8=0) f8, g8, h8, ı8 hüreleri silinecek (satırları yukarı sürükle şeklinde). makroyla yapmak mümkün müdür?

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:a9b5ba858b]Sub sil()
For a = [a65536].End(3).Row To 1 Step -1
If Cells(a, "c") = 0 And Cells(a, "d") = 0 Then Range("a" & a & ":d" & a).Delete
If Cells(a, "h") = 0 And Cells(a, "i") = 0 Then Range("f" & a & ":i" & a).Delete
Next
End Sub
[/vb:1:a9b5ba858b]

 

[medfad]

Merhaba
Sn.leventm cevabınız için teşekkür ederim. kod normal çalıştı. ancak sutunlarda 0 değeri olanların dışında bir de boş olanlar var. yani C,D ve H,I sutunlarında boş olan hücreler için silme işlemi yapmasını engelleyebilirmiyiz.

 

[medfad]

özür dileyerek bir de, bu kodun tüm çalışma sayfalarında çalışmasını sağlayabilirmiyiz.