Sıfır değerli hücrelerdeki sıfırları silmek

[orrhankaya]

Sıfırlar yüzünden dosya boyutu büyüyor.
Formüller uzun ve çok. Formülleri kod sayfasında yazıp çoğaltıyorum. Sonra kod ile değerlerini yapıştırıyorum. Böylece dosya boyutunu bir miktar küçültüyorum. Sıfırları silsem daha da küçülecek.
Ctrl+G ile sıfır değerli hücreleri toplu seçip silemedim.
Döngü kullanmak istemiyorum. Çünkü yavaş çalışıyor.
Yardımlarınızı bekliyorum.

 

[ahmett46]

Slm Hocam
Sorunuza cevap veremeyecem sizin bir okul programınız vardı bir türlü çalıştıramadım mesela sınıf listesinden öğrenci seçtiğim zaman kod bölümünde hata gösteriyor. Saygılar

 

[orrhankaya]

Öğrenci Proğramı

orkaosmaniye@hotmail.com
üzerinden sorununuzu çözmeye çalışalım.
Office proğramı eksiksiz yüklendiyse herhangi bir sorun çıkmıyor. Çünkü çok sayıda kullanıcısı var. Böyle bir sorun iletilmedi. Office 2007'de çalıştırmadığım için onda sorun çıkıyor mu bilmiyorum.

 

[Korhan Ayhan]

Selamlar,

Örnek bir dosya eklermisiniz.

 

[orrhankaya]

Örnek Dosyada, C sütuna Miktarı girildiğinde veya değiştirildiğinde Makro çalışıyor. D ve E Sütunlarında Fiyatı ve Alacak tutarı Makro ile hesaplanıyor. Sonra değerleri yapıştırılarak formülden kurtarılıyor. Bu arada değeri sıfır olan yüzlerce hücre oluşuyor. Bu sıfırları silerek dosyanın boyutunu azaltmak istiyorum. Parola:123

 

[Korhan Ayhan]

Selamlar,

Sanırım bu işlemi döngü kullanmadan yapamayız. Dosyanızda kullandığınız formülleri kopyalama işlemi boş olan satırlarıda kapsıyor. Sıfırlar bu yüzden çıkıyor. Bu işlemi en son dolu olan satıra kadar yaparsak sorunu çözmüş oluruz. Sayfanızın kod bölümündeki Private Sub Worksheet_Change(ByVal Target As Range) başlığı altındaki kodu aşağıdaki şekilde değiştirip denermisiniz. Umarım faydası olur.

Private Sub Worksheet_Change(ByVal Target As Range)
    ActiveSheet.Unprotect Password:="123"
    If Target.Column = 3 Then
    Son = [A65536].End(3).Row
    Range("D5:D" & Son).Formula = "=IF(B5=0,0,VLOOKUP(B5,'C'!$A$2:$B$65536,2,FALSE))"
    Range("E5:E" & Son).Formula = "=C5*D5"
    Range("D5:E" & Son).Value = Range("D5:E" & Son).Value
    Range("E3").Formula = "=SUM(E5:E180)"
    Range("F3").Formula = "=SUMIF(F5:F180,""=X"",E5:E180)-SUM(G5:G180)"
    Range("G3").Formula = "=E3-F3"
    Target.Offset(1, 0).Select
    End If
    ActiveSheet.Protect Password:="123"
End Sub

 

[Seyit Tiken]

Makrosuz Çözüm :

Düzen > Değiştir > Aranan : 0 > Yeni Değer : Boş(bir şey yazılmayacak) > Tümünü Değiştir.

 

[orrhankaya]

Teşekkür ederim, Sayın Korhan
Denedim. Oluyor. Ayrıca Makrolar çalışıp, çalışması bitince tekrar önceki hücrenin seçilmesi ile ilgili kod çok işime yarayacak.
Target.Offset(1, 0).Select

 

[orrhankaya]

Düzen > Değiştir > Aranan : 0 > Yeni Değer : Boş(bir şey yazılmayacak) > Tümünü Değiştir.

Sayın Tiken, daha önce Ctrl+H'yi denedim. Ancak "yazdığınız formülde hata var" iletisi çıkıyordu.

 

[Seyit Tiken]

Bu şekilde deneyin.

Sub Düğme1_Tıklat()
For x = [a65526].End(3).Row To 1 Step -1
If Cells(x, 1).Value = 0 Then Cells(x, 1).ClearContents
Next
End Sub

 

[orrhankaya]

Kodunuzu denedim. Sadece 0 değerlerinin silinmesini istiyordum. Formül değeri sıfır olanları değil.
COST_CONTROL'un çözümü işimi görüyor. İlginize teşekkür ederim.