0 OLAN HÜCRELER GÖZÜKMESİN

[PEPE]

EXCELDE TOPLAMINI ALDIĞIM HÜCRELERDEN ARALARDA BAZILARI "0"SIFIR BU SIFIRLARI TEK TEK SİLEMEK YERİNE BÜTÜN SIFIRLARIN GÖZÜKMEMESİNİ VEYA TEK SEFERDE BÜTÜN SIFIRLARI SİLMEYİ NASIL YAPARIM

 

[mehmett]

Menülerden Araçlar, Seçenekler komutlarını verin. Gelen pencerede Görünüm sekmesine geçin ve Sıfır Değerleri yazan yerdeki onay kutucuğunun onayını iptal edin.

 

[Seyit Tiken]

Böyle bir kodu bir deneyiniz.

Sub Düğme1_Tıklat()
ActiveWindow.DisplayZeros = 0
End Sub

 

[PEPE]

sn. tekin
teşekkür ederim
peki bu istediğim gibi ama gerektiğinde 0 girmek istediğim hücre olursa
nasıl bir ekleme yaparım

 

[PEPE]

site içinden buldum bunu nasıl uyarlarım yani sıfırları seç ve sil
Sub temizle()
For Each hucre In [a:a65536]
If hucre <> Formula Then hucre.ClearContents
Next
End Sub

 

[Ali]

Sub sıfırtemizle()
For x = [a65526].End(3).Row To 2 Step -1
If Cells(x, 1).Value = "0" Then Cells(x, 1).ClearContents
Next
End Sub

 

[PEPE]

herkese teşekkür ederim

 

[Seyit Tiken]

Bu kodları bir deneyin. Birden fazla hücre formatı değiştirilecekse, ilgili hücreleri seçili yapıp butona basın. Bir kod bloğu sıfırları gizliyor diğeride gösteriyor.

Sub Düğme2_Tıklat()
Selection.NumberFormat = "#,##0.00;-0;;"
End Sub

Sub Düğme3_Tıklat()
Selection.NumberFormat = "#,##0.00"
End Sub

 

[Leoncio]

Sayın Fructose;

Sub sıfırtemizle()
For x = [a65526].End(3).Row To 2 Step -1
If Cells(x, 1).Value = "0" Then Cells(x, 1).ClearContents
Next
End Sub

Peki;
Çalışma sayfamda g6:h65536 arasındaki sıfırları silmem için bu kodlarda nasıl bir değişiklik yapmam gerekli?

 

[Ali]

Son satıra kadar kontrol edeceği için makronun çalışması biraz uzun zaman alabilir.
H65536 kısmını siz kendinize göre ayarlarsınız

Sub sıfırlarısil()
Dim c As Range
Application.ScreenUpdating = False
For Each c In Range("G6:H65536")
If c.Value = 0 Then
c.ClearContents
End If
Next c
Application.ScreenUpdating = True
End Sub

 

[Leoncio]

Sayın Fructose Teşekkür ederim;

Fakat sizin verdiğiniz cevapta Bir önceki kodları aşağıdaki şekilde değiştirdim. Gerçi ayni işi görüyor ve daha kısa sürüyor farkı nedir acaba?

Sub sýfýrtemizle()
For x = [ G65526].End(3).Row To 2 Step -1
If Cells(x, 5).Value = "0" Then Cells(x, 5).ClearContents
If Cells(x, 6).Value = "0" Then Cells(x, 6).ClearContents
If Cells(x, 7).Value = "0" Then Cells(x, 7).ClearContents
If Cells(x, 8).Value = "0" Then Cells(x, 8).ClearContents
Next
End Sub

 

[Ali]

Yalnız burada dikkat edilmesi gereken kısım G hücrenizin son satırından daha aşağıda verileri bulunan H,I,J gibi sütunlarınızda sıfır varsa onlar kalabilir sizin düzenlediğinizde G sütunundaki son veriye göre işlem yapmaktadır buraya dikkat etmek gerekir.
Verileriniz birebir gidiyorsa sorun yok istediğiniz kullanabilirsiniz. :hey:

 

[Leoncio]

Teşekkür ederim.

 

[Haluk]

Alternatif:

G ve H sütunlarındaki 0 (sıfır) değerleri siler.

Sub Test()
    Dim MyRng As Range
    Set MyRng = Range("G1:H" & Cells(65536, 8).End(xlUp).Row)
    MyRng.Replace 0, Empty, xlWhole, , True
End Sub