Satır gizle-göster makrosu

[leylaz]

. . .

İnceleyiniz.
http://www.excel.web.tr/f48/sayfayy-korumaya-alynca-makro-hata-veriyor-t139280.html

. . .

Hızır gibisin kardeşim. Allah razı olsun.

 

[arrested]

Merhaba,

aşağıda linkini paylaştığım tabloda revizeleri göster/gizle butonu ile 12,13,16,17,20,21... satırlarının, Açıklamaları göster/gizle butonu ile de 15,19,2327,31... satırlarının gösterilip gizlenmesini istiyorum ama bir türlü yapamadım. tablo ilk açıldığında butonlara bağlı satır ve sütunların tamamı gizli olacak. göster dendiğinde görüntülenecek.

Şu an 15,19,23,27,31... numaralı açıklama satırları tablo açıldığında açık geliyor. açıklamaları göster butonuna basılında revizyon satırlarını da açıyor. Revizyon butonu da aynı şekilde açıklama satırlarını açıyor.

Yardımcı olabilir misiniz?

http://www.dosya.tc/server2/2b8j8v/Teklif_Karsilastirma.zip.html

 

[arrested]

Merhaba,

aşağıda linkini paylaştığım tabloda revizeleri göster/gizle butonu ile 12,13,16,17,20,21... satırlarının, Açıklamaları göster/gizle butonu ile de 15,19,2327,31... satırlarının gösterilip gizlenmesini istiyorum ama bir türlü yapamadım. tablo ilk açıldığında butonlara bağlı satır ve sütunların tamamı gizli olacak. göster dendiğinde görüntülenecek.

Şu an 15,19,23,27,31... numaralı açıklama satırları tablo açıldığında açık geliyor. açıklamaları göster butonuna basılında revizyon satırlarını da açıyor. Revizyon butonu da aynı şekilde açıklama satırlarını açıyor.

Yardımcı olabilir misiniz?

http://www.dosya.tc/server2/2b8j8v/Teklif_Karsilastirma.zip.html

Kendimi yanıtlıyorum ama hallettim sanırım
range ile gösterilecek satırları da belirtince oldu.

Teşekkürler.

 

[excellkurdu]

Aşağıdaki kodlar çok güzel. Ama bir o kadar da bekletiyor. Bu kodları hızlandırmanın bir yöntemi var mıdır?

Sub Gizle_Satır()
    For Each t In Range("A5:A250")
    If t.Value = "0" Then 'boş hücreleri gizler
    t.EntireRow.Hidden = True
    End If
    Next t
End Sub

Sub Göster_Satır()
    For Each t In Range("A5:A250")
    If t.Value = "0" Then 'boş hücreleri GÖSTERİR
    t.EntireRow.Hidden = False
    End If
    Next t
End Sub

 

[dgdizayn]

Bunu dolu ise şeklinde yapabilir miyiz.

Örneğin H sütünu dolu ise o satırları gizlesin. Ayrıca Yine aynı şekilde buna da Dolu ise gizle, Hepsini göster butonu için yardım edebilir misiniz teşekkürler

 

[excellkurdu]

Bunu dolu ise şeklinde yapabilir miyiz.

Örneğin H sütünu dolu ise o satırları gizlesin. Ayrıca Yine aynı şekilde buna da Dolu ise gizle, Hepsini göster butonu için yardım edebilir misiniz teşekkürler

Sub Gizle_Satır()
    For Each t In Range("H5:H6550")
    If t.Value > "0" Then  'dolu hücreleri gizler
    t.EntireRow.Hidden = True
    End If
    Next t
    For Each t In Range("H5:H6550")
    If t.Value = "0" Then  'sıfır hücreleri gizler
    t.EntireRow.Hidden = True
    End If
    Next t
End Sub

Sub Göster_Satır()
    For Each t In Range("H5:H6550")
    If t.Value >= "0" Then 'Dolu hücreleri GÖSTERİR
    t.EntireRow.Hidden = False
    End If
    Next t
End Sub

 

[dgdizayn]

Sub Gizle_Satır()
    For Each t In Range("H5:H6550")
    If t.Value > "0" Then  'dolu hücreleri gizler
    t.EntireRow.Hidden = True
    End If
    Next t
    For Each t In Range("H5:H6550")
    If t.Value = "0" Then  'sıfır hücreleri gizler
    t.EntireRow.Hidden = True
    End If
    Next t
End Sub

Sub Göster_Satır()
    For Each t In Range("H5:H6550")
    If t.Value >= "0" Then 'Dolu hücreleri GÖSTERİR
    t.EntireRow.Hidden = False
    End If
    Next t
End Sub

Hocam ellerinize sağlık, tam istediğim gibi. Komut çalıştı. Test edildi.

 

[BYSERTTAS]

Gizle göster'i a sutununa göre boş satırları gizlesin göster dediğimde hepsini göstersin şeklinde nasıl düzenlerimi a1 ile a100 arasıda boş satır varsa gizlesin

 

[Seyit Tiken]

Bu şekilde deneyebilirsiniz.

[a1:a100].SpecialCells(4).EntireRow.Hidden = [a1:a100].SpecialCells(4).EntireRow.Hidden = 0