Hücre Gizlemek

[patroklos]

Bos veya 0 degerli sütunlari makro ile bircok sayfada birden gizlemek istiyorum. Sorumun daha detayli halini ekte örnek bir sablonda aciklamaya calistim. Yardim edebilirmisiniz acaba ?

 

[Orion1]

Ekli dosyayı inceleyiniz.
Makroyu çalıştırınız.

Sub SIFIR_OLAN_HÜCRELER_GIZLE()
Dim syf As Worksheet
For Each syf In Worksheets
    syf.Cells.EntireColumn.Hidden = False
    syf.Cells.EntireRow.Hidden = False
    For X = 1 To syf.Cells(65536, "A").End(3).Row
        If syf.Cells(X, 8) = 0 And syf.Cells(X, 9) = 0 Then
            syf.Rows(X).EntireRow.Hidden = True
        End If
    Next
Next
MsgBox "Satırlar gizlendi..!!"
End Sub

 

[patroklos]

Orion2 Bey yardiminiz icin öncelikle tesekkür ederim. Yanliz bir iki ufak sorunum var. Ilki, bos veya 0 degerli hücre aramasini sadece I sütununda ve 4. ve 200. satirlar arasinda yapilmasi gerekiyor. Ikinci sorun ise; su an yapilan islem toplam 50 sayfalik bir dosyanin ilk 39 sayfasinda olmali.

 

[Orion1]

Orion2 Bey yardiminiz icin öncelikle tesekkür ederim. Yanliz bir iki ufak sorunum var. Ilki, bos veya 0 degerli hücre aramasini sadece I sütununda ve 4. ve 200. satirlar arasinda yapilmasi gerekiyor. Ikinci sorun ise; su an yapilan islem toplam 50 sayfalik bir dosyanin ilk 39 sayfasinda olmali.

Aşağıdaki kodlar ilk 39 sayfanın hücrelerini gizler.

Sub SIFIR_OLAN_HÜCRELER_GIZLE()
Dim i As Byte, X As Byte
For i = 1 To 39
    Sheets(i).Cells.EntireColumn.Hidden = False
    Sheets(i).Cells.EntireRow.Hidden = False
    For X = 4 To 200
        If Sheets(i).Cells(X, "I").Value = 0 Then
            Sheets(i).Rows(X).EntireRow.Hidden = True
        End If
    Next
Next
MsgBox "Satırlar gizlendi..!!"
End Sub

 

[patroklos]

Cok cok tesekkür ederim Orion2 Bey. Bundan daha iyisi olamazdi. Eksik olmayin.

 

[Orion1]

Cok cok tesekkür ederim Orion2 Bey. Bundan daha iyisi olamazdi. Eksik olmayin.

Rica ederim.
İyi çalışmalar.