üç şarta bağlı satır gizleme

[EKREM1661]

Arkadaşlar, İyi akşamlar..! Satır gizleme konusunda forumda çok örnekler var fakat bendeki sorun biraz farklı..
13, 14, 15 satırların üçü de gizli olması durumunda 16.ncı satır da gizlensin.. eğer 13, 14, 15 satırlardan her hangi birisi açıksa gizleme olmasın..

 

[uzmanamele]

merhaba

bo kod işinizi görür mü?

Sub gizle()
If (Rows("13").EntireRow.Hidden = True And Rows("14").EntireRow.Hidden = True And Rows("15").EntireRow.Hidden = True) Then
Rows("16").EntireRow.Hidden = True
Else
Rows("16").EntireRow.Hidden = False
End If
End Sub

 

[EKREM1661]

Sayın Uzmanamele çok güzel olmuş, eline sağlık, teşekkür ediyorum..