Aşağıdaki kod dolu satırları gizliyor ya da gösteriyor mu?

[assenucler]

Dostlar merhabalar;


Makro kodunu yanlış anlamış olabilirim. Aşağıdaki kod "verilen aralıktaki satırlar doluysa" gizleme'mi yapıyor?

Göster'e tıkladığımda da dolu satırları görünür mü yapıyor?

Beni aydınlatır mısınız? Yanlışlık varsa kodu nasıl değiştirmek gerekiyor?

İstediğim: Verilen aralıktaki kayıt bulunan satırları "GİZLİ" düğmesi ile gizlesin. "GÖSTER" ile gizlenen satırları göstersin.

Aşağıdaki kod bunu yapıyor mu?

Yardımınız için önceden teşekkürler.

Sevgi ve saygılar.


Sub Gizle()
For Each t In Range("A34:I116").Cells
If t.Value = "" Then 'boş hücreleri gizler
t.EntireRow.Hidden = True
End If
Next t
End Sub

Sub Göster()
For Each t In Range("A34:A116").Cells
If t.Value = "" Then 'boş hücreleri gösterir
t.EntireRow.Hidden = False
End If
Next t
End Sub

 

[Asri]

Yanlışlık var ise neye göre yanlışlık?

Sizin yapmak istediğiniz nedir?

 

[assenucler]

Sayın asri üstadım,


Öncelikle ilginiz için teşekkürler.

Benim istediğim, "GİZLE" düğmesine tıklayınca yukarıdaki (A34:I116) aralıkta bulunan satırlar gizlensin, "GÖSTER" e tıklayınca gizlenen satırlar görünsün.

Bu kodlarda nasıl bir değişiklik gerekiyor?

 

[Asri]

Aşağıdaki şekilde deneyiniz.

http://s3.dosya.tc/server9/sr9n7i/Gizle_Goster.zip.html

Sub Gizle()
    Rows("34:116").Select
    Selection.EntireRow.Hidden = True
    Cells(33, 1).Select
End Sub

Sub Goster()
    Rows("34:116").Select
    Selection.EntireRow.Hidden = False
    Cells(33, 1).Select
End Sub

 

[assenucler]

Hata iletisi alıyorum.

Hatayı sayfanın koduna yazmam.

 

[Asri]

Bir önceki mesajıma dosya eklendi.