sıfır olanları otomatik temizleme

[incsoft]

temizle butonum var ve bu butona bir kod yazarak a1,a2,a3,b1,b2,b3 yani hücre değeri "0" olanları otomatik olarak temizletmek istiyorum sıfır haricindekilere dokunmasını istemiyorum.Bunu nasıl yapabilirim?

Aşağıdaki gibi denedim olmadı.

==EĞER(C5=0;"";TOPLA.ÇARPIM((DÖVMEKONTROLDATA!$A$1:$A$247=$A5)*(DÖVMEKONTROLDATA!$B$1:$B$247="1")*(DÖVMEKONTROLDATA!$D$1:$D$247))

 

[em.mehmetaliates]

dosya ekler misiniz? Makroda yeni olmama rağmen buna benzer bir kod çalışması yapmıştım. Belki yardımcı olabilirim.

 

[em.mehmetaliates]

Sub sifirtemizle()

For i = 1 To 15
If Cells(i, 1) = 0 Then
Cells(i, 1).Select
Selection.ClearContents
Else
End If
Next


For i = 1 To 15
If Cells(i, 2) = 0 Then
Cells(i, 2).Select
Selection.ClearContents
Else
End If
Next

End Sub


Şu Kodu dener misiniz? amatörce de olsa sorunu çözüyor sanırım

Kırmızı ile yazılan kısımlar kaç satıra uygulayacaksanız ona göre değiştiriniz.

 

[numan şamil]

temizle butonum var ve bu butona bir kod yazarak a1,a2,a3,b1,b2,b3 yani hücre değeri "0" olanları otomatik olarak temizletmek istiyorum sıfır haricindekilere dokunmasını istemiyorum.Bunu nasıl yapabilirim?

Aşağıdaki gibi denedim olmadı.

==EĞER(C5=0;"";TOPLA.ÇARPIM((DÖVMEKONTROLDATA!$A$1:$A$247=$A5)*(DÖVMEKONTROLDATA!$B$1:$B$247="1")*(DÖVMEKONTROLDATA!$D$1:$D$247))

Alternatif olarak

Sub temizle()
For x = 1 To Range("A65536").End(3).Row
If Range("A" & x) = 0 Then Range("A" & x) = ""
If Range("B" & x) = 0 Then Range("B" & x) = ""
If Range("C" & x) = 0 Then Range("C" & x) = ""
If Range("D" & x) = 0 Then Range("D" & x) = ""
Next x
End Sub

 

[tahsinanarat]

Sub sıfırsil()
Application.ScreenUpdating = False
For Each Hücre In ActiveSheet.UsedRange
If Hücre = "0" Then Hücre = Hücre.Clear
Next Hücre
Application.ScreenUpdating = True
End Sub