Satır gizleme hakkında

[bravia]

Değerli arkadaşlar ve üstadlar,

Sizlere 2 sorum var...Birincisi makro veya formüller yardımıyla belli bir satır aralığındaki tüm değerler "0" ise o satır veya satırlar gizlenebilir mi? (örneğin tablo 12 kolon, 50 satır) İkincisi ise belli bir aralıktaki verileri (örneğin A2-Z99 alanındaki hücreleri) buton ile silmek için yardımcı olabilir misiniz?

Herkese teşekkür eder, iyi çalışmalar dilerim...

 

[1Al2Ver]

Merhaba,

2) Veriler Sayfa1 adlı sekmede varsayılmıştır, Sayfa1'in VBA bölümüne yazılmalıdır ve bir butona atanmalıdır

Sub sil()
Sayfa1.[a2:z99].ClearContents
End Sub

 

[bravia]

Çok teşekkür ederim...

1.sorumun yanıtını bilen arkadaşlar ve üstadlar yardım ederse çok sevinirim.

İyi çalışmalar...

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kod ile satırları gizeleyebilirsiniz. A-L sütun aralığındaki satırlarıın tek tek toplamlarını alır sıfır olanları (tamamen boş olanlar hariç) gizler.

Option Explicit
 
Sub SATIR_GİZLE()
    Dim X As Long
    
    Cells.EntireRow.Hidden = False
    
    For X = 1 To 50
        If WorksheetFunction.CountA(Range("A" & X, "L" & X)) <> 0 Then
        If WorksheetFunction.Sum(Range("A" & X, "L" & X)) = 0 Then
            Rows(X).Hidden = True
        End If
        End If
    Next
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[bravia]

Yardımlarınız için çok teşekkür ederim....

 

[bravia]

Korhan bey bir sorum daha olacak...Peki sadece "0" değeri olan satırların gizlenmesi mümkün mü? Çünkü 1 ile 50. satırlar arasında eğer hiçbir veri yoksa onları da gizliyor...

Teşekkürler...

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımdaki kodu güncelledim. İncelermisiniz.

 

[bravia]

Korhan bey teşekkürler...