değeri "0" olan satırların hepsini silsin

[enes2000eren]

slm.arkadaşlar a1:a200 aralığındaki hücrelerde sayılar var.bunlardan bazılarının değeri "0" .(formül sonucu da olabilir)ben bu değeri "0" olan hücrelerin ait olduğu satırın silinmesini istiyorum.yardımlarınız için tşk.

 

[uzmanamele]

merhaba
bu kodları denermisiniz

Sub sıfır_olan_satır_sil()
For i = 200 To 1 Step -1
If Cells(i, 1) <> "" And Cells(i, 1) = 0 Then Rows(i).Delete
Next
MsgBox "&#304;&#351;lem tamamland&#305;.", vbInformation
End Sub

 

[enes2000eren]

&#231;ok t&#351;k.uzmanamele.tam istedi&#287;im gibi.t&#351;k.peki ayn&#305; &#351;ekilde s&#252;tun silmek istesek nas&#305;l yapabiliriz.

 

[abazya]

200 Yazan k&#305;s&#305;m&#305; silip yerine 65536 yaz&#305;p deneyin.

 

[uzmanamele]

merhaba
bu &#351;ekilde deneyiniz

Sub s&#305;f&#305;r_olan_s&#252;tun_sil()
For i = 200 To 1 Step -1
If Cells(1, i) <> "" And Cells(1, i) = 0 Then Columns(i).Delete
Next
MsgBox "&#304;&#351;lem tamamland&#305;.", vbInformation
End Sub