Yazıcıdan çıktı alırken Sıfır değerleri Gizleme

[ANTALYA 01]

Merhabalar

Ekteki Tabloda 2 Adet Kod Kullanmaktayım 2 Kodu Birleştiremediğim için 2 Modülde Kullanıyorum.Fakat Bu Modüllerin çalışma sayfasındada anlatmaya çalıştığım gibi Yazıcıdan çıktı alırken Sıfır Değerlerin gözükmemesi için Satırları Silmesini değil Gizlemesini ve gizlerkende A ve F sütunundaki Kodlarla birlikte hareket ederek Kodlar kaymadan İlgili Kodla Ürünü Gizleyen Makroya ihtiyacım var.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub GİZLE()
    Sheets("Sayfa1").Select
    Cells.EntireRow.Hidden = False
    For X = 3 To [B65536].End(3).Row
    If (Cells(X, "E") + Cells(X, "J")) = 0 Then Rows(X).EntireRow.Hidden = True
    Next
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[ANTALYA 01]

S

Merhabalar

Korhan Bey hızır gibi yetiştiniz yine akşam sordum sabaha cevab geldi çok teşekkür ederim tam istediğim gibi Yine Sıfırlar gözüküyor ama başka çare yok çünkü bir satırda sıfır değer varken diğer satırda sıfırdan büyük değer var peki bu makroyu sadece sayfa 1 değilde Sayfa 1 sayfa 2 sayfa 3 sayfa 4 sayfa 5 geçerli olması için ne yapmalıyım

Ben böyle yaptım olmadı

Sub GİZLE()
Sheets("Sayfa1").Select
Sheets("Sayfa2").Select
Sheets("Sayfa3").Select
Cells.EntireRow.Hidden = False
For X = 3 To [B65536].End(3).Row
If (Cells(X, "E") + Cells(X, "J")) = 0 Then Rows(X).EntireRow.Hidden = True
Next
MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub GİZLE()
    For X = 1 To 5
    Sheets(X).Select
    Cells.EntireRow.Hidden = False
    For Y = 3 To [B65536].End(3).Row
    If (Cells(Y, "E") + Cells(Y, "J")) = 0 Then Rows(Y).EntireRow.Hidden = True
    Next
    Next
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[ANTALYA 01]

F

Merhabalar

Korhan bey teşekkür ederim.Fakat soruyu yanlş sorduğumu makroyu deneyince gördüm Çünkü bu kod çalışma sayfasındaki bütün sayfalar için aynı işlemi yapıyor çalışma sayfasında Örnek veriyorum Toplam Giren Toplam çıkan vb gibi sayfalar var ben seçilen sayfalar için bu makronun çalışmasını istiyorum userform şeklinde falan değil mesela bu kodu şöyle yapsak

Sub GİZLE()
For X = 1 To 5
Sheets(Sayfa 1;Sayfa 2;sayfa 3 gibi buraya makronun çalışacağı sayfa adlarını yazsak sadece bu sayfalarda bu işlemi yapsa ).Select
Cells.EntireRow.Hidden = False
For Y = 3 To [B65536].End(3).Row
If (Cells(Y, "E") + Cells(Y, "J")) = 0 Then Rows(Y).EntireRow.Hidden = True
Next
Next
MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub GİZLE()
    SAYFALAR = Array("Sayfa1", "Sayfa2", "Sayfa3")
    For X = 0 To UBound(SAYFALAR)
    Sheets(SAYFALAR(X)).Select
    Cells.EntireRow.Hidden = False
    For Y = 3 To [B65536].End(3).Row
    If (Cells(Y, "E") + Cells(Y, "J")) = 0 Then Rows(Y).EntireRow.Hidden = True
    Next
    Next
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[ANTALYA 01]

E

Merhaba

Teşekkür ederim Tam istediğim gibi allah razı olsun