Birden Fazla Satırı, Şartlı Gizleme ve Açma

[EKREM1661]

Saygıdeğer Arkadaşlar..! Hayırlı akşamlar diliyorum..

Eklediğim örnekte; C13, C14, C15 hücrelerinde veri var ise açılan, veri yok ise gizlenen satır örneği mevcut..

Fakat, açılan ve gizlenen satırları, C16 ile birlikte açılan ve gizlenen pozisyona uygulama yapamadım..

 

[tahsinanarat]

Boş satırları gizle / göster

C11 ile C57 aralığı için düzenlenmiş örnek dosyanız ekte gönderilmiştir, kendinize göre uyarlayabilirsiniz. Kolay gelsin

 

[EKREM1661]

Sayın tahsinanarat ilgi ve alakanız için teşekkür ediyorum.. soruyu daha da kısaltarak şöyle sorsam.. Aşağıdaki kod 13.satırda veri varsa açıyor, veri yok ise gizliyor.. Buna 16.satırıda ilave etmek istersek nasıl düzenleriz..

Private Sub Worksheet_Activate()
If [c13].Value = "" Or [c13].Value = 0 Then
Rows(13).Hidden = True
ElseIf [c13].Value <> "" Then
Rows(13).Hidden = False
End If
End Sub

Not:16.sat&#305;rda veri yok.. Yani 13.sat&#305;r&#305;n &#351;art&#305; ile de&#287;il, 13.sat&#305;r gizlenme ve a&#231;&#305;lmas&#305;nda 16.sat&#305;r ile birlikte hareket edecek..

 

[OZYYY78]

Sayın tahsinanarat ilgi ve alakanız için teşekkür ediyorum.. soruyu daha da kısaltarak şöyle sorsam.. Aşağıdaki kod 13.satırda veri varsa açıyor, veri yok ise gizliyor.. Buna 16.satırıda ilave etmek istersek nasıl düzenleriz..

Private Sub Worksheet_Activate()
If [c13].Value = "" Or [c13].Value = 0 Then
Rows(13).Hidden = True
ElseIf [c13].Value <> "" Then
Rows(13).Hidden = False
End If
End Sub

Not:16.satırda veri yok.. Yani 13.satırın şartı ile değil, 13.satır gizlenme ve açılmasında 16.satır ile birlikte hareket edecek..

Peki bu komutlarda sacede c13 değilde c13 ile c15 arası sonra c20 ile c30 arası gibi entegre edebili miyiz? ve bide Rows() komutunu çoklu seçebilmek için hangi ayıracı kullanmalıyız? Mesela c13 kolonunda c16 kolonuna kadar seçmek istersek.